Winsock - modtage data

Ja det er jo ikke nemt at se hvad du laver forkert... uden at se koden.. :o)

men du kan prøve at se her:
http://www.udvikleren.dk/article.php?aid=141&techid=4

http://www.ble3f.csclan.dk/Vengro.txt

Der har du både server og klient delen incl. :)

hvad sender du i Text4.Text

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Winsock1.GetData Data, vbString
    Text3.Text = Data
    Winsock1.SendData Text4.Text
End Sub

du kan ikke sende ingenting... (Text4.Text = "")

Hvad mener du? Virker fint nok med at sende... men jeg skal bare først trykke på send ved klienten hvis jeg vil modtage nogle beskeder!

Du roder vist lidt....


'Klient delen:
Private Sub Command2_Click()
  W.Protocol = sckUDPProtocol
  W.RemotePort = Text2.Text
  'W.Bind                  <- Her kan du ikke bruge .Bind men .Connect
  W.Connect "10.0.0.4", "2800"
End Sub

så kunne det være at det virker som du ønsker...

Her er et lille eksempel på client/server (UDP)

http://home.get2net.dk/sjh/eksperten/400367/UDP.zip

De øverste virker ikke... prøver lige det andet når jeg får tid :)

Det er jo klart at serveren først sender den tekst der står i text4.text, da du venter på den event der hedder DataArrival - Det er jo når der startes på at modtage data fra klienten.

Du skulle måske lave en ny sub med en cmdSend-knap der sender dine data - eller benytte den event der registrerer når en klient connecter på serveren til at sende din første tekst/data fra serveren til klienten

Lukker - er stoppet med at lege med VB, er gået over til ASP