VPF::Преобразование IP -> String - Форум программистов

forever

Дата 27.9.2006, 16:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 3.9.2006

Репутация: нет
Всего: нет

Получаю по DNS-запросу IP-адрес в форматах DWORD и array [1 .. 4] of BYTE
Вопрос, как оптимальней преобразовывать полученное значение в строку привычного вида - с каким из значений работать и как. Оптимальней с т.з. скорости работы.

Сейчас делаю так:

Код

ip := Format('%d.%d.%d.%d', [AddrArray[1], AddrArray[2], AddrArray[3], AddrArray[4]]);

Встречал вариант:

Код

IPtoStr := s(aIP[0])+'.'+s(aIP[1])+'.'+s(aIP[2])+'.'+s(aIP[3]);

Что работает быстрее? Может есть другие варианты? А может преобразовывать DWORD (как?) быстрее?

dumb

Дата 27.9.2006, 17:03 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 13
Всего: 158

inet_ntoa

forever

Дата 27.9.2006, 17:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 3.9.2006

Репутация: нет
Всего: нет

dumb,
А inet_ntoa быстрее? И как лучше передавать аргумент: как u_chars (array [1 .. 4] of BYTE) или как u_long (DWORD)?

kostas

Дата 27.9.2006, 19:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.7.2006

Репутация: 3
Всего: 4

inet_ntoa думаю, либо ручками:

Код


a:=твой_ip_в_word;
result:=IntToStr(a shr 24)+'.'+IntToStr((a and $00ff0000) shr 16)+'.'+IntToStr((a and $0000FF00) shr 8)+'.'+IntToStr(a and $000000FF);

comtat

Дата 28.9.2006, 08:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 3
Всего: 71

Цитата(dumb @ 27.9.2006, 17:03

)

inet_ntoa

Только если с базой данных MySQL
Вот пример

Код


SELECT INET_NTOA('3558228068')

Обратно

Код


select INET_ATON('212.22.64.100')

А вот еще одно решение vingrad.ru

Это сообщение отредактировал(а) comtat - 28.9.2006, 08:02

--------------------

Рожденный в СССР !!!
ExtJS - мой фреймворк

dumb

Дата 28.9.2006, 08:47 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 13
Всего: 158

либо лыжи не едут... не понял я последних двух ораторов. user posted image

Цитата(forever @ 27.9.2006, 17:19

)

А inet_ntoa быстрее?

проще.

Цитата(forever @ 27.9.2006, 17:19

)

И как лучше передавать аргумент: как u_chars (array [1 .. 4] of BYTE) или как u_long (DWORD)?

неважно. с точки зрения inet_ntoa это одно и то же.

kostas

Дата 28.9.2006, 16:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.7.2006

Репутация: 3
Всего: 4

Цитата(comtat @ 28.9.2006, 08:02

)

Только если с базой данных MySQLВот пример

что то и я сего не понял... smile

функция inet_ntoa входит в состав одного из модулей, идущих в составе делфи, вот только название не помню..

Цитата(dumb @ 28.9.2006, 08:47

)

либо лыжи не едут... не понял я последних двух ораторов.

меня то почему не понял? smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »