tcplistener [Visual basci]

[jwz104]

Ik probeer een tcp listener te maken.
Dus een server. De client heb ik al gemaakt en die werkt al op winsock.
Maar wie iemand hoe ik de tcplistener kan maken?
Alles wat ik weet is dit script

Imports System.Net.Sockets
Imports System.Net

Dim server As New TcpListener(IPAddress.Any, "12343")

Verder snap ik het niet.
Ik zou graag willen dat de data die hij ontvangt als een string word omgezet.

 

[tim687]

Beste jwz104,
hier is een compleet en werkende TCPListener je moet FileOpen vervangen met StreamReader bij deze

Imports System.Net.Sockets
Imports System.Net
Imports System.IO
Public Class Form1
    Private filePath As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        TextBox1.Enabled = False
        filePath = TextBox1.Text
        Dim ListenThread As System.Threading.Thread = New System.Threading.Thread(AddressOf ListenSub)
        ListenThread.IsBackground = True
        ListenThread.Start()
    End Sub

    Private Sub ListenSub()
        Dim server As New TcpListener(IPAddress.Any, 1300)
        server.Start()
        Try
            While True
                Dim c As TcpClient = server.AcceptTcpClient
                Dim s As NetworkStream = c.GetStream

                FileOpen(1, filePath, OpenMode.Binary)
                Dim buffer(1024 - 1) As Byte
                Do While True
                    Dim bytesRead As Integer = s.Read(buffer, 0, buffer.Length)
                    If bytesRead = 0 Then Exit Do
                    FilePut(1, buffer)
                Loop
                FileClose(1)
                s.Close()
                c.Close()
            End While
        Catch ex As Exception
            MsgBox("Error:)" & vbCr & ex.ToString, MsgBoxStyle.Critical, "Error")
        End Try

Voor de verstuurder:

EDIT:
Controlls:
Textbox1 = ontvangen text


En bij deze moet je de FileStream door StreamWriter vervangen

Imports System.Net              
Imports System.Net.Sockets     
Imports System.IO
Imports System.Threading

Public class Form1         
 Private filePath As String    
 Delegate Sub nan()

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button2.Enabled = False        
        filePath = TextBox1.Text
        Dim sendThread As New System.Threading.Thread(AddressOf sendSub)
        sendThread.IsBackground = True
        sendThread.Start()
End Sub 

Private Sub sendSub()  
        Dim cli As New TcpClient
        cli.Connect(TextBox2.Text, 1300)
        Try
            Dim nstm As Stream = cli.GetStream()
            Dim fstm As Stream = New FileStream(filePath, FileMode.Open, FileAccess.Read)
            Dim buffer(1024 - 1) As Byte
            Do While True
                Dim bytesRead As Integer = fstm.Read(buffer, 0, buffer.Length)
                If bytesRead = 0 Then Exit Do
                nstm.Write(buffer, 0, bytesRead)
                nstm.Flush()
            Loop
            cli.Close()
            nstm.Close()
            fstm.Close()
            MsgBox("Sucess", MsgBoxStyle.Exclamation, "It Works=)")
        Catch ex As Exception
            MsgBox("Not works" & vbCr & ex.ToString, MsgBoxStyle.Critical, "Error")
        End Try
    End Sub
    End class

Voor de verzender:
EDIT:
Controlls:
Textbox1 = FilePath (Vervang dit door de text)
Textbox2 = IP Adres waarnaar je het verstuurd
Suc6,
als je nog vragen hebt stel ze!!

 

[jwz104]

Beste jwz104,
hier is een compleet en werkende TCPListener je moet FileOpen vervangen met StreamReader bij deze

Imports System.Net.Sockets
Imports System.Net
Imports System.IO
Public Class Form1
    Private filePath As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        TextBox1.Enabled = False
        filePath = TextBox1.Text
        Dim ListenThread As System.Threading.Thread = New System.Threading.Thread(AddressOf ListenSub)
        ListenThread.IsBackground = True
        ListenThread.Start()
    End Sub

    Private Sub ListenSub()
        Dim server As New TcpListener(IPAddress.Any, 1300)
        server.Start()
        Try
            While True
                Dim c As TcpClient = server.AcceptTcpClient
                Dim s As NetworkStream = c.GetStream

                FileOpen(1, filePath, OpenMode.Binary)
                Dim buffer(1024 - 1) As Byte
                Do While True
                    Dim bytesRead As Integer = s.Read(buffer, 0, buffer.Length)
                    If bytesRead = 0 Then Exit Do
                    FilePut(1, buffer)
                Loop
                FileClose(1)
                s.Close()
                c.Close()
            End While
        Catch ex As Exception
            MsgBox("Error:)" & vbCr & ex.ToString, MsgBoxStyle.Critical, "Error")
        End Try

Voor de verstuurder:

EDIT:
Controlls:
Textbox1 = ontvangen text


En bij deze moet je de FileStream door StreamWriter vervangen

Imports System.Net              
Imports System.Net.Sockets     
Imports System.IO
Imports System.Threading

Public class Form1         
 Private filePath As String    
 Delegate Sub nan()

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button2.Enabled = False        
        filePath = TextBox1.Text
        Dim sendThread As New System.Threading.Thread(AddressOf sendSub)
        sendThread.IsBackground = True
        sendThread.Start()
End Sub 

Private Sub sendSub()  
        Dim cli As New TcpClient
        cli.Connect(TextBox2.Text, 1300)
        Try
            Dim nstm As Stream = cli.GetStream()
            Dim fstm As Stream = New FileStream(filePath, FileMode.Open, FileAccess.Read)
            Dim buffer(1024 - 1) As Byte
            Do While True
                Dim bytesRead As Integer = fstm.Read(buffer, 0, buffer.Length)
                If bytesRead = 0 Then Exit Do
                nstm.Write(buffer, 0, bytesRead)
                nstm.Flush()
            Loop
            cli.Close()
            nstm.Close()
            fstm.Close()
            MsgBox("Sucess", MsgBoxStyle.Exclamation, "It Works=)")
        Catch ex As Exception
            MsgBox("Not works" & vbCr & ex.ToString, MsgBoxStyle.Critical, "Error")
        End Try
    End Sub
    End class

Voor de verzender:
EDIT:
Controlls:
Textbox1 = FilePath (Vervang dit door de text)
Textbox2 = IP Adres waarnaar je het verstuurd
Suc6,
als je nog vragen hebt stel ze!!

Het wil niet echt.
Wat is het eigelijk. ik zou graag willen dat de server data als strings ontvangt, net zoals bij winsock

 

[tim687]

Dit is een code, die een bestand verstuurd naar de reciever. wat ik je aanraad, is om het bestand naar een streamreader te wijzigen. probeer anders te googlen hoe je dit verder kunt doen