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; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |