16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var
ss: TStringStream;
begin
try
ss := TStringStream.Create('');
idHTTP1.get(url, ss) ;
ss.Position := 0;
ShowMessage(ss.DataString);// 看看这个字符串的内容,根据它来判断是否成功
ss.Free;
except
on EConvertError do
showmessage('处理失败!');
end;
end;
处理不成功,还是程序崩溃。
var
ss: TStringStream;
begin
ss := TStringStream.Create('');
idHTTP1.get(url, ss);
ss.Position := 0;
ShowMessage(ss.DataString);// 看看这个字符串的内容,根据它来判断是否成功
ss.Free;
end;
;
不过这个异常压根就是没发成功,你用try 来包裹一下