Уважаемые, Мастера. Подскажите как узнать IP-адрес своего компа?

← →
Raptorus (2003-10-02 15:58) [0]

в Дельфи
Заранее благодарен!!!

← →
DelphiNew © (2003-10-02 16:06) [1]

В консоле вводишь команду ipconfig

← →
AlexKniga © (2003-10-02 16:45) [2]

127.0.0.1

← →
AlexKniga © (2003-10-02 16:46) [3]

← →
Hazard © (2003-10-04 02:02) [4]

в первой функции узнаешь свое имя и его в качестве параметра передаешь во вторую функцию, и получаешь искомое

function GetComputerNetName: string;
var
buffer: array[0..255] of char;
size: dword;
begin
size := 256;
if GetComputerName(buffer, size) then
Result := buffer
else
Result := ""
end;

function GetIPAddress(Name:String): string;
var
WSAData : TWSAData;
p : PHostEnt;
begin
WSAStartup(WINSOCK_VERSION, WSAData);
p := GetHostByName(PChar(Name));
Result := inet_ntoa(PInAddr(p.h_addr_list^)^);
WSACleanup;
end;

а в каких модулях TWSAData, PHostEnt и т.д. А то не найду что-то.

uses ...Winsock

Желаю успехов

Уважаемые, Мастера. Подскажите как узнать IP-адрес своего компа? Найти похожие ветки