[es] - Komunikacija izmedju 2 aplikacije u mrezi

aleksandar.80
Aleksandar Petrovic

Član broj: 229158
Poruke: 17
93.86.171.*

Profil

Komunikacija izmedju 2 aplikacije u mrezi

^{31.07.2009. u 21:04 - pre 180 meseci}

Ono sto sam uspeo da nadjem ovde a sto radi je sledece:

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

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

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

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]}

Odgovor na temu