home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 June (DVD) / DPPRO0605DVD.iso / dotNETSDK / SETUP.EXE / netfxsd1.cab / FL_HelloGetObj2_vb________.3643236F_FC70_11D3_A536_0090278A1BB8 < prev    next >
Encoding:
Text File  |  2001-08-21  |  1.5 KB  |  41 lines
  1. 
  2. Imports System
  3. Imports System.Runtime.Remoting
  4. Imports System.Runtime.Remoting.Channels
  5. Imports System.Runtime.Remoting.Channels.Http
  6. Imports Microsoft.VisualBasic
  7.  
  8. Imports Hello
  9.  
  10.  
  11.  
  12. Public Class HelloNew
  13.     
  14.     Public Shared Sub Main()
  15.         Console.WriteLine(".NET Remoting Sample - HelloGetObj2")
  16.         Console.WriteLine("--------------------------------------" + ControlChars.Cr)
  17.         
  18.         Dim name As String = "Bill"
  19.         Dim type As Type = GetType(HelloService)
  20.         Dim url As String = "http://localhost/RemotingHello/HelloService.soap"
  21.         
  22.         Console.WriteLine("Loading HttpChannel")
  23.         ChannelServices.RegisterChannel(New HttpChannel())
  24.         
  25.         Console.WriteLine("Obtaining Proxy for HelloService, using Activator.GetObject")
  26.         Dim helloService As HelloService = CType(Activator.GetObject(type, url), HelloService)
  27.         
  28.         Console.WriteLine("Checking if helloservice is really a proxy")
  29.         If RemotingServices.IsTransparentProxy(helloService) = True Then
  30.             Console.WriteLine("helloService is a proxy!")
  31.         Else
  32.             Throw New Exception("helloService is not a proxy")
  33.         End If 
  34.         Console.WriteLine("Calling HelloService.ReturnGreeting({0})", name)
  35.         Dim greeting As String = helloService.ReturnGreeting(name)
  36.         
  37.         Console.WriteLine("HelloService.ReturnGreeting returned: {0}", greeting)
  38.     End Sub 'Main
  39. End Class 'HelloNew
  40.  
  41.