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!