<form action='http://www.blabla.com/login.php' method=POST> <input type='text' name='nick' id='insert_feld1'></td> <input type='password' name='passwort' id='insert_feld1'></td> <input type='submit' value='Login' id='insert_feld1'></td> |
//网页代码;
Soweit bin ich mit Hilfe der anderen artikel schon gekommen:
var
IdHTTP: TIdHTTP;
PostDataStream : TStringStream;
ParamData : TStringStream;
begin
IdHTTP:= TIdHTTP.Create(nil);
PostDataStream := TStringStream.Create('');
ParamData := TStringStream.Create('');
ParamData.WriteString('nick=name&passwort=pass');
IdHTTP.Post('http://www.blabla.com/login.php' , ParamData, PostDataStream);
postdatastream.Position:=0;
memo1.Text:=postdatastream.DataString;
end;
aber es funktioniert trozdem nicht. Der Fehler muss irgend wo bei den
übergebenen Daten liegen, weil als Antwort eine vernünftige HTML seite
kommt, nur eben das er mir sagt das pass und username nicht zusammen stimmen.
=====================================
response := TStringList.create;
POSTData := TStringList.create;
POSTData.text := 'add=1&cmd=_cart&business="msc921@hotmail.com"&item_number=1&...etc etc etc';
HTTP1.Post('http://www.paypal.com/cgi-bin/webscr' ,POSTData.text, response);