idhttp get google 出错
var
IDHTTP: TIDHttp;
ss: String;
begin
IDHTTP:= TIDHTTP.Create(nil); idhttp.Disconnect;
idhttp.HandleRedirects:= true; //必须支持重定向否则可能出错
idhttp.ReadTimeout:= 15000; //超过这个时间则不再访问
IdHTTP1.Request.UserAgent := '去掉了D7标识';
ss:=utf8toansi(idhttp.Get('http://www.google.com/index.php')); //UTF8编码转换
if pos('baidu',ss) > 0 then //随意找个关键词测试
showmessage('ok')
else
showmessage('no');end;
郁闷 只要get google baidu 就出错 求解
var
IDHTTP: TIDHttp;
ss: String;
begin
IDHTTP:= TIDHTTP.Create(nil); idhttp.Disconnect;
idhttp.HandleRedirects:= true; //必须支持重定向否则可能出错
idhttp.ReadTimeout:= 15000; //超过这个时间则不再访问
IdHTTP1.Request.UserAgent := '去掉了D7标识';
ss:=utf8toansi(idhttp.Get('http://www.google.com/index.php')); //UTF8编码转换
if pos('baidu',ss) > 0 then //随意找个关键词测试
showmessage('ok')
else
showmessage('no');end;
郁闷 只要get google baidu 就出错 求解
解决方案 »
- 程序员偶得闲技术区,欢迎大家加入我的技术群,共同讨论程序中的心得和体会
- 如何定义如下结构的文件????(100)
- shelllistview N个问题!~~~~~
- SQL Server 数据库连接问题
- 一个关于截获windows消息的问题,请各位大虾指教!
- RxLib for D7的下载地址 www.oxygensoftware.co.uk/download/rx275d7.zip
- 望高手赐教:如果用Richedit做编辑器,具体怎样用OLE来打开word文档?OLE怎么用啊?
- 请问如何使用BDE
- 怎样获取一个Label的Top属性的值??
- 如何判断Edit1.text的值不是数字?
- 使用httprio的问题
- 请问vcl50是什么意思?
GG好象就是不行,不过如果你用生成的程序好象可以,调试中会出错!