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

Вниз

Преобразование адресов   Найти похожие ветки 

 
Свой   (2002-05-15 11:40) [0]

Скажи пожалуйста как преобразовать допустим mail.ru ну в смысле host в привыйный 127.0.0.1 ну типа адресс ???
Спасибо!!!


 
Dimka Maslov   (2002-05-16 09:40) [1]

uses WinSock;


function GetHostByName(HostName: string): string;
var
Error: DWORD;
HostEntry: PHostEnt;
Data: WSAData;
Address: In_Addr;
begin
Error:=WSAStartup(MakeWord(1, 1), Data);
if Error = 0 then begin
HostEntry:=WinSock.gethostbyname(PChar(HostName));
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;


begin
ShowMessage(GetHostByName("www.mail.ru"));
end;


 
Свой   (2002-05-17 11:07) [2]

Простите но возможно не корректно задал вопрос, мне вы майл.ру перевести в 127.0.0.1 вид но чтоб он был стринг а ???


 
Wonder   (2002-05-17 11:24) [3]

Читаем описание ф-ции inet_ntoa():

Description: Convert a network address into a string in dotted format.


 
Malder   (2002-05-17 22:14) [4]

Немного не про теме.

Предлагаю на такие вопросы давать ссылку на UBPFD - пусть люди привыкают =)


 
Свой   (2002-05-18 13:55) [5]

Простите но я наверно туп!!!
Можно конкретный пример дать приобразования !!!
Спасибо !!!


 
Boger   (2002-05-18 22:13) [6]

так дай ссылку на UBPFD или хоть рассшифруй хотяб!


 
Anatoly Podgoretsky   (2002-05-18 23:54) [7]

А приведенный пример не подходит?


 
Malder   (2002-05-19 01:41) [8]

Boger, http://delphibase.endimus.com/?action=viewfunc&topic=netadress&index=1


 
Свой   (2002-05-19 02:41) [9]

О большое спасибо !!!



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

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

Наверх





Память: 0.56 MB
Время: 0.023 c
1-95444
donda
2002-07-16 00:02
2002.07.29
MDI в DLL


3-95212
Гас
2002-07-08 09:49
2002.07.29
Простой и красивый способ распространения проги с базой под IB


1-95326
Skin
2002-07-17 22:37
2002.07.29
Timer


1-95365
programmerts
2002-07-12 19:38
2002.07.29
Как удалить неудаляемый файл.


14-95509
Andrew_k
2002-06-21 13:11
2002.07.29
Глюкс!





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