Hallo
ich versuche gerade ein Chatserver in Delphi zu bauen.
Die Clienten sind einfache Browser.
Das PHPScript sieht zum testen erstmal so aus:
Code:
<?php
$socket = @fsockopen('
localhost', '130');
$read = @fread($socket, 4096);
$read = trim($read);
echo $read;
@fputs($socket, 'TESTSTRING');
@fclose($socket);
?>
Ich habe mir gedacht, dass ich TServerSocket verwende.
Das ganze läuft soweit auch ganz gut ( $read wird ausgegeben und TESTSTRING wird an den Server übermittelt und wird dort auch angezeigt.
Nur das Problem ist, dass der Browser nach fputs sich vom Server trennt.
Ich habe jetzt ehrlich gesagt keine Ahnung, ob das PHPScript oder mein
Programm daran schuld ist.
Hat jemand ein Vorschlag oder nen Rat, wie die Verbindung dauerhaft (mit ca. 6 B/s) aufgebaut bleibt,
sodass man jedem Client mit Serversocket1.Socket.Connections[serversocket1.Socket.ActiveConnections - 1].SendText('DER_TEXT');
die Letzte Nachricht senden kann?
MFG
Björn