新人來鳥。。。。
code:=idhttp1.get(url);
現在需要這樣來獲得一個url的內容，但是如果這個網址打不開就會提示：
Socket Error # 11001 Host not found.
我想idhttp1能不能先判斷一下這個url能否連接，能再get，不能的話就給出一個有好的提示。
如何實作呀~~~~~
uj5u.com熱心網友回復：
procedure TForm27.Button1Click(Sender: TObject);
begin
try
Caption := IdHTTP1.Get('http://www.awtw.org/resource.html');
except
on E: Exception do
end;
ShowMessage('not find');
end;
uj5u.com熱心網友回復：
還有一個辦法，就是呼叫InternetOpenUrl函式，判斷回傳的狀態InternetOpen
InternetOpenUrl
提供個思路
具體用法你查查資料吧
uj5u.com熱心網友回復：
uses IdException;
procedure TForm1.FormCreate(Sender: TObject);
var
code: string;
begin
try
code:=idhttp1.Get('http://dh--jhdkhdkhddy7');
except
on E: EIdHTTPProtocolException do ShowMessage(E.ErrorMessage);
on E: EIdSocketError do
if E.LastError = 11001 then
ShowMessage('主機找不到！')
else
ShowMessage(E.Message);
else
ShowMessage('Unknown Error!');
end;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/97414.html
標籤：VCL組件開發及應用