как было сказано выше, для API функций, которые используют callback, обычно разрешается передать UserData (данные которые будут переданы программисту при вызове этой callback функции.
например есть такая API "условная" функция
Код: Выделить всё
TCallbackProc = procedure (SomeData: Integer; UserData:Pointer); stdcall;
procedure SuperPupperAPIFunction( param1, param2: Integer; CallBackProc: TCallbackProc; UserData: Pointer); stdcall; external;
эта в эту функции, передаются входные параметры (param1, param2 - не важно что они значат - чисто условные). При работе этой функции будет вызываться CallBackProc, в который будет передана переменная UserData, та же сама, что и была передана при вызове SuperPupperAPIFunction.
как можно этим воспользоваться.
Код: Выделить всё
type
TMyObject = class(Tobject)
procedure Callback(SomeData: Integer);
end;
// это обработчик
procedure TMyObject.CallBack(SomeData: Integer);
begin
writeln('SomeData = ', SomeData);
end;
procedure CallBackProc(SomeData: integer; UserData: Pointer); stdcall;
begin
// UserData это объект TMyObject, но нужно привести тип!
TMyObject(UserData).CallBack(SomeData); // передача из функции Callback методу объекта.
end;
...
var
m : TMyObject;
...
m := TMyObject.Create; // создали объект, иначе будет плохо!
...
SuperPupperAPIFunction( x, y, @CallBackProc, m); // в качестве UserData передали объект
...
end.
.хз как яснее написать... яснее будет на живом примере!
это использование типично для различный обёрток
и не только Delphi/FPC но и C++ и других объектно-оринетрованных языков, где в качестве UserData передаётся объект, и уже CallBack-процедура решает какой метод объекта нужно вызвать.
и ещё. Если писать класс обёртку, то следует "скрывать" (инкапсулировать - о как!) такое использование API, с помощью дополнительного метода объекта:
Код: Выделить всё
interface
...
TMyObject = class(Tobject)
protected
procedure Callback(SomeData: Integer); virtual;
public
// обёртка вокруг API функции
procedure SuperPupper(param1, param2: Integer);
end;
...
implementation
procedure CallBackProc(SomeData: integer; UserData: Pointer); stdcall;
begin
// UserData это объект TMyObject, но нужно привести тип!
TMyObject(UserData).CallBack(SomeData); // передача из функции Callback методу объекта.
end;
// это обработчик
procedure TMyObject.CallBack(SomeData: Integer);
begin
writeln('SomeData = ', SomeData);
end;
// этот метод - обёртка для вызова функции SuperPupperAPIFunction
procedure TMyObject.SuperPupper(param1, param2: Integer);
begin
SuperPupperAPIFunction(param1, param2, @CallBackProc, Self);
end;
отличие этого когда, от перыдущего в том, что использование SuperPupperAPIFunction скрыто, что позволяет добится больше структурированности кода.
и ещё раз: "хз как яснее написать... яснее будет на живом примере"!
ЗЫ: искать хаки, для того чтобы передавать метод объекта, как процедуру - не стоит:
1-х эти решения не будут кроссплатформенными (увы и ах ВСЕГДА придёться лезть в ассемблер и основываться на convention call)
2-х они покажут, что ты программист-индус (в хучшем смысле этого слова).
3-х ненужное усложнение кода.