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

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

Pchar(@Buffer)

а в конце буфера есть #0?

TelBase

что за тип?

[DarkEvil]

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

Pchar(@Buffer)

а в конце буфера есть #0?

есть

TelBase

что за тип?

    TelBase = packed record
      Name : String[20];
      Street : String[30];
      BdNumber : String[5];
      KvNumber : String[4];
      telNumber : String[7];

[BOBAH13]

Так. Возможно я ошибаюсь, а может это причуды дельфи.
Значит прототип объявляем в dll так

bCallback = procedure(const Buffer: Pointer);

А у себя как раз, можно оставить PTelBase, тобиш ^TelBase попробуйте.

Edit
Ну и в коде там замените буфер, вместо array of Char поставте Pointer. Хотя это не суть важно, вроде как, просто для читабильности кода чтоли

И еще, в своей структуре, вы бы заменили например

String[20]

на

char[20]

ну или для unicode

wchar[20]

[DarkEvil]

String[20]

на
Код:

char[20]

ну или для unicode
Код:

wchar[20]

Ну по структуре не столь важно

Значит прототип объявляем в dll так
Код:

bCallback = procedure(const Buffer: Pointer);

А у себя как раз, можно оставить PTelBase, тобиш ^TelBase попробуйте.

Собственно так и реализовано, завтра уже буду продолжать пляски з бубном

[BOBAH13]

Вы читали что я писал выше?
Вы хотите решить проблему?
Если нет, то зачем тогда спрашивать.

1. Сделайте бекап своих файлов.
2. Сделайте как я сказал.
3. Отпишитесь то что из этого вышло.

Не ужели сложно ? Может я груб, но просто хочу помочь, а вы отказываитесь.

На счет универсальности, непонял чем Pointer не угадил ? а что касается, того что я упомянул PTelBase, так это со стороны вашего приложения, когда каллбэк из длл вызывается, вы можете сразу указывать не Pointer, а PTelBase, посути одно и тоже с программной точки зрения.

[DarkEvil]

Я канешно извиняюсь но Вы наверное не заметили что я отредактировал свой пост
Собственно щас у меня все построенно таким образом как Вы говорили.
По прежнему получаю access violation
Розбиратся продолжу завтра "утро вечера мудренее"

Вы читали что я писал выше?

Да, могу выложить полностью исходник либы.

нашол где ошибка вылазит

при вызове чтения файла

bReadFileEx(Buffer);

вот сама функция

function bReadFileEx(var Buffer): Boolean;
begin
  Result := ReadFile(bHandle, Buffer, bBlockSize, bRWBlock, nil);
end;

[Somebody]

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

нашол где ошибка вылазит

при вызове чтения файла

bReadFileEx(Buffer);

вот сама функция

function bReadFileEx(var Buffer): Boolean;
begin
  Result := ReadFile(bHandle, Buffer, bBlockSize, bRWBlock, nil);
end;

Buffer - это array of Char, то есть 4 байта, в которых указатель на область памяти. Если надо читать в ту область памяти, то это Buffer[0].

[DarkEvil]

Спасиба за подсказку
но еще один вопрос
в калбек процедуру мы отправляем указатель на этот буфер

Callback(@Buffer);

Но собственно в сама процедура получает совершенно иные значения....
З.Ы. Где-то я сильно торможу

[Somebody]

Я уже запутался в этом множестве кусков кода...
Если функция принимает const Buffer, а буфер - array of Char, то надо передавать Buffer[0].
Если Buffer: Pointer, то @Buffer[0].
А откуда взялось @Buffer? Это указатель на указатель.

[DarkEvil]

Buffer это Pointer

bCallback = procedure (const Buffer : Pointer);