Форум OlegON > Программы и оборудование для автоматизации торговли > Другие вопросы

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

02.07.2022 6:00


Контакты Поиск
24.08.2021 11:09
MiixanM
 
Цитата:
student полазить по тлв - правой кнопкой - добавить или добавить вложенный - там все есть, от версии тлведита не зависит


вы не внимательно читали что я писал :( возврат у нас ВНЕ смены - нужна карта, внутри - отмена транзакции - карта не нужна
я имел ввиду, что операция отмены( как и возврата) вызывается одним и тем же типом операции "OP_RETURN", про смену знаю -если отмена внутри незакрытого дня , то если передать RRN и сумму в функцию "CardAuth6 " - должен произойти возврат БЕЗ карты,
24.08.2021 11:14
MiixanM
 
У меня уже подозрение - что этот терминал не уметт в возврта без карты, в опциях такого нету


(0,1Мб)E vtyz
24.08.2021 11:36
student
 
Цитата:
MiixanM OP_RETURN
что это такое я не знаю :(
возврат номер ф-ции = 4002
отмена номер ф-ции = 4003
именно так они по документации проходят
насчет картинки - там практически на всех параметрах есть свое выпадающее окошко с разными значениями - ищите и обрящете :)
24.08.2021 11:54
MiixanM
 
Цитата:
student что это такое я не знаю :(
возврат номер ф-ции = 4002
отмена номер ф-ции = 4003
именно так они по документации проходят
насчет картинки - там практически на всех параметрах есть свое выпадающее окошко с разными значениями - ищите и обрящете :)
Вы знаете, ни в одной так и не появился, но сейчас ТП СБера прислала мне новый файл tlvedit.tli - и там все появилось =D
25.10.2021 09:03
zurprog
 
Добрый день. Есть ли у кого опыт реализации функции _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;

Форум на базе vBulletin®
Copyright © Jelsoft Enterprises Ltd.
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.