16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button3Click(Sender: TObject);
Var
H:string;
begin
If Edit4.Text<>'' Then
begin
H:=idhttp2.Get('http://www.5sf.com/index.asp');
Memo3.Clear;
Memo3.Lines.Add(H);
Memo3.Lines.SaveToFile(Edit3.text);
ClearMemory;
end
Else
begin
MessageBox(Handle,'请先设置生成静态的时间间隔','注意',MB_ICONWARNING);
Edit4.SetFocus;
Edit4.Color:=Clred;
End;
end;
try
H:=idhttp2.Get('http://www.5sf.com/index.asp');
except
//异常处理代码
end;