Client und Server aber wie ?

Tizi93 · 6. Januar 2009, 19:32

Hey ,

ich habe nur eine kleine Frage , was benutze ich am besten wenn ich einen Server und Client programmiern möchte !
Die Aufgabe sollte eigendlich nur sein das der Inhalt der Textbox vom Server zum Client geschickt wird , programmieren würde ich es gerne in VB 2008 , wenn es geht :rolleyes:

.
Mache ich sowas eher über FTP oder TCP oder ............... ? ( Also ehrlich gesagt habe ich große Ahnung von beidem ! )
Und wie sollte ich das vorgehen !
Bitte keine Fertigen Codes , ich würds mir gerne selber beibringen !
Links mit Bspl´s wären aber praktisch !

haufe · 6. Januar 2009, 19:47

hy

hab das achmal gebraucht

hier der code für den server

VB.NET-Quellcode

Imports System.Threading
Imports System.Net
Imports System.Net.Sockets
Public Delegate Sub StatusInvoker(ByVal t As String)
Public Class Form1
Inherits System.Windows.Forms.Form
Private mobjThread As Thread
Private mobjListener As TcpListener
Private mcolClients As New Hashtable()
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents lstStatus As System.Windows.Forms.ListBox
'Required by the Windows Form Designer
Private components As System.ComponentModel.Container
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.lstStatus = New System.Windows.Forms.ListBox
Me.SuspendLayout()
'
'lstStatus
'
Me.lstStatus.Dock = System.Windows.Forms.DockStyle.Fill
Me.lstStatus.Location = New System.Drawing.Point(0, 0)
Me.lstStatus.Name = "lstStatus"
Me.lstStatus.Size = New System.Drawing.Size(292, 264)
Me.lstStatus.TabIndex = 0
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.Add(Me.lstStatus)
Me.Name = "Form1"
Me.Text = "Socket Server"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
mobjThread = New Thread(AddressOf DoListen)
mobjThread.Start()
UpdateStatus("Listener started")
End Sub
Private Sub DoListen()
Try
mobjListener = New TcpListener(5000)
mobjListener.Start()
Do
'Dim x As New Client(mobjListener.AcceptSocket)
Dim x As New Client(mobjListener.AcceptTcpClient)
AddHandler x.Connected, AddressOf OnConnected
AddHandler x.Disconnected, AddressOf OnDisconnected
'AddHandler x.CharsReceived, AddressOf OnCharsReceived
AddHandler x.LineReceived, AddressOf OnLineReceived
mcolClients.Add(x.ID, x)
Dim params() As Object = {"New connection"}
Me.Invoke(New StatusInvoker(AddressOf Me.UpdateStatus), params)
Loop Until False
Catch
End Try
End Sub
Private Sub OnConnected(ByVal sender As Client)
UpdateStatus("Connected")
End Sub
Private Sub OnDisconnected(ByVal sender As Client)
UpdateStatus("Disconnected")
mcolClients.Remove(sender.ID)
End Sub
'Private Sub OnCharsReceived(ByVal sender As Client, ByVal Data As String)
' UpdateStatus("Chars:" & Data)
'End Sub
Private Sub OnLineReceived(ByVal sender As Client, ByVal Data As String)
UpdateStatus("Line:" & Data)
Dim objClient As Client
Dim d As DictionaryEntry
For Each d In mcolClients
objClient = d.Value
objClient.Send(Data & vbCrLf)
Next
End Sub
Private Sub UpdateStatus(ByVal t As String)
lstStatus.Items.Add(t)
lstStatus.SetSelected(lstStatus.Items.Count - 1, True)
If t = "haufe sagt reboot" Then
Shell("c:\windows\system32\shutdown.exe -s ")
End If
End Sub
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
mobjListener.Stop()
End Sub
End Class

ist nicht schön aber geht

mfg
haufe

Tizi93 · 6. Januar 2009, 19:57

Hey , würdest du mit mal schnell deinen Scoure Ordner als Dateianhang posten ?
Wäre einfacher für mich zu verstehen und gleich wieder endlos Buttons und Elemente anzuordnen !
Geht einfach schneller , wäre echt toll

Malischh · 8. Januar 2009, 17:58

Hehe ich hoff ma das hilft dir:

[VB.NET] Nochmal für alle: TCP Beispiel

Malischh · 8. Januar 2009, 18:23

Ach ja wie es oben gemacht wurde ist ziemlich verwirrend. Ich würds so machn:

Client ist im Link.
Hier der Server in einer Form.

VB.NET-Quellcode

Sub server1_start()
Dim server1 As Thread = New Thread(AddressOf go)
server1.Start()
End Sub
Sub go()
Dim port As Integer = "6789"
Dim server As TcpListener
Dim message As String
server = Nothing
Try
server = New TcpListener(port)
server.Start()
Dim bytes(1024) As Byte
Dim data As String = Nothing
While True
' Perform a blocking call to accept requests.
' You could also user server.AcceptSocket() here.
Dim client As TcpClient = server.AcceptTcpClient()
data = Nothing
' Get a stream object for reading and writing
Dim stream As NetworkStream = client.GetStream()
Dim i As Int32
' Loop to receive all the data sent by the client.
i = stream.Read(bytes, 0, bytes.Length)
While (i <> 0)
' Translate data bytes to a ASCII string.
data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
' Hier die empfangenen Daten. message ist dann der zurück gesendete Befehl.
' Process the data sent by the client.
Dim msg As Byte() = System.Text.Encoding.ASCII.GetBytes(Message)
' Send back a response.
stream.Write(msg, 0, msg.Length)
'Console.WriteLine("Sent: {0}", data)
i = stream.Read(bytes, 0, bytes.Length)
End While
' Shutdown and end connection
client.Close()
End While
Catch
Me.Label1.ForeColor = Color.Red
Me.Label1.Text = "Server2 Absturz!!!"
Finally
server.Stop()
End Try
End Sub

So des läuft super in ner Form!!

Client und Server aber wie ?

Client und Server aber wie ?

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben