*gelöst* Delphi Programm <-> Web Oberfläche //Kommunikation?

[Darkface]

Also ich bin mal an der mir schlüssigsten Variante dran geblieben (Real-TTX -> TCP Server).

Ich habe also mein XAMPP geschnappt, den Quellcode von Real-TTX in eine index.php datei geworfen...

Zitat von Real-TTX:

Hier ein PHP Beispiel für den Zugriff auf dein TCP Server :

Code:

<?php
$port = 21000; // >1024
$fp = fsockopen("tcp://127.0.0.1", $port, $errno, $errstr); // Verbindung aufbauen
if (!$fp) {
    echo "ERROR: $errno - $errstr<br />\n"; // Falls ein Fehler aufgetreten ist 
} else {
    fwrite($fp, "help\n"); // Hier der String der an dein Delphiprogramm gesendet werden soll (Vorzugsweise noch ein CR)
    echo fread($fp, 26); // Hier wird die Antwort ausgegeben
    fclose($fp);
}
?>

Dann das Delphi Program -> TCP Server lauscht auf Port 21000.

Also habe ich das Programm gestartet und den Server Verbunden. Anschließend die php aufgerufen. Im Delphi Programm wurde auch das TcpServer1Accept Event ausgelöst. Jedoch kann ich den Text der gesendet wird nicht empfangen.

Das Programm und die php sind im Anhang. Bei Aufruf der php wird ledeglich die MessageBox('Empfang') angezeigt, die MessageBox die danach kommen sollte (mit dem Empfangenen Text) nicht. Als würde er unendlich lang Empfangen und nie etwas ausgeben ...

Könnte mir da jemand einen Wink geben was falsch sein könnte?

Für die die nicht downloaden wollen auchnochmal das TcpServer1Accept Event:

Delphi-Quellcode:

procedure TForm1.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
var s:string;
begin
  ShowMessage('Empfang');
  s:=Clientsocket.Receiveln;
  ShowMessage(s);
end;

Danke & Gruß