Форум: "Начинающим";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];
Вниз
IP Найти похожие ветки
← →
Делфи (2006-10-31 10:41) [0]Как по IP узнать имя компьютера?
Как узнать есть ли ответ на ping компьютера
← →
Elen © (2006-10-31 10:49) [1]
> Как по IP узнать имя компьютера?
function IPAddrToName(IPAddr : string): string;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));
HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt <> nil then
result := StrPas(Hostent^.h_name)
else
result:="";
end;
← →
Делфи (2006-10-31 10:50) [2]Elen © пасип
← →
Elen © (2006-10-31 10:52) [3]
> Делфи
В догонку - uses WinSock
← →
Делфи (2006-10-31 11:10) [4]
> В догонку
:)
да мне пока не до него просто по работе нужно :)
← →
from kz (2006-10-31 11:13) [5]есть такой компонент Ping называется, можно пинговать Ip адреса локальных компьютеров и циску.
← →
Elen © (2006-10-31 11:23) [6]
> Делфи
Ты не понял. Я имею ввиду что эта функция будет работать только если ты в uses пропишеш WinSock
← →
Делфи (2006-10-31 11:26) [7]
> Ты не понял. Я имею ввиду что эта функция будет работать
> только если ты в uses пропишеш WinSock
Спасибо! да если что сам бы разобрался ;)
> есть такой компонент Ping называется
пшел искать ;)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c
