wenn ich meine IP und Port (z.B. 84.123.45.187:6789) im Browser aufrufe, sollte dieses Programm doch dann irgendwas ausgeben oder nicht?
Oder verlangt der Browser, dass man zuerst die Headerdaten mit HTTP und Statuscode sowie Typ zurückliefert?
Wundert mich aber, dass sowas bei simplen Textdaten nötig ist...
Code: Alles auswählen
Enumeration
#Server
EndEnumeration
If InitNetwork()=0:MessageRequester("Fehler","TCP konnte nicht initialisiert werden!",0):End:EndIf
If CreateNetworkServer(#Server,6789)=0:MessageRequester("Fehler","Server konnte nicht initialisiert werden!",0):End:EndIf
...
Repeat
EventID=WaitWindowEvent()
SEvent = NetworkServerEvent()
If SEvent
ClientID = EventClient()
Select SEvent
Case 1
MessageRequester("Erfolg!", "Connect erfolgreich, liefere Daten zurück.", 0)
SendNetworkString(ClientID,"Test"+#CRLF$+#CRLF$)
EndSelect
EndIf
Until EventID=#PB_Event_CloseWindow
CloseNetworkServer(#Server)
End