Winsock und VB6...

[K@C]

Hi Folks!

Ich bin grad noch ziemlicher VB-Newbie, und arbeite an meinem ersten I-Net Prog... Es soll quasi ein kleiner Chat oder so werden.

Bis jetzt habe ich 2 Progs, einen Client und einen Server, wobei der Server auf ankommende Verbindungen wartet und der Client versucht, sich mit dem Server zu connecten.

Das mit dem Connecten und so funzt auch, aber wenn ich dann von einem Prog zum Anderen Messages schicke, kommen lustigerweise immer nur Zahlen an!!! Ich hab keine Ahnung, woran das liegen könnte...

Hier mal ein Stück Quellcode zum besseren Verständnis:


Dies hier ist die Senderoutine, bei Server&Client identisch:
Private Sub send_Click()

Dim datatxt As String

datatxt = namebox.Text & ": " & sendebox.Text

ws2.SendData datatxt
empfangsbox.Text = empfangsbox.Text & datatxt & vbCrLf
empfangsbox.Text = Len(empfangsbox.Text)

End Sub


Die Empfangsroutine sieht so aus:
Public Sub ws2_DataArrival(ByVal bytesTotal As Long)

Dim angekommen As String

ws2.GetData angekommen
empfangsbox.Text = empfangsbox.Text & angekommen & vbCrLf
empfangsbox.Text = Len(empfangsbox.Text)

End Sub

*** ws2 ist die Winsock


Kann mir einer Erklären, wieso jetzt *jede* Message als ZAHL ankommt??

Ich hab absolut gar keine Peilung, was das soll...

 

[Maximka]

Hi K@C!

Also ich habe keine Ahnung von VB,
aber programmiere in Delphi und PHP,
und wenn mich meine Programmierintuition nicht taeuscht,
dann ist Len doch die Funktion,
die die Laenge eines Strings zurueckgibt.

Und wenn du schreibst:
empfangsbox.Text = Len(empfangsbox.Text)
dann werden da nur Zahlen auftauchen.

Wenn du die Anzahl der Zeichen am Ende der Zeile einfuegen willst,
dann musst du die schon anhaengen.
z.B.:
empfangsbox.Text = empfangsbox.Text & datatxt & Len(empfangsbox.Text) & vbCrLf

Ich hoffe das hilft dir weiter.

 

[K@C]

Thanks, ich werds gleich mal ausprobieren...

Danke, muss ich gleich mal testen...

Ehrlich gesagt, ich hab die Zeile mit dem Len(......) aus nem Tutor rauskopiert, und mir ist erst nach dem Eintrag hier aufgefallen, dass ich gar keinen Plan hab, was es eigentlich bedeutet :%

Aber da war ich dann schon zu müde, um noch was zu machen...

Also Thx, jetzt werd ichs schon richten können... (hoffentlich