Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Lifetime
Imports ks_sharedObject_RDB
Imports System.Runtime.Remoting.Channels.Http
 
 
Public Class frmMain
 
    Public intdebug As Integer
    Private Channel As HttpChannel
 
    Public Sub New()
        InitializeComponent()
    End Sub
 
    Public Sub protokoll(ByVal msg As String)
        ListBox1.Items.Add(msg)
    End Sub
 
 
    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles button1.Click
        Try
            ListBox1.Items.Clear()
 
            protokoll("Server gestartet ->")
 
            Channel = New HttpChannel(CInt(ebPort.Text))
            ChannelServices.RegisterChannel(Channel, False)
 
            If IsNothing(RemotingConfiguration.ApplicationName) Then
                RemotingConfiguration.ApplicationName = "RemoteDBServer"
                RemotingConfiguration.RegisterWellKnownServiceType(GetType( _
                  ks_rem_DB), "ksRDB.soap", WellKnownObjectMode.Singleton)
                LifetimeServices.LeaseTime = TimeSpan.FromSeconds(5)
                LifetimeServices.RenewOnCallTime = TimeSpan.FromSeconds(5)
            End If
 
           System.Runtime.Remoting.
 
        Catch ex As Exception
 		msgbox(ex.tostring)
        End Try
    End Sub
 
    Private Sub button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles button2.Click
        Try
 
            protokoll("<- Server gestoppt")
            ChannelServices.UnregisterChannel(Channel)
 
  	Catch ex As Exception
 		msgbox(ex.tostring)
        End Try
    End Sub
 
 
End Class

 
Imports System
Imports ks_sharedObject_RDB
Imports System.Windows.Forms
 
Public Class ks_rem_DB
    Inherits MarshalByRefObject
    Implements I_FuncSQL
 
    'oeffentliche Variablen
    Public szSQL As String
    Private conn As Data.Common.DbConnection
    Private da As Data.Common.DbDataAdapter
 
    Public Sub Protokoll(ByVal msg As String) Implements I_Func.Protokoll
 
        Debug.WriteLine(msg)
 
	---> Hier müßte die Funktion zur Übergabe rein <-----
 
    End Sub