Скачать: CL | DM;

Уважаемые, Мастера. Подскажите как узнать 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;

---

← →
DolginD ©   (2003-11-19 19:23) [5]

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

---

← →
Rouse_ ©   (2003-11-19 21:05) [6]

uses ...Winsock

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c