Verfasst: 28.10.2004 01:52
Sag bitte noch mal.
Möchtest du nur prüfen ob da ein Server offen ist,
oder auch Daten versenden?
EDIT:
Vielleicht hilft dir dieser Code.
Möchtest du nur prüfen ob da ein Server offen ist,
oder auch Daten versenden?
EDIT:
Vielleicht hilft dir dieser Code.
Code: Alles auswählen
Procedure IsServer(IP$,Port) ;nur echte IP-Adressen verwenden
version=(2<<8)+1
If WSAStartup_(version,@was.WSADATA) = 0
s= SOCKET_(#AF_INET,#SOCK_STREAM,0);
If s <> #INVALID_SOCKET
addr.SOCKADDR_IN
addr\sin_family= #AF_INET;
addr\sin_port= htons_(Port)
addr\sin_addr= inet_addr_(IP$)
If connect_(s,@addr.SOCKADDR_IN,SizeOf(SOCKADDR_IN)) <> #SOCKET_ERROR
ret= 1
EndIf
closesocket_(s)
EndIf
WSACleanup_()
EndIf
ProcedureReturn ret
EndProcedure