Почему-то не работает ЦАП. Sync меняется, а на выходе ноль.
Сегодня звонил в Л-кард, сказали не исключена поломка железа. Писал на прямую в фифо (Вы посоветовали) таже труба.
Посмотрите, может в проге напортачил. Ехать из области далековато.
Вот код (по примеру почти):
Заранее спасибо.

procedure TForm1.FormCreate(Sender: TObject);
begin
  CallCreateInstance('lcomp.dll');
  pIUnknown:=CreateInstance(0);
  hr := pIUnknown.QueryInterface(IID_ILDEV,pLDev);
  pIUnknown.Release;
  dev:=pLDev.OpenLDevice;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  pLDev.StopLDevice;
  pLDev.CloseLDevice;
  pLDev.Release;
end;

procedure TForm1.Button1Click(Sender: TObject);
var r: longWord;
begin

  pLDev.ReadPlataDescr(pd);

  DAC.t2.s_Type:=L_DAC_PARAM;
  DAC.t2.dRate:=1;
  DAC.t2.IrqEna:=1;
  DAC.t2.DacEna:=1;

  pLDev.FillDAQparameters(DAC.t2);
  tm:=512*1024;
  pLDev.RequestBufferStream(tm,L_STREAM_DAC);
  pLDev.SetParametersStream(DAC.t2, tm, data, sync,L_STREAM_DAC);

  for r:=0 to (128*1024-1) do data[r]:=1024;

  pLDev.InitStartLDevice;
  pLDev.StartLDevice;

end;

а где в данных бит разрешения вывода на ЦАП.... вы в примеры то хорощо смотрели? L791.TST или OSC
и прерывание взводить не надо... там же все расписано.....

Ставлю IrqEna:=0,
for r:=0 to (128*1024-1) do data[r]:=(1024 and $FFF) or $1000;
12 бит включен (or $1000), но на выходе 0.

ну незнаю... как сишный топример работает?

чем напряжение на выходе меряете ?

17 и 18 запоял, и осцилл, или на тестер один х..
Для Paul. Как и говорил пример не работает.

А ЦАП на плате точно есть ? Выход на земле или в обрыве ?

ЦАП есть точно (и визуально и програмно (заказывал же)). Паяю двужильный шнурок: один Dac1 (18), другой AGND (17).

Тестер работает (на батарейке проверял)

Выход на земле или в обрыве ? В смысле - чему равно сопротивление между (17) и (18) ?