Bin gerade dabei ein Programm Netzwerkfähig zu machen. Es läuft auch so wie ich mir das vorstelle. Ein Hauptprogramm (Server) stellt die Daten bereit, ein Anzeigeprogramm (Client) zeigt die Daten auf jedem in Netzwerk angeschossenen Rechner an.
Das Problem ist nur das sich das Hauptprogramm nach einer Zeit ohne Fehlermeldung verabschiedt. Der Client zeigt dann natürlich nichts mehr an. Starte ich das Hauptprogramm wieder, zeigt der Client bis zum nächsten Abbruch des Hauptprogrammes die Daten wieder richtig an. Code anbei.
Weiß jemand woran könnte es liegen.
Client:
Code: Alles auswählen
Netz:
ConnectionID = OpenNetworkConnection( ip$, Port)
If ConnectionID
*Buffer = AllocateMemory(10000)
Delay(100)
ReceiveNetworkData(ConnectionID, *Buffer, 10000)
a$ = PeekS(*Buffer)
Delay(100)
FreeMemory(*Buffer)
CloseNetworkConnection(ConnectionID)
Endif
Code: Alles auswählen
Netzwerk:
If CreateNetworkServer(0, Port)
SEvent = NetworkServerEvent()
If SEvent
ClientID = EventClient()
SendNetworkString(ClientID, net$)
EndIf
CloseNetworkServer(0)
EndIf
Return
Gruß Amiga123