View difference between Paste ID: z9qV4jiE and
SHOW:
|
|
- or go back to the newest paste.
1 | - | |
1 | + | type OrderService() = |
2 | let mutable client : option<IDuplexClient> = None | |
3 | let mutable orderName : string = null | |
4 | let mutable orderQuantity : int = 0 | |
5 | ||
6 | member x.Order (name: string, quantity: int) = | |
7 | client <- Some (OperationContext.Current.GetCallbackChannel<IDuplexClient> ()) | |
8 | orderName <- name | |
9 | orderQuantity <- quantity | |
10 | use timer = new Timer (new TimerCallback (CallClient), null, 5000, 5000) | |
11 | Thread.Sleep 11000 |