Вот есть такой вот пример на делфи

procedure PrinterResults(const rt:RetData)stdcall;

function OpenFiscalReceipt(hWin:HWND; fun:TMathFunc; par:LPARAM;i1: DWORD;i2: LPSTR;i3:
DWORD;i4: Boolean):integer;stdcall;external 'fpl.dll' name 'OpenFiscalReceipt';

Т.е вторым аргументом второй ф-ии есть первая


Вот мои изголяния на ПБ

SUBROUTINE PrinterResults( ref retdata rt) RPCFUNC ; - тут вроде должно быть правильно
а вот вторую никак не получается правильно написать - ругается компилятор и все

function int OpenFiscalReceipt(integer hWin, PrinterResults(), long par, UnsignedLong i1, string i2, UnsignedLong i3, boolean i4) library 'fpl.dll' alias for 'OpenFiscalReceipt';

Гриценко А.В.НУ наверное примерно так

function int OpenFiscalReceipt(integer hWin, integer PrinterResults, long par, UnsignedLong i1, string i2, UnsignedLong i3, boolean i4) library 'fpl.dll'


----------------

function int OpenFiscalReceipt(integer hWin, PrinterResults() , long par, UnsignedLong i1, string i2, UnsignedLong i3, boolean i4) library 'fpl.dll' alias for 'OpenFiscalReceipt' ;

А это что?
PrinterResults()

А это что
;

так PrinterResults это же процедура а не тип данных
В этом то и вся проблема

Локшин МаркroleksВот есть такой вот пример на делфи

procedure PrinterResults(const rt:RetData)stdcall;

function OpenFiscalReceipt(hWin:HWND; fun:TMathFunc; par:LPARAM;i1: DWORD;i2: LPSTR;i3:
DWORD;i4: Boolean):integer;stdcall;external 'fpl.dll' name 'OpenFiscalReceipt';

Т.е вторым аргументом второй ф-ии есть первая

Из того что приведено - это две совершенно никак не связанные функции. Где определение TMathFunc?


а они и не связаны
просто из второй вызывается первая
а TMathFunc -этостандартный тип в делфи

Anatoly MoskovskyPB не поддерживает указатели на ф-и (колбэки) в качестве аргументов external functions.

Тут есть 3 варианта развития событий:

1) Если вдруг повезло и OpenFiscalReceipt умеет принимать NULL вместо колбэка и игнорировать его, тогда этот аргумент можно описать как long и передавать туда 0.
Естественно если колбэк используется для возврата результата ф-и, а не только для уведомлений, то этот вариант не пройдет.

2) Написать на C/C++ обертку в которой поместить этот колбэк и потом отдельным вызовом как-то передать в PB полученные через него данные.

3) Специально для подобных случаев я написал библиотеку , которая помимо прочего умеет таки вызывать external functions с колбэками в качестве аргументов :)
Но она к сожалению платная.

ЗЫ. RPCFUNC - это вообще не в ту степь.
Скорее всего буду 2 вариант оиспользовать
спасибо

Dmitry..я-бы попробовал объявить так:

function int OpenFiscalReceipt(LONG hWin, LONG fun, LONG par, LONG i1, STRING i2, LONG i3, boolean i4) library 'fpl.dll' alias for 'OpenFiscalReceipt';

как передавать fun:
думаю что надо надо опубликовать из делфей еще одну ф-ю (getPrinterResultsAddr) которая будет возвращать
Addr (PrinterResults);
--
PS: не уверен что будет работать ;)


что то я не понял немного