Kao prvo klasa
Code:
Imports System
Imports System.Runtime.InteropServices
Public Class RemClass
Public Class komanda
Inherits MarshalByRefObject
Public Sub posaljiKomandu(ByVal comm As Char)
Console.WriteLine("Server je naredio komandu: {0}", comm)
End Sub
End Class
Public Class podatak
Inherits MarshalByRefObject
Public Sub posaljiPodatak(ByVal x As Integer)
Console.WriteLine("Klijent je poslao: {0:x8}", x)
End Sub
End Class
End Class
Imports System
Imports System.Runtime.InteropServices
Public Class RemClass
Public Class komanda
Inherits MarshalByRefObject
Public Sub posaljiKomandu(ByVal comm As Char)
Console.WriteLine("Server je naredio komandu: {0}", comm)
End Sub
End Class
Public Class podatak
Inherits MarshalByRefObject
Public Sub posaljiPodatak(ByVal x As Integer)
Console.WriteLine("Klijent je poslao: {0:x8}", x)
End Sub
End Class
End Class
Zatim Server
Code:
Imports System
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
Public Class FormServer
Private Sub FormServer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RemotingConfiguration.RegisterActivatedClientType(GetType(MObject.RemClass.komanda), "tcp://localhost:2001/Client")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nasKlient As New MObject.RemClass.komanda
Dim input As Char = "M"
Try
nasKlient.posaljiKomandu(input)
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub
End Class
Imports System
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
Public Class FormServer
Private Sub FormServer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RemotingConfiguration.RegisterActivatedClientType(GetType(MObject.RemClass.komanda), "tcp://localhost:2001/Client")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nasKlient As New MObject.RemClass.komanda
Dim input As Char = "M"
Try
nasKlient.posaljiKomandu(input)
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub
End Class
i na kraju Klient
Code:
Imports System
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
Module ModuleClient
Sub Main()
Dim kanal As New TcpChannel(2001)
ChannelServices.RegisterChannel(kanal, False)
RemotingConfiguration.ApplicationName = "Client"
RemotingConfiguration.RegisterActivatedServiceType(GetType(MObject.RemClass.komanda))
Console.WriteLine("Klijent spreman, Enter za kraj rada")
Console.ReadLine()
End Sub
Imports System
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
Module ModuleClient
Sub Main()
Dim kanal As New TcpChannel(2001)
ChannelServices.RegisterChannel(kanal, False)
RemotingConfiguration.ApplicationName = "Client"
RemotingConfiguration.RegisterActivatedServiceType(GetType(MObject.RemClass.komanda))
Console.WriteLine("Klijent spreman, Enter za kraj rada")
Console.ReadLine()
End Sub
Problem je u tome sto je klient console aplikacija a meni treba forma, a ja pojma nemam kako da uhvatim ovaj dogadjaj na formi i da ga recimo prosledim nekom textbox-u.
[Ovu poruku je menjao aleksandar.80 dana 01.08.2009. u 07:21 GMT+1]