Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Получения текста TXT записи зоны.


Дмитрий С ©   (2010-04-23 03:55:00) 

Как получить содержимое TXT записи зоны?

Тот же самый текст, который получается при выполнении команды:


C:\Users\Dima>nslookup -type=txt edm-config
╤хЁтхЁ:  qwe.xxxxxx.net
Address:  10.0.0.5

edm-config.xxxxxx.net   text =

       "server=edm.xxxxxx.ru"
       "port=443"
       "uri=/raw/"


Anatoly Podgoretsky   (2010-04-23 09:26:00) [1]

> Дмитрий С  (23.04.2010 03:55:00)  [0]

Здесь нет записей зоны


Дмитрий С   (2010-04-23 04:42:00) [2]

Вопрос решен.

http://forum.antichat.ru/showthread.php?t=132897


     if DnsQuery_A('edm-config', DNS_TYPE_TEXT, DNS_QUERY_STANDARD, nil, @pQueryResultsSet, nil) = 0 then
     begin
       for I := 0 to Pred(pQueryResultsSet^.Data.HINFO.dwStringCount) do
         FValues.Add(pQueryResultsSet^.Data.HINFO.pStringArray[I]);
       DnsRecordListFree(pQueryResultsSet, DnsFreeFlat);
     end else begin
       raise Exception.Create('Не удалось загрузить конфигурацию.');
     end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо