FreePascal.ru

Здравствуйте, Есть ли способ авторизоваться в AD под текущим пользователем не заставляя пользователей вводить логин и пароль?
Этот пример не работает без заполнения свойств Username и Password http://www.ararat.cz/synapse/doku.php/public:howto:ldapsample

Путем взвешивания всех за и против было решено распарсить результат работы утилиты host. Спасибо всем кто откликнулся

Ichthyander писал(а):В коде использован только первый IP

Я на этом и погорел Спасибо, но не хочется тащить Synapse для одного лишь DNS

Ism
как это должно помочь?
Перефразирую:

if hrs.NameLookup('www.yandex.ru') then
begin
for i:= 0 to hrs.AddressCount - 1 do
writeln(HostAddrToStr(hrs.Addresses[i]));
end;

Данный кусок кода в ОС Windows выведет 4 ip
5.255.255.5
77.88.55.66
77.88.55.55
5.255 ...

Здравствуйте, рабочий метод. Но в Linux он возвращает всего лишь 1 случайный ip адрес хоста. Есть ли более красивый метод получить все возможные ip для хоста (как это работает для windows), чем спам NameLookup(host) ?

В том то и дело, более того если программу оформить как процедуру, то даже после выхода из области видимости(так как в процедуре локальный массив) память не освобождается.
То что не освобождается видно в диспетчере задач виндовс.

vada
Подскажите пожалуйста как грамотно освободить выделенную память под 1000 элементов массива, чтобы можно было и дальше пользоваться переменной а

Здравствуйте.

program Test1;
{$mode objfpc}{$H+}
uses
Classes,SysUtils;
Type TSomeRec=record
a,b,c:string//shortstring;
end;
Var a:array of TSomeRec;
begin
writeln('Start');Readln;
SetLength(a,1000); writeln('1000 a');Readln;
SetLength(a,0); writeln('0 a');Readln;
end.
В этой ...