Question

delphi 网页源代码

如何用delphi获取网页的源代码 而且能获取重定向后的网页
比如获取一个论坛的源代码 然后能输入用户名密码登录
还能返回登录后的网页
说明:不要用 delphi 的 webbrowser 控件
用其他的怎么做呀

Answer 1

先在IndyClients控件集里填加idhttp到Form里
然后把idhttp的HandleRedirects设置为true
一般登陆过程是POST的 所以需要用idhttp post来写具体代码在下面
procedure TForm1.Button1Click(Sender: TObject);
var
sParams:TStringStream;
begin
sParams:=TStringStream.Create('问号后面的参数 也就是提交的登陆参数');
sParams.WriteString();
IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
Memo1.Text:=Idhttp1.Post('提交网页要加http://',sParams);
end;

Answer 2

uses idhttp;

function getPage(URL:String):string;
var
http:tidhttp;
begin
result:='';
http:=tidhttp.Create(nil);
try
result:=http.Get(url);
except
// 错误304（转向）
if http.ResponseCode=304 then
result:='location='+http.Response.Location;
end;
http.Free;
end;

Answer 3

以下就是的，你可以试试，应该可以的：
uses idhttp;

function getPage(URL:String):string;
var
http:tidhttp;
begin
result:='';
http:=tidhttp.Create(nil);
try
result:=http.Get(url);
except
// 错误304（转向）
if http.ResponseCode=304 then
result:='location='+http.Response.Location;
end;
http.Free;
end;

Answer 4

为什么不用webbrowser？
这个控件有漏洞吗？