| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Уважаемые, Мастера. Подскажите как узнать IP-адрес своего компа? [D5, NT4]
Raptorus © (2003-10-02 15:58:00)
в Дельфи
Заранее благодарен!!!
Rouse_ (2003-11-19 21:05:00) [1]
uses ...Winsock
Желаю успехов
DolginD (2003-11-19 19:23:00) [2]
а в каких модулях TWSAData, PHostEnt и т.д. А то не найду что-то.
Hazard (2003-10-04 02:02:00) [3]
в первой функции узнаешь свое имя и его в качестве параметра передаешь во вторую функцию, и получаешь искомое
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;
AlexKniga (2003-10-02 16:46:00) [4]
:)
AlexKniga (2003-10-02 16:45:00) [5]
127.0.0.1
DelphiNew (2003-10-02 16:06:00) [6]
В консоле вводишь команду ipconfig
| |
