定义类型为 Public Delegate Sub EventHandler(Of TEventArgs)(sender As Object, e As TEventArgs)
Dim tclient As New Ashu.Tmc.TmcClient("111", "222", "")
tclient.OnMessage += Function(s, e)
Try
' 默认不抛出异常则认为消息处理成功
Console.WriteLine("{0}接收到数据:{1}", DateTime.Now, JsonConvert.SerializeObject(e.Message))
Catch exp As Exception
Console.WriteLine(exp.StackTrace)
' 消息处理失败回滚,服务端需要重发
e.Fail()
End Try
End Function
tclient.Connect("ws://127.0.0.1:8181")
此主题相关图片如下:qq图片20140513194038.jpg
[此贴子已经被作者于2014-5-13 19:45:42编辑过]