procedure TForm1.Button1Click(Sender: TObject);
var
str,code,path:string;
t,i,count :Integer;
done:Boolean;
postlist:TStringList;
response:TStringStream;
mytext :TextFile;
begin
//登陆代码
// response := TStringStream.Create('');
postlist := TStringList.Create; str := IdHTTP1.Get('http://www.fjwater.gov.cn/fangxun_fj/index.jsp?sys=2');
AssignFile(mytext,'e:/5.xml');
Rewrite(mytext);
Writeln(mytext,str);
end;
不知道为什么执行了上面一段之后返回这样的数据,读取其他网页很正常啊!,各位大侠帮忙看看啊!谢谢啦!
<html>
<head>
<TITLE>福建水利信息网</TITLE>
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</head>
<frameset rows="27,*">
<FRAME src='top.jsp?sys=2' noresize frameBorder='no' scrolling='no' id='top' name='top'>
<FRAME frameBorder='1' noresize scrolling='auto' id='main' name='main' src="/fangxun_fj/shuiqing/shuiQingAct.do">
<noframes>
<p>This page requires frames, but your browser does not support them.</p>
</noframes>
var
str,code,path:string;
t,i,count :Integer;
done:Boolean;
postlist:TStringList;
response:TStringStream;
mytext :TextFile;
begin
//登陆代码
// response := TStringStream.Create('');
postlist := TStringList.Create; str := IdHTTP1.Get('http://www.fjwater.gov.cn/fangxun_fj/index.jsp?sys=2');
AssignFile(mytext,'e:/5.xml');
Rewrite(mytext);
Writeln(mytext,str);
end;
不知道为什么执行了上面一段之后返回这样的数据,读取其他网页很正常啊!,各位大侠帮忙看看啊!谢谢啦!
<html>
<head>
<TITLE>福建水利信息网</TITLE>
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</head>
<frameset rows="27,*">
<FRAME src='top.jsp?sys=2' noresize frameBorder='no' scrolling='no' id='top' name='top'>
<FRAME frameBorder='1' noresize scrolling='auto' id='main' name='main' src="/fangxun_fj/shuiqing/shuiQingAct.do">
<noframes>
<p>This page requires frames, but your browser does not support them.</p>
</noframes>
提示信息是:
这个网页由若干框架构成,你的浏览器不支持这个功能。