Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
28.01.2010, 09:23
|
|
Участник форума
Регистрация: 08.11.2009
Сообщений: 114
Провел на форуме:
201148
Репутация:
-4
|
|
Определение IP сайта
Всем привет! Подскажите как определить IP у сайта[delphi]
|
|
|
28.01.2010, 10:31
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
gethostbyname в winsock
|
|
|
|
28.01.2010, 10:31
|
|
Познающий
Регистрация: 30.12.2008
Сообщений: 64
Провел на форуме:
647156
Репутация:
76
|
|
Код:
uses Winsock;
function GetIPFromHost(HostName:PChar): string;
var
HEnt: pHostEnt;
WSAData: TWSAData;
begin
WSAStartup($0101, WSAData);
HEnt := gethostbyname(HostName);
Result := inet_ntoa(PInAddr(HEnt^.h_addr_list^)^ );
WSACleanup;
end;
Ошибки проверяй сам
Последний раз редактировалось 0rs; 28.01.2010 в 10:59..
|
|
|
|
28.01.2010, 10:40
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
Главная ошибка многие - это писать в Делфи как хочется, а не как надо )
Я имею в виду правильность написания имен апи функция.
GetHostByName считается не правильным написание. Правильное gethostbyname итп.
и дело не в том что в делфи пофигу на регистр а в Си нет. А в том что это имена апишек и если искать их через GetProcAddress то важен регистр символов.
ПО этому лучше писать всё сразу в сишном стиле. Потому как это будет более удобно для переписывания на С/С++ (если конечно такое понадобиться когданить ))
|
|
|
|
28.01.2010, 11:03
|
|
Познающий
Регистрация: 30.12.2008
Сообщений: 64
Провел на форуме:
647156
Репутация:
76
|
|
Поправил регистр имен, но на С/С++ можно написать и более красиво, к тому же используется функция PInAddr которая есть только в Delphi.
|
|
|
|
28.01.2010, 13:34
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
PInAddr это не функция это тип. И ты юзаешь его для преобразования.
А на си можно и так сделать, чтобы получить адрес сразу в готовом для использовании виде. Ну и в делфи тож можно также делать.
Код:
ULONG Host2Ip(char * host)
{
struct hostent * p;
ULONG ret;
p = gethostbyname(host);
if (p)
{
ret = *(ULONG*)(p->h_addr);
}
else
{
ret = INADDR_NONE;
}
return ret;
}
|
|
|
|
28.01.2010, 16:18
|
|
Постоянный
Регистрация: 20.03.2009
Сообщений: 564
Провел на форуме:
991929
Репутация:
395
|
|
slesh функция хороша и интелектуально понятно, но есть два факта
1) host ведь можно указать строкой "127.0.0.1"
Сообщение от Самоучитель игры на WINSOCK (c)Крис Касперски
sockaddr_in dest_addr;
dest_addr.sin_family = AF_INET;
dest_addr.sin_port = htons(PORT);
HOSTENT *hst;
// преобразование IP адреса из символьного в сетевой формат
if (inet_addr(SERVERADDR) != INADDR_NONE)
dest_addr.sin_addr.s_addr = inet_addr(SERVERADDR);
else
{
// попытка получить IP адрес по доменному имени сервера
if (hst = gethostbyname(SERVERADDR))
// hst->h_addr_list содержит не массив адресов,
// а массив указателей на адреса
((unsigned long *)&dest_addr.sin_addr)[0] =
((unsigned long **)hst->h_addr_list)[0][0];
else
{
printf("Invalid address %s\n", SERVERADDR);
closesocket(my_sock);
WSACleanup();
return -1;
}
}
2) gethostbyname - у одного адреса может быть несколько ip адресов на то и массив в структуре HOSTENT
Код:
struct hostent
{
char FAR * h_name; // официальное имя узла
char FAR * FAR * h_aliases; // альтернативные имена узла (массив строк)
short h_addrtype; // тип адреса
short h_length; // длина адреса (как правило AF_INET)
char FAR * FAR * h_addr_list; // список указателей на IP-адреса
// ноль - конец списка
};
хотя и я ленюсь это учитывать  |
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
