检测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;