Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Вниз

kak po imeni kompa uznat IP ??   Найти похожие ветки 

 
Vygantas   (2002-06-08 16:05) [0]

kak po imeni kompa uznat IP ??


 
Anatoly Podgoretsky   (2002-06-08 16:17) [1]

FAQ смотрел?


 
SerVS   (2002-06-08 19:20) [2]

или в MSDN?
GetHostByName


 
Malder   (2002-06-09 12:16) [3]

http://delphibase.endimus.ru/?action=viewtopic&topic=netaddress


 
Stasev   (2002-06-10 16:12) [4]

2 Anatoly Podgoretsky :
Xorosho vi odnako pomogaete :((((((


function IPAddrToName (IPAdr : String): String;
var
SockAddrInn : TSockAddrIn;
Vertsnavn : PHostEnt;
WSAData : TWSAData;
begin
WSAStartup ($101, WSAData);
SockAddrInn.sin_addr.s_addr:= inet_addr (PChar (IPAdr));
Vertsnavn:= GetHostByAddr (@SockAddrInn.sin_addr.S_addr, 4, AF_INET);
if Vertsnavn <> nil then
Result:= StrPas (Vertsnavn^.h_name)
else
Result:= "Can not Resolve Host Name";
end;


 
Ghost.   (2002-06-10 16:16) [5]

function HostToIP(Name: string; var Ip: string): Boolean;
var
wsdata : TWSAData;
hostName : array [0..255] of char;
hostEnt : PHostEnt;
addr : PChar;
begin
WSAStartup ($0101, wsdata);
try
gethostname (hostName, sizeof (hostName));
StrPCopy(hostName, Name);
hostEnt := gethostbyname (hostName);
if Assigned (hostEnt) then
if Assigned (hostEnt^.h_addr_list) then begin
addr := hostEnt^.h_addr_list^;
if Assigned (addr) then begin
IP := Format ("%d.%d.%d.%d", [byte (addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
Result := True;
end
else
Result := False;
end
else
Result := False
else begin
Result := False;
end;
finally
WSACleanup;
end
end;



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

Форум: "Сети";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
4-71420
Sword
2002-06-18 19:31
2002.08.22
Спасите! Не знаю как копировать


14-71317
Слесарь нематерящийся
2002-07-26 07:49
2002.08.22
Прога


1-71072
VELK
2002-08-09 09:01
2002.08.22
Помогите !!!! Программа написана на Delphi 4 и её не возможно


3-70980
SaS13
2002-07-31 11:21
2002.08.22
Остановить выполнение запроса


4-71413
Ivan Voronov
2002-06-18 00:50
2002.08.22
Form Refresh





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский