IdTCPclient: Socket zum Senden von POST-anweisungen

[bonanza]

Hi,

ich versuche ein paar POST-Anweisungen, an ein PHP script zu senden. Dies versuche ich mit der idtcpclient-komponente, da der idhttp bei mir leider nicht so einzustellen ist, dass er wie der firefox funktioniert (siehe hier)

mein bisherige Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
para: tstringlist;
begin
para := tstringlist.Create;

para.Add('POST /Pages/Login/Login.php?webgrafik=0&language=0 HTTP/1.1');
para.Add('Content-Type: application/x-www-form-urlencoded');
para.Add('name=x&pw=y');
para.Add('Connection: close');

IdTcpClient1.Connect;

idtcpclient1.Socket.Writeln(para.text);
showmessage(idtcpclient1.Socket.ReadLn('',1000));

IdTcpClient1.Disconnect;

para.Free;
end;

im Objektinspektor habe ich sowohl die korrekte IP, als auch Port 80 angegeben. Doch zurückkriege ich immer nur den Statuscode 400.
Die gesendete Parameter und auch der Pfad zum PHP-script sind garantiert korrekt.

Was mache ich falsch?


danke schonmal im voraus für eure Hilfe!