Ошибка EOleSysError при чтении данных из СП402ФР-к : Программирование

Всем привет! Пытаюсь сделать на C++ builder программу взаимодействия ККМ с ПК , не могу понять почему выдается ошибка при попытке чтения данных из памяти.
//Чтение блока данных из памяти ККМ
Variant SP402;
short DataBufferPointer;
SP402.OleFunction("ReadMemBlock", 1, 0, 12, ((Variant*)&DataBufferPointer));
вылетает с ошибкой
Exception class EOleSysError with message 'Ошибка'. Process Project1.exe

Похожая тема: Не выполняется функция ReadMemBlock СП101ФР-К

А те ошибки, которые есть у тебя в коде, и которые перечислены в той теме, уже не ошибки?

У меня есть пример на Delphi где все работает, но там идет обращение на прямую к dll, а мне нужно через OleFunction
var
s: array[0..12] of char;
begin
SPFR_ReadMemBlock(hfr, arDATA, 0, 12, @s); //@ - обозначает указание на Pointer
Caption := s;
end;

А вот как я делаю через OleFunction

var
v: Variant;
out: Variant;
begin
v.ReadMemBlock(1, 0, 12, out);

и ничего не выходит из этого :(

Для начала определись, что пример и то, что ты хочешь сделать, сходятся лишь форматом передаваемых данных. Почему OLE? Библиотечка зарегистрирована? Больно ошибка невразумительная.

Код моей программы коментариями буду побписывать что работает.
procedure TFRTest.Button1Click(Sender: TObject);
var
v: Variant;
sh: Smallint;
begin
v := CreateoleObject('SP101FRKLib.SP101FRObject');
v.Connect(1);
v.Init(Now);
v.GetFiscNumber(value1);// Получение заводского номера фискальника работает.
Label1.Caption := value1;
v.GetCurrentShift(sh);// Получение номера текущей смены работает.
Label2.Caption := IntToStr(sh);
v.ReadMemBlock(1, 0, 12, DataBufferPointer);//Получение данных из памяти фискальника не работает вылетает ошибка см. рис.

Миниатюры

 

А DataBufferPointer кто?

DataBufferPointer: Variant;

м.б. все таки стоит попробовать сначала выделить буфер (не вариант а строка) ?

Пробовал
DataBufferPointer: String;
DataBufferPointer: integer;
DataBufferPointer: variant;
DataBufferPointer: WideString;
пишет или разрушительный сбой при выполнении данной строки v.ReadMemBlock(1, 0, 24, DataBufferPointer);
или invald argument

Пример функции из файла SP101FRClass.pas
function TSP101FRObject.ReadMemBlock(DataAreaType, ByteOffset, ByteCount: Smallint; DataBufferPointer: OleVariant): Smallint;
var
p: Pointer;
begin
if (DataAreaType < integer(arBIOS)) or (DataAreaType > integer(arRAM)) then begin
Result := SPFRE_INVALID_PARAMETER;
Exit;
end;
p := pointer(integer(DataBufferPointer));
Result := SPFR_ReadMemBlock(hCom, TSPRF_DATA_AREA(DataAreaType), ByteOffset, ByteCount, p);
end;

Сейчас попробовал DataBufferPointer: char;

var
v: Variant;
RT: Currency;
sh: Smallint;
value1: WideString;
DataBufferPointer: char;
begin
v := CreateoleObject('SP101FRKLib.SP101FRObject');
v.Connect(1);
v.Init(Now);
v.GetFiscNumber(value1);
Caption := value1;
v.GetAccumulatedTotalEx(RT);
Label2.Caption := CurrToStr(RT);
v.GetCurrentShift(sh);
Label1.Caption := IntToStr(sh);
v.ReadMemBlock(1, 0, 24, DataBufferPointer);
v.Disconnect;
end;

Ошибка 'Could not convert variant of type (OleStr) into type (Boolean)'