home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 June (DVD) / DPPRO0605DVD.iso / dotNETSDK / SETUP.EXE / netfxsd1.cab / FL_EventRegistration_vb________.3643236F_FC70_11D3_A536_0090278A1BB8 < prev    next >
Encoding:
Text File  |  2001-08-21  |  1.0 KB  |  32 lines
  1. 
  2. Imports System
  3. Imports System.Runtime.Remoting
  4. Imports System.Runtime.Remoting.Channels
  5. Imports System.Runtime.Remoting.Channels.Http
  6.  
  7. Imports Zap
  8. Imports Wak
  9.  
  10.  
  11.  
  12. Public Class Client
  13.     
  14.     Public Shared Sub Main()
  15.         ' This could also be done with a Remoting configuration file
  16.         ' Register the HTTP Channel
  17.         ChannelServices.RegisterChannel(New HttpChannel(0))
  18.         
  19.         Dim baz As Baz = CType(Activator.GetObject(GetType(Baz), "http://localhost:888/EventSinkHost/Baz.soap"), Baz)
  20.         
  21.         ' Obtain a Proxy to the SOAP URL
  22.         Dim waz As Waz = CType(Activator.GetObject(GetType(Waz), "http://localhost:999/EventFireHost/Waz.soap"), Waz)
  23.         
  24.         ' Subscribe to event : occurs over SOAP
  25.         AddHandler waz.Greeting, AddressOf baz.GreetingHandler
  26.         
  27.         waz.HelloMethod("Hi from the client")
  28.         
  29.         ' Unsubscribe to event : occurs over SOAP
  30.         RemoveHandler waz.Greeting, AddressOf baz.GreetingHandler
  31.     End Sub 'Main
  32. End Class 'Client