Imports ks_sharedObject_RDB
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Activation
Imports System.Runtime.Remoting.Channels.Http
 
Public Class Form1
 
    Private Channel As HttpChannel
    Private remoteObj As I_Func
    Private dt As DataTable
 
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
       System.EventArgs) Handles MyBase.Load
        Channel = New HttpChannel()
        ChannelServices.RegisterChannel(Channel, False)
    End Sub
 
    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles button1.Click
 
        If remoteObj Is Nothing Then
            Try
                remoteObj = TryCast(Activator.GetObject(GetType(I_FuncSQL), _
                  "http://localhost:8888/ksRDB.soap"), I_Func)
            Catch ex As Exception
                debug.writeline(ex.Message)
            End Try
        End If
 
        If remoteObj IsNot Nothing Then
            Try
 
                remoteObj.Protokoll("Schöne Grüsse vom client")
 
            Catch ex As Exception
                remoteObj = Nothing
                debug.writeline(ex.Message)
            End Try
        End If
 
    End Sub
 
End Class

Imports System
Imports System.Data
 
'Vermittlerbibliothek (Schnittstelle) zum Objekt Remoting zwischen Clients und 
' Server
'hier werden einfach nur Objekte definiert, auf die von beiden Seiten
'zugegriffen werden kann
 
Public Interface I_Func
 
   Sub Protokoll(ByVal meldung As String)
   'weitere Functions, die das Projekt später erledigen soll
 
End Interface