Эквайринг Сбера Delphi+pilot_nt : Другие вопросы

я имел ввиду, что операция отмены( как и возврата) вызывается одним и тем же типом операции "OP_RETURN", про смену знаю -если отмена внутри незакрытого дня , то если передать RRN и сумму в функцию "CardAuth6 " - должен произойти возврат БЕЗ карты,

У меня уже подозрение - что этот терминал не уметт в возврта без карты, в опциях такого нету


(0,1Мб)E vtyz

что это такое я не знаю :(
возврат номер ф-ции = 4002
отмена номер ф-ции = 4003
именно так они по документации проходят
насчет картинки - там практически на всех параметрах есть свое выпадающее окошко с разными значениями - ищите и обрящете :)

Вы знаете, ни в одной так и не появился, но сейчас ТП СБера прислала мне новый файл tlvedit.tli - и там все появилось =D

Добрый день. Есть ли у кого опыт реализации функции _SetGUIHandles библиотеки pilot_nt.dll.
Из документации к библиотеке:
PILOT_NT_API int SetGUIHandles(int hText, int hEdit )
Установить элементы для вывода на экран
Аргументы
[in] hText Элемент вывода текста.
[in] hEdit Элемент ввода текста.
Возвращает
int Код ошибки.

При вызове функции "_SetGUIHandles" вылетает: First chance exception at $77D81F1A. Exception class $C00000FD with message 'stack overflow at 0x77d81f1a'.

Пример вызова:

function TPinPad.SetGUIHandles(ATextHandle: Integer; AEditHandle: Integer): integer;
var
H: THandle;
Func: TSetGUIHandles;
begin
H := LoadLibrary(Pchar(LibName));
if H <= 0 then
begin
raise TPinpadException.Create(Format('Не могу загрузить %s', [LibName]));
Exit;
end;
try
@Func := GetProcAddress(H, Pchar('_SetGUIHandles'));
if NOT Assigned(Func) then
raise TPinpadException.Create('Функция _SetGUIHandles не найдена в pilot_nt.dll');
try
Result := Func(integer(@HalDispFunc), 0);
except
on E: Exception do
RaiseLastOSError;
end;
finally
Func := nil;
FreeLibrary(H);
end;
end;