get都能获得服务端,服务端处理完你get的请求就会返回的一个字符串,看看这个字符串的内容就可以判断了
var
ss: TStringStream;
begin
ss := TStringStream.Create('');
idHTTP1.get(url, ss);
ss.Position := 0;
ShowMessage(ss.DataString);// 看看这个字符串的内容,根据它来判断是否成功
ss.Free;
end;
;不过这个异常压根就是没发成功,你用try 来包裹一下
var
ss: TStringStream;
begin
ss := TStringStream.Create('');
idHTTP1.get(url, ss);
ss.Position := 0;
ShowMessage(ss.DataString);// 看看这个字符串的内容,根据它来判断是否成功
ss.Free;
end;
;不过这个异常压根就是没发成功,你用try 来包裹一下
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;
处理不成功,还是程序崩溃。