Hallo,
Also ich habe folgendes Problem, ich würde gerne über Visual Basic 2005(Express) Text zu einer anderen Anwendung schicken, am besten über einen Server;
Mit FTP-Server kenne ich mich einigermaßen aus.
Aber das ist viel zu umständlich.
Hier hab ich mal etwas:
Imports System.Text
Imports System.Net.Sockets
Public Class Form1
Dim Data As Integer
Dim Message As String
Dim TCPL As TcpListener
Dim TCPC As New TcpClient
Dim BufferSize(TCPC.ReceiveBufferSize - 1) As Byte
Private Sub Server_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Try
TCPL = New TcpListener(Net.IPAddress.Any, 13636)
TCPL.Start()
ListBox1.Items.Add(„Waiting for connection…“)
TCPL.BeginAcceptTcpClient(AddressOf OnConnect, Nothing)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub OnConnect(ByVal AR As IAsyncResult)
MsgBox(„test“)
TCPC = TCPL.EndAcceptTcpClient(AR)
TCPC.GetStream.BeginRead(BufferSize, 0, BufferSize.Length, AddressOf _
OnRead, _
Nothing)
End Sub
Private Sub OnRead(ByVal AR As IAsyncResult)
Data = TCPC.GetStream.EndRead(AR)
Message = Encoding.ASCII.GetString(BufferSize, 0, Data)
TCPC.GetStream.BeginRead(BufferSize, 0, BufferSize.Length, AddressOf _
OnRead, _
Nothing)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TCPL.Server.BeginSendFile(„test.text“, AddressOf OnConnect, 1)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TCPL.Stop()
End Sub
End Class
Hat jemand eine einfachere Möglichkeit?
Danke schonmal im Voraus;