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

Вниз

Получение IP-адреса через имя машины.   Найти похожие ветки 

 
Termik   (2002-02-15 10:10) [0]

HELP !
Помогите, кто знает, как воспользоваться функцией GetHostByName для получения IP-адреса по имени машины.Желателен пример кода.
Заранее благодарю.


 
Digitman (M)   (2002-02-15 10:40) [1]

см. модуль Scktcomp.pas (в версии 5.5 - строка 857)
function TCustomWinSocket.LookupName(const Name: string): TInAddr;


 
Dimka Maslov   (2002-02-15 15:20) [2]

function GetIPAddress(NetworkName: TString): TString;
var
Error: DWORD;
HostEntry: PHostEnt;
Data: WSAData;
Address: In_Addr;
begin
Error:=WSAStartup(MakeWord(1, 1), Data);
if Error = 0 then begin
HostEntry:=gethostbyname(PChar(NetworkName));
Error:=GetLastError();
if Error = 0 then begin
Address:=PInAddr(HostEntry^.h_addr_list^)^;
Result:=inet_ntoa(Address);
end else begin
Result:="Unknown";
end;
end else begin
Result:="Error";
end;
WSACleanup();
end;



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

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

Наверх




Память: 0.44 MB
Время: 0.006 c
1-94442
lipskiy
2002-04-05 21:43
2002.04.29
Как описать входной параметр процедуры многовариантно?


1-94388
Gamar
2002-04-17 16:49
2002.04.29
Как обработать OwnerDraw???


3-94290
Logic
2002-04-08 15:50
2002.04.29
Перенос данных из MS SQL в MS Access


1-94483
kmc
2002-04-16 14:11
2002.04.29
StringGrid, InplaceEdit, MaxLength


1-94357
NS
2002-04-17 11:57
2002.04.29
Нужно в RUN-Time создавать экземпляры некоторых объектов (для при





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский