Hi,
ich habe mal versiucht, ob ich mit PHP socket auf Delphi zugreifen kann.
Das geht fast, aber leider nicht ganz
Server ind Delphi :
Delphi-Quellcode:
procedure TForm1.SSConnect(AThread: TIdPeerThread);
begin LB.Items.Clear;
LB.Items.Add('Connect');
end;
procedure TForm1.SSExecute(AThread: TIdPeerThread);
VAR
MSG:string;
begin
Msg := AThread.Connection.ReadLn;
LB.Items.Add(MSG);
end;
procedure TForm1.SSDisconnect(AThread: TIdPeerThread);
begin
LB.Items.Add('DisConnect');
end;
PHP Code :
Delphi-Quellcode:
$fp = fsockopen ("192.168.2.9", 9999, $errno, $errstr, 30);
fputs ($fp, "TEST");
fwrite($fp,"TEST");
fclose($fp);
Das Connect kommt, und das Disconnect auch. Leider kommt nicht der "TEST"
Was habe ich da falsch ?
Geht das überhaupt ?
Danke
Andreas