需要在FireMonkey3下检测本地IP地址。在VCL版本中,我一直在使用单元WinSock及其方法
WSAStartup(...)
gethostname(...)
一个限制:不需要使用任何第三方库。我正在将ASTA组件移植到FireMonkey3平台,并且不想在组件之间建立依赖关系。
最佳答案
如果您需要跨平台解决方案,请尝试使用 Indy 和 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;
关于delphi - FireMonkey3下检测本地IP地址,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/20568096/