以下為程式部分: unit Unit1; interface uses SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Button1: TButton; IdTCPClient1: TIdTCPClient; Button2: TButton; Label2: TLabel; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.xfm} procedure TForm1.FormCreate(Sender: TObject); begin label1.Caption:='Input the WWW Website:'; label2.Caption:='the IP is:'; button1.Caption:='Sure'; button2.Caption:='Close'; edit1.Text:=''; edit2.Text:=''; end; procedure TForm1.Button1Click(Sender: TObject); begin try idtcpclient1.Host:=edit1.Text; idtcpclient1.Connected(); edit2.Text:=idtcpclient1.Socket.Binding.PeerIP ; idtcpclient1.Disconnect; except showmessage('disconnect'); end; end; procedure TForm1.Button2Click(Sender: TObject); begin close; end; end. 我的問題是： 我的程式執行時網址不能轉成IP， 所以要麻煩大家幫我看看， 是不是哪個地方有問題？ 順便告訴我怎麼改！ 我是Delphi的初學者 麻煩大家 先在這邊說聲謝謝

PO程式碼的方式請參考版規說明,煩請修改謝謝您的配合 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=58991 ********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

謝謝你的提醒 我知道了 上述我PO的程式是老師教的,於是自己又自己寫了一便 可是結果卻出現了我能輸入www.yam.com.tw 按下確定鈕後 直接跑出視窗,可是我是希望能跑出IP 也不知道是不是我自己寫錯 所以我希望大家能幫我找出哪裏的錯 還是說本身這個程式不是這樣寫的 或者是說我根本就不懂這程式再寫些什麼 再度麻煩大家了

引言: 以下為程式部分: unit Unit1; interface uses SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Button1: TButton; IdTCPClient1: TIdTCPClient; Button2: TButton; Label2: TLabel; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.xfm} procedure TForm1.FormCreate(Sender: TObject); begin label1.Caption:='Input the WWW Website:'; label2.Caption:='the IP is:'; button1.Caption:='Sure'; button2.Caption:='Close'; edit1.Text:=''; edit2.Text:=''; end; procedure TForm1.Button1Click(Sender: TObject); begin try idtcpclient1.Host:=edit1.Text; idtcpclient1.Port:=80;//指定一個連接port.WWW通常都是80 idtcpclient1.Connect(5000);//開始連接,5000指的是time out的時間. //idtcpclient1.Connected(); if idtcpclient1.connected() then //判斷有沒有連接成功? begin edit2.Text:=idtcpclient1.Socket.Binding.PeerIP ; end; idtcpclient1.Disconnect; except showmessage('disconnect'); end; end; procedure TForm1.Button2Click(Sender: TObject); begin close; end; end.

改成紅色的部份就可以了... 說明都寫在註解上了~~ Best Regards, Rex Chiu

謝謝你的幫忙 我現在已經對此程式 OK 了唷

TIdStack.ResolveHost TIdStack Convert a host name into an IP address. function ResolveHost(const AHost: string): string; Parameters const AHost: string Host name to convert. Return Value String - IP address for the host name. Description ResolveHost is a String function that returns the IP address for a given host name specified by the AHost parameter. For example, if AHost is set to "wvnvm.wvnet.edu", the function will return "129.71.2.4". If AHost was set to 129.71.2.4", this function returns "129.71.2.4".

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.