Tweet
Hallo, ich will von meiner Homepage(mit PHP) Strings über TCP/IP schicken.
Beim Verbindungsaufbau bekomme ich aber einen Socket-Fehler #10054.
Mein Delphi Programm:
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Server: TIdTCPServer;
procedure TForm1.FormActivate(Sender: TObject);
begin
Server.active := true;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Server.active := false;
end;
procedure TForm1.ServerExecute(AThread: TIdPeerThread);
var
MSG: String;
begin
MSG := AThread.Connection.ReadLn();
Memo1.Lines.Add(MSG);
end;
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Wenn ich über FireFox direkt meine IP mit dem Port eingebe (zB 123.123.123.123:6666) bekomme ich diverse Infos.
Was könnte die Ursache sein?
In einem Forum habe ich gelesen das ich noch ein #13#10 hinterhängen muss, sonst bekomm ich ein timeout.
Wo genau muss das rein?
Kann mir jemand helfen?
Habt ihr vielleicht auch andere Vorschläge wie ich Strings von meiner Homepage zu meinem Delphi Programm zu Hause schicken kann?
Ich bin echt am verzweifeln.
Danke, MfG sdx
Beim Verbindungsaufbau bekomme ich aber einen Socket-Fehler #10054.
Mein Delphi Programm:
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Server: TIdTCPServer;
procedure TForm1.FormActivate(Sender: TObject);
begin
Server.active := true;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Server.active := false;
end;
procedure TForm1.ServerExecute(AThread: TIdPeerThread);
var
MSG: String;
begin
MSG := AThread.Connection.ReadLn();
Memo1.Lines.Add(MSG);
end;
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Wenn ich über FireFox direkt meine IP mit dem Port eingebe (zB 123.123.123.123:6666) bekomme ich diverse Infos.
Was könnte die Ursache sein?
In einem Forum habe ich gelesen das ich noch ein #13#10 hinterhängen muss, sonst bekomm ich ein timeout.
Wo genau muss das rein?
PHP-Code:
$fp = fsockopen("123.123.123.123", 6666, $errno, $errstr, 30);
if (!$fp) {
echo "$errstr ($errno)";
} else {
fwrite($fp, "HEYHO");
while (!feof($fp)) echo fgets($fp, 128);
fclose($fp);
}
Habt ihr vielleicht auch andere Vorschläge wie ich Strings von meiner Homepage zu meinem Delphi Programm zu Hause schicken kann?
Ich bin echt am verzweifeln.
Danke, MfG sdx
Moderator
Kommentar