想加入除错部分应该怎么写,比如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;
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;