谁有用IDHTTP抓取网页HTML的例子,网页地址有重定向. 如题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 处理重定向只要把idhttp的handleredirect设置为trueget方法:procedure TForm1.Button1Click(Sender: TObject);var s: TmemoryStream;begin s:= TmemoryStream.Create; try IdHTTP1.Get(这里填写url, s); except on e: exception do begin Memo1.Lines.Text:= e.Message; end; end; s.SaveToFile('c:\1.htm'); s.Free;end;post方法:procedure TForm1.Button2Click(Sender: TObject);var sl: TStringList;begin sl:= TStringList.Create; sl.Add('a=123%26&b=456');//填写要post的参数,用&隔开,&本身用%26表示,注意要把httpforceencode设为false try Memo1.Lines.Text:= IdHTTP1.Post(这里填写url, sl); except on e: exception do begin Memo1.Lines.Text:= e.Message; end; end; sl.Free;end;大概就是这样了,似乎没什么难点 为什么就是delphi论坛进入,提示[公告]CSDN 论坛升级通知. DELPHI如何把其他类型文件当做EXE来执行? 各位大侠 TIdTCPClient 如何设置接收超时 一个关于ListBox的很简单的问题(但是怎么没有人知道呢?) 关于Activex传递参数的问题 EditMask的问题? csdn有问题了,我的可用分不增了 CreateProcess函数怎么用? 关于winsock下getsockopt的问题 0x01是16进制数???怎么定义?? 主程序持续运行十几多小时后提示"句柄无效" 如何在程序运行期用鼠标拖动控件并能改变其大小
procedure TForm1.Button1Click(Sender: TObject);
var
s: TmemoryStream;
begin
s:= TmemoryStream.Create;
try
IdHTTP1.Get(这里填写url, s);
except
on e: exception do
begin
Memo1.Lines.Text:= e.Message;
end;
end;
s.SaveToFile('c:\1.htm');
s.Free;
end;post方法:
procedure TForm1.Button2Click(Sender: TObject);
var
sl: TStringList;
begin
sl:= TStringList.Create;
sl.Add('a=123%26&b=456');//填写要post的参数,用&隔开,&本身用%26表示,注意要把httpforceencode设为false
try
Memo1.Lines.Text:= IdHTTP1.Post(这里填写url, sl);
except
on e: exception do
begin
Memo1.Lines.Text:= e.Message;
end;
end;
sl.Free;
end;大概就是这样了,似乎没什么难点