Текущий архив: 2006.03.26;
Скачать: CL | DM;
Вниз
Как получить IP-address машины в сети с помошью Delphi? Найти похожие ветки
← →
Сатир (2006-03-01 16:51) [0]сабж
← →
Eraser © (2006-03-01 17:03) [1]
> Сатир (01.03.06 16:51)
function GetIPFromHost(const HostName: string): string;
type
TaPInAddr = array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
i: Integer;
//GInitData: TWSAData;
begin
//WSAStartup($101, GInitData);
Result := "";
if HostName = "" then
Exit;
try
phe := GetHostByName(PChar(HostName));
if phe = nil then
Exit;
pPtr := PaPInAddr(phe^.h_addr_list);
i := 0;
while pPtr^[i] <> nil do
begin
Result := inet_ntoa(pptr^[i]^);
Inc(i);
end;
//WSACleanup;
except
Result := "";
end;
end;
← →
Сатир (2006-03-01 17:04) [2]
> Eraser © (01.03.06 17:03) [1]
это с использованием WinSocks2?
← →
Eraser © (2006-03-01 17:05) [3]
> Сатир (01.03.06 16:51)
function GetIPFromHost(const HostName: string): string;
type
TaPInAddr = array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
i: Integer;
//GInitData: TWSAData;
begin
//WSAStartup($101, GInitData);
Result := "";
if HostName = "" then
Exit;
try
phe := GetHostByName(PChar(HostName));
if phe = nil then
Exit;
pPtr := PaPInAddr(phe^.h_addr_list);
i := 0;
while pPtr^[i] <> nil do
begin
Result := inet_ntoa(pptr^[i]^);
Inc(i);
end;
//WSACleanup;
except
Result := "";
end;
end;
← →
Eraser © (2006-03-01 17:06) [4]
> Сатир (01.03.06 17:04) [2]
да
← →
Eraser © (2006-03-01 17:10) [5]
> Eraser © (01.03.06 17:06) [4]
стоп! что это такое я сморозил...
winsock 101 нужен )
← →
Jeer © (2006-03-01 17:14) [6]Кладовочка:
http://kladovka.net.ru/delphibase/
← →
Сатир (2006-03-01 18:43) [7]
> стоп! что это такое я сморозил...
> winsock 101 нужен )
у меня был WinSock2, он тоже подошёл, всё скомпилилось и правильно определило айпи тачки
← →
Desdechado © (2006-03-01 18:45) [8]127.0.0.1
:)
← →
Eraser © (2006-03-01 18:54) [9]
> Сатир (01.03.06 18:43) [7]
> у меня был WinSock2, он тоже подошёл
дык обратная совместимость то )
← →
oldman © (2006-03-01 18:57) [10]
> Eraser © (01.03.06 18:54) [9]
да и в тексте [3] особых указаний (или особенностей) на версию нет... :)))
Страницы: 1 вся ветка
Текущий архив: 2006.03.26;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.033 c
