檢測FireMonkey3下的本地IP地址

Question

需要檢測FireMonkey3下的本地IP地址。在VCL的版本，我已經使用單位的WinSock與它

WSAStartup(...) 
gethostname(...) 

一個限制方法：不需要使用任何第三方庫。我將ASTA組件移植到FireMonkey3平臺，並且不想在組件之間進行依賴關係。

Answer 1

如果你需要一個跨平臺解決方案嘗試使用印並列入IdStack單元

的TIdStack.AddLocalAddressesToList方法試試這個樣本

var 
    AAddresses: TStrings; 
begin 
    AAddresses := TStringList.Create; 
    try 
    TIdStack.IncUsage; 
    try 
     GStack.AddLocalAddressesToList(AAddresses); 
    finally 
     TIdStack.DecUsage; 
    end; 
    if AAddresses.Count > 0 then 
     //do something 
    finally 
    AAddresses.Free; 
    end; 
end;