想加入除错部分应该怎么写,比如http://ok567.com不存在或其他出错procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TStringStream;
begin
Stream := TStringStream.Create('');
idHttp1.Get('http://ok567.com',Stream);
Memo1.Lines.add(Stream.DataString);
Stream.Free;
end;
var
Stream: TStringStream;
begin
Stream := TStringStream.Create('');
idHttp1.Get('http://ok567.com',Stream);
Memo1.Lines.add(Stream.DataString);
Stream.Free;
end;
解决方案 »
- 中国振华电子集团(珠海)智能科技有限责任公司超垃圾公司千万不要去啊。小心
- delphi获取网页源码长度有限制。请问怎么解决 贴出代码 大牛们来看看吧
- FlatStyle 里面的FlatStringGrid 的问题
- 恭喜哈欠夫妇造人成功
- a + b + c + d -e-f 的 逆波兰式是怎样的?
- wwdbLRcbAccountBook对象在InfoPower 4000的什么版本中啊,谢谢各位大侠指教!!!
- 各位请帮忙看一下是哪里出了问题?
- 关于取不数问题!
- 如何在合并word文档的时候.两篇文档之间加入分页符? cg1120(代码最优化)老兄,回得话快来领分丫!
- 为什么没人回答我的问题,你们都那么菜吗?
- 急救:关于一个报表统计的问题
- 用什么组件好?
var
Stream: TStringStream;
begin
try
Stream := TStringStream.Create('');
idHttp1.Get('http://zzok567.com',Stream);
Memo1.Lines.add(Stream.DataString);
Stream.Free;
except
ShowMessage('无法连接!');
end;
end;
....
Except on E:EXCEPTION DO
SHOWMESSAGE(E.Message);
END;
。
。
EXCEPT
。
END;
Stream := TStringStream.Create('');
idHttp1.Get('http://zzok567.com',Stream);
Memo1.Lines.add(Stream.DataString);
Stream.Free;
except
ShowMessage('!@#$%^&!');
end;