| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать свой текущий IP?
2ac © (2004-01-20 08:25:00)Как узнать свой текущий IP?
DelphiN! (2004-02-11 21:41:00) [1]а какой именно их ведь 2
Kor@l (2004-02-10 21:36:00) [2]да есть компонент в indy ipwatch называеться о всё сам скажет
Neo_vr (2004-01-20 19:03:00) [3]Удалено модератором
Примечание: Дубль...
Neo_vr (2004-01-20 19:03:00) [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;
S@shka (2004-01-20 12:26:00) [5]Компонент PowerSocket в FastNet
Или смотрим раздел FAQ сети
Anatoly Podgoretsky (2004-01-20 09:51:00) [6]127.0.0.1
| |
