FireMonkey3에서 로컬 IP 주소 검색

Question

FireMonkey3에서 로컬 IP 주소를 검색해야합니다. VCL 버전에서, 나는 그것이

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

한 가지 제한을위한 방법과 장치 의 WinSock을 사용하고 있습니다 :는 제 3 자 라이브러리를 사용할 필요가 없습니다. AST 구성 요소를 FireMonkey3 플랫폼으로 이식하고 있으며 구성 요소 간의 종속성을 원하지 않습니다.

Answer 1

당신이 크로스 플랫폼 솔루션을 필요로하는 경우 인디 사용하여 시도하고 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;