請問一下有什麼方法可以寫支程式...在client端定時發送訊息給server server就可以知道client端的ip client端可能是在router內部,所以client端上面ㄉip是虛擬的 在server端接收ㄉ必須是client端連外ㄉ真實ip

如果你是用 Indy 元件的話：

TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerIP
(AThread:TIdPeerThread)

寫得很簡單，希望你看得懂！ 發表人 -

引言: 如果你是用 Indy 元件的話：

TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerIP
(AThread:TIdPeerThread)

寫得很簡單，希望你看得懂！ 發表人 - >< face="Verdana, Arial, Helvetica"> 不好意思喔！小弟剛接觸有關於DELPHI在網路上面ㄉ設計， 所以不是很瞭解你寫ㄉ這段ㄉ意思，因為我連架構都不清楚該怎麼做！ 我ㄉ想法是： 1. 寫一支程式在CLIENT端常駐，並定時向SERVER端發送訊息 （應該要發送什麼樣ㄉ訊息呢？） 2. 寫一支程式在SERVER端常駐，透過CLIENT端發送ㄉ訊息得知CLIENT端ㄉIP 不知道這樣ㄉ架構對不對？ 如果是對ㄉ，請問一下上面寫ㄉ那段程式是用在哪裡咧？ 還請不吝指教，謝謝喔

引言: 不好意思喔！小弟剛接觸有關於DELPHI在網路上面ㄉ設計， 所以不是很瞭解你寫ㄉ這段ㄉ意思，因為我連架構都不清楚該怎麼做！ 我ㄉ想法是： 1. 寫一支程式在CLIENT端常駐，並定時向SERVER端發送訊息 （應該要發送什麼樣ㄉ訊息呢？） 2. 寫一支程式在SERVER端常駐，透過CLIENT端發送ㄉ訊息得知CLIENT端ㄉIP 不知道這樣ㄉ架構對不對？ 如果是對ㄉ，請問一下上面寫ㄉ那段程式是用在哪裡咧？ 還請不吝指教，謝謝喔 < face="Verdana, Arial, Helvetica"> 要發送什麼訊息是看你的目的嚕！ 如果你只是要定時取得Client的IP， 你可以使用Delphi內建的Indy元件的IdTCPServer及IdTCPClient 當你的Client執行

IdTCPClient1.Connect;

(如果正確連結) Server會觸發OnConnect事件：

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
  //取得Client IP
  TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerIP;  
  //接下來看你要不要傳訊息給Client，還是把他斷線也行
  //......
end;

你可以參考IndyDemo的程式裡的Chat範例！ 應該會更有心得！ 正面思考 正面思考～～

如果只是想要知道Client端目前使用的真實IP(像是IP Share的IP Address) 提供最簡單的做法：    Server端：寫個網頁，會提示 User 端的IP．以ASP為例， Response.Write Request.ServerVariables("Remote_Addr") Cilent端：用IE、NN 瀏灠該網頁時，就會出現IP位址了．    如果您要自己寫Client端的AP，就用nmHttp去抓下該網頁的內容．而該網頁的內容就是Client端的IP．nmHttp的用法請參考Delphi內附的範例程式．    Server端實作範例： http://www.jaya.idv.tw/getmyip.asp Client端實作範例：http://www.jaya.idv.tw/download/redirect.asp?fileid=27 如果您要自己寫Server及Client端的AP，請參考zaguan的做法．

> 在server端接收ㄉ必須是client端連外ㄉ真實ip
[發表] WhatIsMyIP 顯示電腦的真實 IP ( WAN IP)
http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=85382

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

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

提問者您好:


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


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


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

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