Получение локального IP адреса [win & linux]

[Ism]

Получение локального IP адреса в некоторых версиях windows и некоторых версиях linux

{$IFDEF WINDOWS},Winsock {$ENDIF},process,strutils

procedure GetCommandResult(Command:string;Params:TStringList);
var
VProcess: TProcess;
begin
VProcess := TProcess.Create(nil);
try
VProcess.Executable:=Command;
VProcess.Parameters:=Params;
VProcess.Options := [poWaitOnExit, poUsePipes];
VProcess.Execute;
Params.LoadFromStream(VProcess.Output);
finally
FreeAndNil(VProcess);
end;
end;

function GetLocalIP: string;
{$IFDEF UNIX}
var
I:Integer;
Params, VStrTemp: TStringList;
{$ENDIF}
{$IFDEF MSWINDOWS}
var
VWSAData: TWSAData;
VHostEnt: PHostEnt;
VName: string;
const CFormatIPMask = '%d.%d.%d.%d';
{$ENDIF}
begin
Result := '';
{$IFDEF UNIX}
VStrTemp := TStringList.Create;
Params:=TStringList.Create;
Params.Add('-n');
GetCommandResult('/sbin/route',Params);
VStrTemp.Clear;
VStrTemp.Sorted:=true;
VStrTemp.Duplicates:=dupIgnore;
for i:=0 to Params.Count-1 do
begin
if (Pos('0.0.0.0',Params[i])>0) and (Pos('U',ExtractWord(4,Params[i],[' ']))>0) then VStrTemp.Add(ExtractWord(8,Params[i],[' ']));
end;
Params.Clear;
Params.Add(VStrTemp[0]);
GetCommandResult('/sbin/ifconfig',Params);
Result:=Params.Text;
Result:=Copy(Result,Pos('inet addr',Result)+10,20);
Result:=Trim(ExtractWord(1,Result,[':',' ']));
FreeAndNil(VStrTemp);
FreeAndNil(Params);
{$ENDIF}
{$IFDEF MSWINDOWS}
{$HINTS OFF}
WSAStartup(2, VWSAData);
{$HINTS ON}
SetLength(VName, 255);
GetHostName(PChar(VName), 255);
SetLength(VName, StrLen(PChar(VName)));
VHostEnt := GetHostByName(PChar(VName));
with VHostEnt^ do
Result := Format(CFormatIPMask, [Byte(h_addr^[0]), Byte(h_addr^[1]),
Byte(h_addr^[2]), Byte(h_addr^[3])]);
WSACleanup;
{$ENDIF}
end;

ev: отредактировал заголовок и добавил примечание

[ev]

кроссплатформенно - это не windows xp и windows 7
и даже не windows и linux

Код: Выделить всё

# /sbin/ifconfig eth0
ifconfig: interface eth0 does not exist

[Ism]

кроссплатформенно - это не windows xp и windows 7
и даже не windows и linux

Код: Выделить всё

# /sbin/ifconfig eth0
ifconfig: interface eth0 does not exist

У вас есть правильный вариант ?

[ev]

нет (я не пишу кроссплатформенных приложений - нет у меня таких пользователей)
но разве это повод называть метод кроссплатформенным?

[debi12345]

В этой задаче однозначно правильно вызывать внешние утиллиты - но не получения списка адресов,а таблиц маршрутизации.

ПС:
С IFCONFIG построжнее - на 2.6+ ядрах и UDEV-е сетевые интерфейсы далеко не всегда имеют имена в формате ETH*, администратор чтобы не путаться и не зависеть от порядка втыкания сеевых карт - может назаначить имена какие душа пожелает - "wan", "lan", "ppp100", "internet",..

[Ism]

В этой задаче однозначно правильно вызывать внешние утиллиты - но не получения списка адресов,а таблиц маршрутизации.

ПС:
С IFCONFIG построжнее - на 2.6+ ядрах и UDEV-е сетевые интерфейсы далеко не всегда имеют имена в формате ETH*, администратор чтобы не путаться и не зависеть от порядка втыкания сеевых карт - может назаначить имена какие душа пожелает - "wan", "lan", "ppp100", "internet",..

Ну эта процедура не претендует на совершенство. Если нужно в коде разобраться очень просто. Делфийские примеры всегда приходится переделывать. Поэтому и отравляю сюда рабочие варианты

[debi12345]

Переписывайте на чтение и анализ таблицы маршрутизации - будет совершенство

Добавлено спустя 23 минуты 20 секунд:
В Линуксе можно так:

Код: Выделить всё

# route -n | grep  "0.0.0.0" | awk '{if ($4 ~ /U/) print $NF}' | sort -u

[Ism]

Переписывайте на чтение и анализ таблицы маршрутизации - будет совершенство

Добавлено спустя 23 минуты 20 секунд:
В Линуксе можно так:

Код: Выделить всё

# route -n | grep  "0.0.0.0" | awk '{if ($4 ~ /U/) print $NF}' | sort -u

Проверяйте
В первом посте
Упростил вашу команду

[ev]

Проверяйте

Код: Выделить всё

# /sbin/route -n
usage: route [-dnqtv] command [[modifiers] args]

[Ism]

Проверяйте

Код: Выделить всё

# /sbin/route -n
usage: route [-dnqtv] command [[modifiers] args]

Не совсем понял, о чем это ?

[debi12345]

Упростил вашу команду

Выкинули проверку флага AWK-ом ? Ну это я как всегда перестраховываюсь {сетево-админская привычка}

[Ism]

Упростил вашу команду

Выкинули проверку флага AWK-ом ? Ну это я как всегда перестраховываюсь {сетево-админская привычка}

Если бы получить то же из /proc было бы лучше и быстрее

[ev]

Не совсем понял, о чем это ?

о том, что route -n тоже не кроссплатформенно

[Ism]

Не совсем понял, о чем это ?

о том, что route -n тоже не кроссплатформенно

Я знаю, если вы знаете другое, пишите

[ev]

Я знаю

зачем тогда вводить людей в заблуждение и называть метод кроссплатформенным?