IdTCPClient元件偵錯問題 |
|
缺席
|
|
laku0121
一般會員   發表：39 回覆：49 積分：17 註冊：2002-10-30 發送簡訊給我 |
我在程式中寫入
procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
Edit2.Text := IdTCPClient1.Socket.Binding.PeerIP;
IdTCPClient1.Disconnect;
end; procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Clear;
IdTCPClient1.Host := DNS.Text;
IdTCPClient1.Port := StrToInt(Port.Text);
IdTCPClient1.Connect();
try
ShowMessage('連線成功...');
except
ShowMessage('連線失敗...');
end;
end;
為何每一次故意輸入錯誤的網址時,不能出現連線失敗,而是如下圖這種錯誤呢?
|
|
laku0121
一般會員 發表：39 回覆：49 積分：17 註冊：2002-10-30 發送簡訊給我 |
引言: 我在程式中寫入 procedure TForm1.IdTCPClient1Connected(Sender: TObject); begin Edit2.Text := IdTCPClient1.Socket.Binding.PeerIP; IdTCPClient1.Disconnect; end; procedure TForm1.Button1Click(Sender: TObject); begin Edit2.Clear; IdTCPClient1.Host := DNS.Text; IdTCPClient1.Port := StrToInt(Port.Text); IdTCPClient1.Connect(); try ShowMessage('連線成功...'); except ShowMessage('連線失敗...'); end; end; 為何每一次故意輸入錯誤的網址時,不能出現連線失敗,而是如下圖這種錯誤呢?終於讓我給解決了....只要將這一段改為(下面)..就成功了 procedure TForm1.Button1Click(Sender: TObject); begin Edit2.Clear; IdTCPClient1.Host := DNS.Text; IdTCPClient1.Port := StrToInt(Port.Text); IdTCPClient1.Connect(); try ShowMessage('連線成功...'); except on E.Exception do Begin ShowMessage('連線失敗...'); end; end; end; |
發表時間：2003-07-18 17:42:23
IP:211.76.xxx.xxx 未訂閱
系統時間：2024-05-08 12:49:11
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |