Delphi7下如何模拟HTTP post/get请求,并能够获取响应的文本.
不写delphi很多年希望各位高手给予帮助,关于Delphi7下如何模拟HTTP post/get请求,并能够获取响应的文本.是否有相关的控件? 我该如何去实现?能否给出实例代码多谢了。
[解决办法]
procedure TForm1.Button1Click(Sender: TObject); //使用Indy 控件 TIdHTTP
var sl:TStringList;
begin
memo1.Text :=IdHTTP1.Get('http://www.fj777.com'); //GET
sl:=TStringList.Create ;
sl.Add('user=abc');
sl.Add('pws=1234');
memo2.Text :=IdHTTP1.Post ('http://www.fj777.com/login.asp',sl); //POST
sl.Free ;
end;
[解决办法]
就是采用indy/ics的http客户端