請問Application Server在Create RemoteDataModule時 如何取得Client端的IP位址?? Use DCOM Connect. Delphi follower

------
Delphi

Hi:    我目前的做法是在 Client 端得到 IP後再上傳給 AP，不知其它大大是否有更好之寫法 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

請問可否在Application Server在Create RemoteDataModule時 抓到將Client端程式早已取得的IP位址? Delphi follower

------
Delphi

不行, RemoterDataModule Create 時,  不會有方法知道Client端的任何資訊, 你可以在 RemoterDataModule 自訂一個方法 讓 Client 端呼叫傳入 IP 來做,    例如:    procedure ClientLogin(const AIp: String); begin { Write Code Here } end;

如上所言.... 但有一函數可得知本身ip 為何.... function LocalIP : string; type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe : PHostEnt; pptr : PaPInAddr; Buffer : array [0..63] of char; I : Integer; GInitData : TWSADATA; begin WSAStartup($101, GInitData); Result := ''; GetHostName(Buffer, SizeOf(Buffer)); phe :=GetHostByName(buffer); if phe = nil then begin Exit; end; pptr := PaPInAddr(Phe^.h_addr_list); I := 0; while pptr^[I] <> nil do begin result:=StrPas(inet_ntoa(pptr^[I]^)); Inc(I); end; WSACleanup; end;

------
叔叔有練過,初學者不要學。

提問者您好:


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


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


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

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