[Сергей Викторович]

Суть проблемы:

в программе вызываю функцию СontinuousReadADCFrame(Chan: integer; *inBuf; LONG: integer ) из Dll. В описании функции только это:
Выборка данных, в режиме непрерывного чтения АЦП
//*inBuf - Указатель на буфер данных, размером Length.
//Length - Количество считываемых данных.
//Функция не ожидает окончания приема данных

Код:

.
.
function ContinuousReadADCFrame(Chan: integer; buf:array of Cardinal	; LONG: integer):Cardinal	; stdcall;   external  'xxxx'  index  6;
.
.
ContinuousReadADCFrame(0,buf,512)
.
.

не получается задать динамический массив для результатов этой функции, всё время выдаёт ошибку то записи в память то чтения из неё

Подскажите как записать этот buf чтоб не было ошибки с памятью и таки получить массив данных.

[nixel]

на всякий случай - Вы размер массива через SetLength задали?

[cotseec]

Код:

type
   TCardinalArray= array of cardinal;


var
   buf:TCardinalArray;
   Len:integer
begin
   Len:=512;
   SetLength(Buf,Len);
   ContinuousReadADCFrame(0,Buf,Len);
// что-то делаем с данными
........
   Finalize(Buf);

[Сергей Викторович]

Спасибо, теперь хоть программа запускается, но нет прибора чтоб проверить по полной.

[Сергей Викторович]

Постоянно при выполнении программы возникает ошибка с памятью. Dll- ка Сишная возвращать должна массив тип данных Char, как не пытаюсь всё равно выдаёт ошибку чтения памяти. Перепробовал разные типы принимать не дало ничего.
Чего делать? Подскажите.

[angvelem]

У вас объявлено как stdcall, это точно так? Может нужно cdecl?
Дополнительно:

Сишная возвращать должна массив тип данных Char

у вас объявлено как array of cardinal

[Сергей Викторович]

уже всякие попробовал и cardinal и char, ошибка в любом случаею
cdecl ещё не пробовал, попробую

[icWasya]

А как описана СontinuousReadADCFrame в документации по DLL?

[Сергей Викторович]

MDAQ2LIB bool __stdcall ContinuousReadADCFrame(unsigned char id,signed short *inBuf,LONG Length);
//Выборка данных, в режиме непрерывного чтения АЦП
//*inBuf - Указатель на буфер данных, размером Length.
//Length - Количество считываемых данных. Должно быть не менее 512байт и кратно 512
//Функция не ожидает окончания приема данных
// Пример:
//StartContinuousReadADC(0);
//ContinuousReadADCFrame(0,Buf,1024);
//while(!isADCXferComplete(0));
//StopContinuousReadADC(0);

[Karsh]

Попробуйте так:

Код:

function ContinuousReadADCFrame(Chan: Byte; buf: Pointer; len: DWORD): BOOL; stdcall; external 'xxxx' index  6;

procedure TForm1.Button1Click(Sender: TObject);
var
   buf: array of char;
   Len: integer;
begin
   Len:= 512;
   SetLength(Buf, Len + 1);
   StartContinuousReadADC(0);
   ContinuousReadADCFrame(0, @Buf[0], Len);
   while not isADCXferComplete(0) do;
   StopContinuousReadADC(0);

   Finalize(Buf);
end;

[Сергей Викторович]

Ура! Спасибо, заработало.
Если вместо bool указывать другие типы то ошибка с памятью, а так работает

[icWasya]

только если в с++

Код:

signed short *inBuf

то в Delphi

Код:

var
   buf: array of SmallInt;

[Karsh]

icWasya, да, верно. Просто меня смутило:

//Length - Количество считываемых данных. Должно быть не менее 512байт и кратно 512

и

Сишная возвращать должна массив тип данных Char

Поэтому и написал Char.