大家看看。。希望高手能给解决 谢谢了!!!procedure TForm1.Button1Click(Sender: TObject);
var
http:tidhttp;
result:string;
begin
http:=tidhttp.Create(nil);
http.Request.UserAgent:='Mozilla/5.0';
try
result:=http.Get('http://www.netzy8.cn');//这个网站读取的时候就会报错
result:=http.Get('http://www.baidu.com');//读取百度却不会报错。能正常渠道HTML代码 这是为什么呢????
except
if http.Response.ResponseCode=304 then
result:='loction'+http.Response.Location;
end;
http.Free;
memo1.Text:=result;
end;
var
http:tidhttp;
result:string;
begin
http:=tidhttp.Create(nil);
http.Request.UserAgent:='Mozilla/5.0';
try
result:=http.Get('http://www.netzy8.cn');//这个网站读取的时候就会报错
result:=http.Get('http://www.baidu.com');//读取百度却不会报错。能正常渠道HTML代码 这是为什么呢????
except
if http.Response.ResponseCode=304 then
result:='loction'+http.Response.Location;
end;
http.Free;
memo1.Text:=result;
end;
解决方案 »
- Microsoft AppLocale 用dlephi杂用啊
- 如何实现一个线程安全的,可以立即写入,读取可以等待的队列.
- TDispParams,这个函数如何使用阿?
- 请教。怎么隐藏PageControl 上的那个Tab ?
- 如果你真是Delphi高手,请把你的MSN留下
- 我是初学DELPHI的低手,请问大侠Sender:Tobject是什么意思呀,详见内。。
- DELPHI之前景,大家怎么看待DELPHI以后的发展潜力呢。高手门给点意见啊。
- 哪位高手有用delphi写的NAT源代码,主要用来学习和研究
- 菜鸟发问:如何把一个连接数据库的应用程序应用到未安装delphi和任何数据库的机子上?
- Delphi XE7开发的ANDROID程序包含广告,怎么去除???
- delphi怎样才能不建立连接直接截取到指定端口的数据?
- 有关delphi中数组做函数参数的问题
http.Get('http://www.netzy8.cn');
except
on E: Exception do
MessageBox(HANDLE, PChar(E.Message), '提示', MB_ICONWARNING);
end;看是什么异常信息,一般看提示 网上搜下 就知道原因了
我反正读两个都正常