PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : ahhh ich bin am verzeifeln

Stiba
10.02.2002, 14:17
was ist daran falsch???!!! sobald ich das prog aufrufe schließt der server alles verbindugnen.... und die daten ,die in "IP" stehen, also die ip, kommt nicht an!

Private Sub Form_Load()
Dim ip As String
On Error GoTo err:
ip = Winsock1.LocalIP

If Winsock1.LocalIP <> &quot;127.0.0.1&quot; Then

Winsock1.RemoteHost = &quot;127.0.0.1&quot;
winsock1.Protocol = sckUDPProtocol
Winsock1.RemotePort = &quot;1629&quot;
Winsock1.Connect

Winsock1.SendData ip
End If
GoTo ende:
err:

MsgBox &quot;fehler&quot;
ende:
End Sub

MeltDown
10.02.2002, 15:19
Original von Stiba

Winsock1.RemotePort = &quot;1629&quot;



dass z.b. :D :D

muss

winsock1.remoteport = 1629

heißen. Werde mir den code aber noch genauer anschauen. Kannst du vlllt auch den sourecode von dem server posten ??

cya
Stiba
10.02.2002, 16:43
der source vom server kann ich nicht posten, bzw. der ist noch nicht fertig.. benutze zur Zeit das prog RawPortTcp... naja ich probiers mal ohne &quot; &quot;


so far
cYrus
10.02.2002, 17:13
das mit den Anführungs und Schlusszeichen sollte kein Prob machen, denke es liegt daran, dass du die Daten gleich nach dem Connect senden willst und der Server gar noch ned connected is, wenn die daten gesendet werden desshalb musst du noch den status von winsock überprüfen und erst beim connected darf er dann halt Daten senden..

so long
cYrus