procedure DoSNTPDate (AHost : string; var AData1 : string) ;
var
SNTP: TIdSNTP;
temp: TIdSNTP;
slDateTime: TStringList;
begin
SNTP := TIdSNTP.Create(temp);
slDateTime := TStringList.Create;

if AHost = '' then
SNTP.Host := 'ntp1.stratum1.ru'
else
SNTP.Host := AHost;
try
if SNTP.SyncTime then
begin
slDateTime.Delimiter:= ' ';
slDateTime.DelimitedText:= DateTimeToStr(SNTP.DateTime);
AData1:= slDateTime[0];
end;
except
begin
AData1:= 'Error';
end;
end;
end;

function GetDate (AHost, AVar1 : PChar) : Boolean;
var AData1 : string;
begin
Result:= False;
DoSNTPDate (string(AHost), AData1);
If StrPas(AVar1) <> '' then
nbSetVar (PChar(AVar1), PChar(AData1));
Result:= True;
end;

function EditGetDate (var AHost, AVar1 : PChar) : Boolean;
begin
Result:= False;
NTPDateForm:= TNTPDateForm.Create(Application);
with NTPDateForm do
try
edt1.Text := AHost;
edt2.Text := AVar1;
if ShowModal = mrOk then
begin
SetStr(AHost, edt1.Text);
SetStr(AVar1, edt2.Text);
Result := True;
end;
finally
Free;
end;
end;[/color]

procedure DoSNTPDate (AHost : string; var AData1 : string; var AData2 : string) ;
var
SNTP: TIdSNTP;
temp: TIdSNTP;
slDateTime: TStringList;
begin
SNTP := TIdSNTP.Create(temp);
slDateTime := TStringList.Create;

if AHost = '' then
SNTP.Host := 'ntp1.stratum1.ru'
else
SNTP.Host := AHost;
try
if SNTP.SyncTime then
begin
slDateTime.Delimiter:= ' ';
slDateTime.DelimitedText:= DateTimeToStr(SNTP.DateTime);
AData1:= slDateTime[0];
end;
except
begin
AData1:= 'Error';
end;
end;
end;

function GetDate (AHost, AVar1 : PChar) : Boolean;
var AData1, AData2 : string;
begin
Result:= False;
DoSNTPDate (string(AHost), AData1, AData2);
If StrPas(AVar1) <> '' then
nbSetVar (PChar(AVar1), PChar(AData1));
Result:= True;
end;

function EditGetDate (var AHost, AVar1 : PChar) : Boolean;
begin
Result:= False;
NTPDateForm:= TNTPDateForm.Create(Application);
with NTPDateForm do
try
edt1.Text := AHost;
edt2.Text := AVar1;
if ShowModal = mrOk then
begin
SetStr(AHost, edt1.Text);
SetStr(AVar1, edt2.Text);
Result := True;
end;
finally
Free;
end;
end;[/color]

procedure DoSNTPDate (AHost : string; var AData1 : string; var AData2 : string) ;
var
SNTP: TIdSNTP;
temp: TIdSNTP;
slDateTime: TStringList;
slDate: TStringList;
begin
SNTP := TIdSNTP.Create(temp);
slDateTime := TStringList.Create;
slDate := TStringList.Create;
if AHost = '' then
SNTP.Host := 'ntp1.stratum1.ru'
else
SNTP.Host := AHost;
try
if SNTP.SyncTime then
begin
slDateTime.Delimiter:= ' ';
slDateTime.DelimitedText:= DateTimeToStr(SNTP.DateTime);
slDate.Delimiter:= '.';
slDate.DelimitedText:= slDateTime[0];
AData1:= slDate[1]+'/'+slDate[0]+'/'+slDate[2];
{AData1:= Concat(slDate[1],'/',slDate[0],'/',slDate[2]);}
nbSetVar('[zmaNTPServer]', PChar(SNTP.Host));
end;
except
begin
AData1:= 'Error';
end;
end;
end;

А вот с VLC - засада будет, и выражается она в том, что нет доступа к разным "вкусностям" штатного плейера, по крайней мере к звуковым фильтрам, и о таких вещах, как скажем, эквалайзер, придется позабыть (в SDK-то объявлено, а в реальности в библиотеке этого нет).
Я ещё не разбирался с видео, но если и там такие же сюрпризы (что скорее всего), то от плейера почти ничего не остается - только стандартные пуск, стоп и т.п., ну и те прибамбасы, которые я сумею придумать.
В общем, сильно разочаровывает этот VLC.
По-началу, казаось, что можно будет сделать реальную вещь, а тут...

Они, блин, даже полноэкранный режим не могли по-нормальному организовать, и пришлось придумывать самому.

Таскать с собой 15 метров кодеков только ради воспроизведения потокового FLV (а все остальное может и WMP)...


С эквалайзером вообще забавно..
Я полазал специально по тамошнему форуму, так народ срашивал уже давно про эквалайзер (как?), на что разрабы смиренно отвечали: "Пока - никак! У нас есть заботы и по-важнее, а вот если найдется такой, кто сделает в билиотеке к нему доступ, мы скажем ему спасибо!"

Нормально, да?
Впрочем, возможно для открытого проекта это - норма, и именно так они (открытые проекты) и создаются...

Кстати, "такой" нашелся и был патч для библы, который открывал доступ к эквалайзеру, но что-то там было криво и работало хреново, и патч "аннулировал" сам его разработчик.
А пока "воз и ныне там"...

Означает ли это, что если север ничего не вернет, то NB-проект зависнет?

Кстати, надо доброму плагину свою тему на форуме.

Ну, почему же недоплагином-то?
Ведь работает же!
А сразу сделать "ядрену бомбу" ни у кого не получится, и всегда нужно начинать с малого, и главное, не лениться.


А это уже кто на что горазд: кто-то собирает интерфейс из отдельных готовых элементов, кто-то вместо градиентов подставляет картинки, я же пошел самым длинным, но зато (на мой взгляд) самым эффективным путем - написал свои компоненты со всеми необходимыми для работы с NeoBook свойствами.
Да, пришлось попотеть (зато много чего нового узнал и многому научился), но теперь "собрать" окошко помошника минутное дело, задать (если требуется) свойства элементам, а дальше только подставляй значения и получай результат (в самой уже NeoBook).


Просто прочитать мало, нужна постоянная практика для закрепления понимания прочитанного.
Собственно тут как и в любом другом обучении.
Никто не рождался со знанием языков программирования (или владением другим ремеслом), и все начинали, учились и учаться.
Все знать невозможно, но постигнув азы теории, уже начинаешь ориентироваться в языке, и когда встречается (в каком-либо примере-исходнике) незнакомый код или надо сделать то, что раньше не делал, то уже знаешь (или по крайней мере представляешь) где искать ответ.

Я все это пропагандирую не потому-что хочу поумничать, а просто сам через это прошел (и прохожу).

Так-что, стесняться и бояться нечего, было бы желание...