Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

прочитать массив по определённому адресу

serg_iv © (2005-07-08 12:42:00)
есть такая СИшная функция(вызывается из DLL):

Задать функцию, принимающую данные.
void CPSO_SetUpReceiverProc(LPVOID pReceiverProc);
pReceiverProc - Указатель на функцию пользователя, в которой принятые данные будут передаваться для последующей обработки.

Функция пользователя должна быть определена как:
BOOL ReceiverProc(double dInputTime, unsigned short * InputCodeSample);
где:
Возвращаемое значение Обычно следует возвращать TRUE. Устанавливайте FALSE, если пользовательская программа занята и не успевает обработать текущую выборку. Передача этой выборки будет повторена.
dInputTime - Время на момент приема текущей выборки.
InputCodeSample - Адрес массива, из которого пользователь может прочитать последние принятые данные. Длина массива равна 64 шестнадцатиразрядных слов. Однако действительны только первые его элементы, столько, чему равно количество входных каналов

Как прочитать массив находящийся по адресу(InputCodeSample)?
Естественно всё это делается в Делфи!

serg_iv (2005-07-08 18:30:00) [1]
Точно!

Digitman (2005-07-08 15:20:00) [2]
возможно, библиотека использует другое соглашение - cdecl (а не stdcall)

serg_iv (2005-07-08 15:15:00) [3]
Спасибо тем, кто мне помог.
Теперь я могу прочитать массив, но после однократной отработки функции программу почему-то выбрасывает в дебаггер.
Отправляюсь с этим бороться.

evvcom (2005-07-08 13:06:00) [4]
Я бы советовал все же использовать
PWordArray(InputCodeSample)^[I]
компилятору, конечно, без разницы, но при отладке, наведя мышью на ^, в хинте увидим содержимое массива. Тогда как в [1] только адрес или значение I-го элемента.

Digitman (2005-07-08 13:03:00) [5]
type

PInputCodeSample = ^TInputCodeSample;
TInputCodeSampleItem = Word;
TInputCodeSample = array[0..63] of TInputCodeSampleItem;

TReceiverProc = function(dInputTime: double; InputCodeSample: PInputCodeSample): Boolean; stdcall;

TCPSO_SetUpReceiverProc = procedure(pReceiverProc: TReceiverProc); stdcall;

..

var
CPSO_SetUpReceiverProc: TCPSO_SetUpReceiverProc;
InputCodeSample: TInputCodeSample;
..

function ReceiverProc(dInputTime: double; InputCodeSample: PInputCodeSample): Boolean; stdcall;
var
i: Integer;
item: TInputCodeSampleItem;
begin
for i:= 0 to 63 do
InputCodeSampleItem := InputCodeSample[i];
..

end;

..
CPSO_SetUpReceiverProc(@ReceiverProc);

begin...end (2005-07-08 12:51:00) [6]
PWordArray(InputCodeSample)[I], где I -- индекс элемента (в диапазоне 0..16383).

Наверх

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