用idhttp post 方法发送数据到服务器上。实现数据和网页的交互。

最新推荐文章于 2026-05-17 06:51:25 发布

转载最新推荐文章于 2026-05-17 06:51:25 发布 · 7.7k 阅读

标签

#服务器 #insert #input #action #login

Delphi IdHttp控件专栏收录该内容

31 篇文章

订阅专栏

本文探讨了如何通过网页代码实现登录操作，并介绍了自动化登录功能的实现方式，重点关注了数据发送与接收过程中的常见错误及解决策略。

//网页代码；

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);