IMHO.WS - Передача динамического массива из dll в приложение

IMHO.WS (https://www.imho.ws/index.php)

- Программирование (https://www.imho.ws/forumdisplay.php?f=40)

Передача динамического массива из dll в приложение

Возник затык, так сказать, не могу сообразить как организовать передачу динамического массива из dll в приложение. Причем передача данных должна проходить в режиме реального времени, т.е. как только в массиве появляется новый элемент, он тут же толжен быть передан в приложение.

Забыл добавить, все пишется на Delphi.

Не имел особо дел с дллбками, но на лабах по осям, для передачи данных между процессами использовали Pipes (каналы).

Цитата:

Сообщение от lyug

в массиве появляется новый элемент, он тут же толжен быть передан в приложение

Процесс, осуществляющий попытку чтения из пустого канала, будет приостановлен, пока там не появятся данные.

Если заинтересовался, то смотри в MSDN: CreatePipe, ReadFile, WriteFile.

Цитата:

Kvarx:
Если заинтересовался, то смотри в MSDN: CreatePipe, ReadFile, WriteFile.

Так как человек пишет на Delphi, MSDN навряд поможет.

А так сообствено говоря Pipes в .нете решают такие задачи, также можно передавать по tcp-каналам. Наверняка в дельфи что-то подобное должно быть

Kvarx, Gunslinger - пасиб.

Тогда еще такой вопрос, с какой скоростью просходит обращение к каналам? Новые элементы в массиве могут появляться со скоростью до 50 шт/с, соответственно суммарное (запись + чтение) время обращения в каналу должно быть меньше 20 мс.

З.Ы. Kvarx, у меня ник lyuq, последняя q, а не g.

Быстро из своей dll в приложение данные можно переслать так:

Приложение передает в dll адрес процедуры своего обработчика новых данных.
Как только dll получает новые данные, сразу вызывает обработчик приложения.
Параметрами обработчика может быть указатель на динамический массив, простого копирования данных внутри одного процесса вполне достаточно.

Если непонятно могу напасать небольшой пример программы.

MrSerg
Пасиб!
Напиши, plz, небольшой пример программы.

Небольшой пример:

Код:

// основная программа

// описание процедуры вашей dll

procedure initdll(adr : pointer); external 'mydll.dll' name 'initdll';



Type buf=array of byte;

       Tbuf=^buf;

Var  mybuf:array[0..1000] of byte;        



//  процедура обработчика

//  p- указатель на массив данных

//  len- длинна массива данных

procedure newdata(p:Tbuf;len:dword);

begin

if  IsBadReadPtr(p,len) then exit;

// обработка данных

For i:=1 to len do mybuf[i]:=p^[i];

end;





procedure TForm1.FormCreate(Sender: TObject);

begin

// передача в dll адреса обработчика. 

Initdll(addr(newdata));



// конец основной программы





// программа dll 

library mydll;

uses SysUtils,windows;



Type Tbac= procedure newdata(p : pointer;len:dword);

Var  bac:tbac=nil;

     Buf:array[0..1000] of byte;        



// сдесь ваша dll получает адрес procedure newdata

Procedure Initdll(adr : pointer);

Begin

// инициализация 

bac:=adr;

End;



…

…

// где то здесь вы получаете новые данные

// и если  инициализация была передаете данные

if addr(bac)<>nil then bac(@buf,length(buf));

…

…



Exports

Initdll;



Begin

End.