Как эта C-функция должна выглядеть на Delphi?

Question

[softshape]

Всем привет,

имеется программа на Delphi, вызывающая DLL от Сбербанка. В одной из сберовских функций используется коллбэк, который непонятно как корректно перевести на Delphi.

Функция: __declspec(dllexport) int SetGUIHandles(int hwndText, int hwndEdit)

Далее цитата из документации -

Если установить второй параметр функции SetGUIHandles() в 0, то первый будет интерпретироваться как адрес callback-функции для вывода сообщений. Callback-функция должна иметь следующий вид (пример на Borland C++ Builder):
#define ICMD_DISP_STRING_1 1
#define ICMD_DISP_STRING_2 2

int HalDispFunc(int cmd, char* par1, int par2)
{
char buf2[256];

buf2[0] = 0;
if(par1)
strcpy(buf2, par1);

switch(cmd){
case ICMD_DISP_STRING_1:
if(par2 <= 3)
Form1->StaticText1->Caption = buf2;
else
Form1->StaticText3->Caption = buf2;
break;
....

return 0;
}

Самое тут непонятное, как корректно перевести заголовки функций и оформить вызов SetGUIHandles с коллбэк-функцией. Хэлп!

Comments

[Павел]

Можете поделиться документацией?
Нам выдали доки, но в них не слова про SetGUIHandles, хотя вижу что у pilot_nt она есть.
Очень хотелось бы иметь обратную связь при оплате, а то не понятно, что и на каком этапе :(

Answer 1

[Артем Килеев]

Объявление функций:

function SetGUIHandles(HWndText: Integer; HWndEdit: Integer): Integer; stdcall; external 'Имя DLL';
function HalDispFunc(Cmd: Integer; Par1: Pointer; Par2: Integer): Integer; stdcall;

Пример вызова:
SetGUIHandles(Integer(@HalDispFunc), 0);

Comments

[Freeman]

function HalDispFunc(Cmd: Integer; Par1: PAnsiChar; Par2: Integer): Integer; stdcall;

Насчет stdcall не уверен.

[Артем Килеев]

Не обязательно должен быть stdcall, тут надо смотреть на объявление типа callback-функции.