Текущий архив: 2004.04.18;
Скачать: CL | DM;
Вниз
Как узнать свой текущий IP? Найти похожие ветки
← →
2ac (2004-01-20 08:25) [0]Как узнать свой текущий IP?
← →
Anatoly Podgoretsky © (2004-01-20 09:51) [1]127.0.0.1
← →
S@shka © (2004-01-20 12:26) [2]Компонент PowerSocket в FastNet
Или смотрим раздел FAQ сети
← →
Neo_vr (2004-01-20 19:03) [3]Удалено модератором
Примечание: Дубль...
← →
Neo_vr (2004-01-20 19:03) [4]Используй эту функцию
function LocalIP: String;
type
TaPInAddr = Array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: Array[0..63] of Char;
I: Integer;
GInitData: TWSAData;
begin
WSAStartup($101, GInitData);
Result := "";
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(buffer);
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;
end;
← →
Kor@l © (2004-02-10 21:36) [5]да есть компонент в indy ipwatch называеться о всё сам скажет
← →
DelphiN! © (2004-02-11 21:41) [6]а какой именно их ведь 2
Страницы: 1 вся ветка
Текущий архив: 2004.04.18;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.035 c
