谁有用IDHTTP抓取网页HTML的例子,网页地址有重定向.
如题
[解决办法]
处理重定向只要把idhttp的handleredirect设置为true
get方法：
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;
大概就是这样了，似乎没什么难点
