CallBack из библиотеки возможно ли это?

[DarkEvil]

Есть процедура внутри библиотеки

type
  bCallback = procedure (const Buffer);

procedure bViewAll(Callback : bCallback);
var
  Pos : Cardinal;
  Buffer : array of Char;
begin
  if @Callback = nil then Exit;
  SetLength(Buffer, bBlockSize);
  Pos := 0;
  SetFilePointer(bHandle, Pos, nil, FILE_BEGIN);
  bReadFileEx(Buffer);
  Callback(Buffer);
  repeat
    inc(Pos, bBlockSize);
    SetFilePointer(bHandle, Pos, nil, FILE_CURRENT);
    bReadFileEx(Buffer);
    Callback(Buffer);
  until bFileSize > Pos;
end;

Так мы эту процедуру вызываем

bViewAll(@PrintData);

Вот собственно CallBack процедура она должна вызываться из библиотеки

procedure PrintData(const Buffer : TelBase);
begin
  showmessage(Buffer.Name);
end;

Получаем access violation

[Пепел Феникса]

  showmessage(Buffer.Name);

лучше API функи юзать там.

поидее нет разницы, главное не забыть функу загрузить

[DarkEvil]

Сообщение от Пепел Феникса

  showmessage(Buffer.Name);

лучше API функи юзать там.

поидее нет разницы, главное не забыть функу загрузить

То так для примера было

procedure PrintData(const Buffer : TelBase);
begin
end;

так тоже access violation отгребаем

З.Ы. библиотека написана на чистом апи.

[Пепел Феникса]

Callback(@Buffer[0]);

а если так?

[Пепел Феникса]

Buffer : TelBase
Buffer : array of Char;

а с размерами не перемудрили?

[DarkEvil]

Сообщение от Пепел Феникса

Buffer : TelBase
Buffer : array of Char;

а с размерами не перемудрили?

bInitVars(SizeOf(TelBase));

procedure bInitVars(BlockSize : Cardinal);
begin
  bBlockSize := BlockSize;
  bRecCount := bGetRecCount();
  bFileSize := GetFileSize(bHandle, nil);
end;

SetLength(Buffer, bBlockSize);

Нет

Собственно мучения все от того что хочу либу сделать немного универсальной и поэтому не привязоватся к определенному типу в этом случае TelBase а делать инициализацию размеров так сказать вручную

[DarkEvil]

Сообщение от Пепел Феникса

Callback(@Buffer[0]);

а если так?

Это пересылка одного символа...
Хотя ща попробую указателями поигратся...

[DarkEvil]

PTelBase = ^TelBase;

procedure PrintData(const Buffer : PTelBase);
begin
  MessageBox(0, Pchar(@Buffer), 'test', 0);
end;

bCallback = procedure (const Buffer : Pointer);

Callback(@Buffer);

Попробывал и с указателями, толку ноль + получаю в PrintData неверный масив

где-то торможу, притом сильно...

[BOBAH13]

Нет всего кода, нет ответа. Вы бы для начала убрали выполнения всякие, ну я там вижу procedure bViewAll(Callback : bCallback); целый ряд "опасных" вызовов. Создали бы дебаг вывод, простой текстовый файл, и писали бы туда, типа 20.09.2009 11:20 bViewAll Done и т.п.

А еще лучше, например воспользоваться сообщениями, SendMessage, тогда ряд проблем решается сам собой ) ну это мой подход, с недавних времен

[DarkEvil]

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

procedure PrintData(const Buffer : PTelBase);
begin
  MessageBox(0, Pchar(@Buffer), 'test', 0);
end;

Эти данные искажены, проверенно не МессаджеБоксом а дебагером
И здесь получаем access violation