[Sergios]

Приветствую!
Столкнулся с тем, что понадобилось использовать callback functions.
В исходниках (заголовочные файлы) функции определены как:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

WINBASEAPI BOOL WINAPI EnumFuncA(     _In_ A_ENUMPROC lpEnumProc,     _In_ DWORD                   dwFlags,     _In_ LONG_PTR                lParam);   WINBASEAPI BOOL WINAPI EnumFuncB(     _In_ B_ENUMPROC lpEnumProc,     _In_ DWORD            dwFlags);

Далее нашел как определены A_ENUMPROC и B_ENUMPROC:

Код:

1 2 3 4 5 6 7

#ifdef STRICT typedef BOOL (CALLBACK* A_ENUMPROC)(LPSTR, LPSTR, LPSTR, DWORD, LONG_PTR); typedef BOOL (CALLBACK* B_ENUMPROC)(LPSTR); #else typedef FARPROC A_ENUMPROC; typedef FARPROC B_ENUMPROC; #endif

Естественно возникает сразу вопрос "Как перевести на "русский" (т.е. на Delphi) вторую часть (там где определены типы (typedef)). Во-вторых, как после этого использовать callback функции. Я об этой разновидности функций имею весьма общее представление.
Гугл мне тут не помог.
Благодарю заранее за помощь.
UPD (нашел и сами функции):

Код:

1 2 3 4 5 6 7 8 9 10 11

BOOL CALLBACK EnumProc_A(   _In_  LPSTR lpArg0,   _In_  LPSTR lpArg1,   _In_  LPSTR lpArg2,   _In_  DWORD dwFlags,   _In_  LONG_PTR lParam );   BOOL CALLBACK EnumProc_B(   _In_  LPSTR lpArg );

Стало вообще непонятно, что кого вызывает...

[Bargest]

Адрес Callback'а передается в функцию перечисления, и оттуда вызывается. Точное совпадение типов не обязательно (можно и DWORD'ами все заменить), но тогда будет неудобно использовать. Перевод:
BOOl - boolean;
CALLBACK - насколько помню, задефайнен на модификатор stdcall;
_In_ - не важен в данном случае;
LPSTR - PChar;
DWORD - DWORD;
LONG_PTR - по-моему, он Int64. Но лучше посмотреть в хедерах/MSDN.
Так что

Код:

1	BOOL CALLBACK EnumProc_B( _In_  LPSTR lpArg);

переведется в

Код:

1	function EnumProc_B(lpArg: PChar): boolean; stdcall;

[Sergios]

Как ни странно, но тип BOOL в WinAPI определен как знаковое целое (int) . Поэтому не совсем корректно приравнивать его к Boolean (этот тип вообще предпочитаю не использовать). Некоторые АПИшные функции могут возвращать true как отрицательное число...
LONG_PTR для win32 определен как long, а для win64 как __int64, что соответствует типам LongInt и Int64, соответственно.
Методом научного тыка разобрался с вопросом.
Покажу на примере второй функции.
1. Определяем тип-функцию.

Код:

1 2	type B_ENUMPROC= function (lpArg: PChar): BOOL; stdcall;

2. Описываем импортируемую функцию.

Код:

1	EnumFuncB(lpEnumProc: B_ENUMPROC;  dwFlags: Dword): BOOL; stdcall; external 'Oops.dll' name 'EnumFuncB';

Компилим, проверяем.
3. Определяем прототип callback-функции в строгом соответствии с п.1.

Код:

1	function EnumProcCallback(Arg: PChar): BOOL; stdcall;

4. определяем реализацию функции:

Код:

1 2 3 4 5 6 7

begin   if Arg<>nil then    begin     ; // что-то делаем с полученным аргументом    end   Result:=1; // True, если хотим продолжения перечисления, False (Result:=0), если не желаем продолжения end;

5. Вызов функции перечисления.

Код:

1	EnumFuncB(@EnumProcCallback, (Flag1 or Flag2 or Flag3)); // пример комбинации из трех флагов, определенных в секции const.

[icWasya]

Вызов функции перечисления.

Код:

В данном случае символ @ писать не надо.
При его отсутствии будет делаться дополнительная проверка типа передаваемой функции.
и ещё
Лучше вместо PChar явно писать PAnsiChar.
Для старых версий Delphi не повредит, а в новых не будут появляться возможные ошибки

[Sergios]

Сообщение от icWasya

В данном случае символ @ писать не надо.

Нужно, как следует из описания типа:

Код:

1	typedef BOOL (CALLBACK* B_ENUMPROC)(LPSTR);

Ради интереса попробовал убрать @, ошибочка вышла

Сообщение от icWasya

Лучше вместо PChar явно писать PAnsiChar.
Для старых версий Delphi не повредит, а в новых не будут появляться возможные ошибки

PChar это ради примера, а так PWideChar...