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

[Darkface]

So nach ausreichend langen Tests ist diese Art der Übertragung absolut Funktionstüchtig ich bin begeistert !

Dieser Messagebox Bug war nach Neustart von Delphi & neu kompilieren weg ^^.

Außerdem habe ich meinen Browser veranlasst in einer Dauerschleife die Zahlen von 1 bis 50 in jeweils einer Zeile zu senden, habe diese dann vom Programm einlesen und auf Übertragungsfehler überprüft. Als mir mein Programm dann fröhlich meldete: "11743/11743 //Alle richtig" hab ichs dann auch geglaubt . Danke an Real-TTX für die TCP Server Idee die perfekt funktioniert!

Nochmal QuellText und im Anhang auch alle Dateien von der Funktionierenden Lösung:

PHP:

Code:

<?php
$port = 21000;
$fp = fsockopen("tcp://127.0.0.1", $port, $errno, $errstr);
if (!$fp) {
    echo "ERROR: $errno - $errstr
\n";
} else {
    fwrite($fp, "Text der Übertragen werden soll");
    fclose($fp);
}
?>

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  If Button1.Caption='Verbinden' Then //Falls nicht Verbunden
  begin
    TcpServer1.Active:=true;          //Verbinden
    Button1.Caption:='Trennen';       //Button entsprechend umbenennen :D
  end Else
  begin                               //Falls Verbunden
    TcpServer1.Active:=false;         //Trennen
    Button1.Caption:='Verbinden';     //Button entsprechend umbenennen :D
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  TcpServer1.Close;
end;

procedure TForm1.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
var s:string;
begin
  s:=Clientsocket.Receiveln;  //Zeile Empfangen...
  ShowMessage(s);             //..und zweimal...
  Memo1.Lines.Add(s);         //ausgeben
end;

Danke allen war ja am Ende ganz Simpel - Damit ist auch ein umfangreicheres Webinterface ohne Probleme sehr sehr einfach möglich!
Was haltet ihr von dieser Lösung? Gibt es villeicht noch Vorschläge zur Verbesserung?

Gruß