Delphi 用IdHTTP控件获取网页源码报错

[zzw709]

代码如下：
try
v_Temp:=IdHTTP1.Get('http://www.google.com');
except
Showmessage('Error');
end;

抛异常为：
Project main.exe raised exception class EIdSocketError with message 'Socket Error # 10054
Connection reset by peer.'. Process stopped. Use Step or Run to continue.

不知道是什么原因造成的，有的时候可以，有的时候不行，不知道原因，请高手给出解释，谢谢

[Frank.WU]

根据代码 #10054 代码去官网查FAQ

[nkym0626]

百度有时候也出这样的错误

[无条件为你]

获取源码的方式很多，你采用的是最差的一种方法。不稳定。
你加分后我给你贴出其它方法。

[slmax1]

你换一个网址试试看

[cuit_xiong]

Get不是每个网站都行的，你换一个事实！

[mfpg01]

获得源码不稳定，有的版本可以，有的不可以。

[mfpg01]

试试这个吧。

function GetWebPage (Url:string): string;
var
Session,
HttpFile:HINTERNET;
szSizeBuffer:Pointer;
dwLengthSizeBuffer:DWord;
dwReserved:DWord;
dwFileSize:DWord;
dwBytesRead:DWord;
Contents:PChar;
begin
Session:=InternetOpen('',0,niL,niL,0);
HttpFile:=InternetOpenUrl(Session,PChar(Url),niL,0,0,0);
dwLengthSizeBuffer:=1024;
HttpQueryInfo(HttpFile,5,szSizeBuffer,dwLengthSizeBuffer,dwReserved);
GetMem(Contents,dwFileSize);
InternetReadFile(HttpFile,Contents,dwFileSize,dwBytesRead);
InternetCloseHandle(HttpFile);
InternetCloseHandle(Session);
Result:=StrPas(Contents);
FreeMem(Contents);
end;

[Mit1208]

没问题啊...
idhttp1.HandleRedirects :=True ;
memo1.Text :=IdHTTP1.Get('http://www.google.com') ;