Onuserfunction в консольном приложении

yurmala · November 2009

Приветствую!
Подскажите, есть консольное приложение, где я создаю frxReport. Этому созданному объекту мне нужно добавить анализ на неопознанную функцию. Вот кусок:

...
...
function frxReport1UserFunction(const MethodName: String; var Params: Variant): Variant;
begin
if MethodName='SUMMAPROPIS' then
   begin
   .......
   end;
end;

...
...

frxMem:=TfrxDBDataset.Create(nil);
frxReport1:=TfrxReport.Create(nil);
frxReport1.AddFunction('function SummaPropis(s : Real; v : String):String');
frxReport1.OnUserFunction:=frxReport1UserFunction;
...

У меня ругается на строчку frxReport1.OnUserFunction:=frxReport1UserFunction;

Ошибка следующая:

[DCC Error] phprep.dpr(292): E2009 Incompatible types: 'method pointer and regular procedure'

В интернете полно решений подобной ошибки, что мол нужно создать свой класс, в нем прописать функцию и т.д. и везде решения связаны с наличием TForm.
Тут же формы нет.

Как мне в данном конкретном случае присвоить событию определенную свою функцию?

Заранее спасибо за ответ.

-=Den=- · November 2009

var
  m: TMethod;
....

  m.Code := @frxReport1UserFunction;
  m.Data :=  nil;
  frxReport1.OnUserFunction  :=    TfrxUserFunctionEvent(m);

yurmala · November 2009

написал: »

var
  m: TMethod;
....

  m.Code := @frxReport1UserFunction;
  m.Data :=  nil;
  frxReport1.OnUserFunction  :=    TfrxUserFunctionEvent(m);

теперь ошибка уже не при компилляции а при выполнении:
Memo8:Privileged instruction

В Memo8 вбита функция: [SUMMAPROPIS(<frxMem."col3">,'RUR')]

Проверил пошагово - в OnUserFunction программа попадает, но MethodName пустой (а я ожидаю SUMMAPROPIS).

п.с. в отчете больше функций никаких нет.

-=Den=- · November 2009

yurmala написал: »

теперь ошибка уже не при компилляции а при выполнении:
Memo8:Privileged instruction

В Memo8 вбита функция: [SUMMAPROPIS(<frxMem."col3">,'RUR')]

Проверил пошагово - в OnUserFunction программа попадает, но MethodName пустой (а я ожидаю SUMMAPROPIS).

п.с. в отчете больше функций никаких нет.

Забыл написать, что в функцию нужно добавить еще один параметры в самое начало, т.к. вызов методов характеризуется неявной передачей указателя на Self(TMethod.Data) в качестве первого параметра.

function frxReport1UserFunction(Self: TObject; const MethodName: String; var Params: Variant): Variant;

Иначе будет смещение параметров и стека, что приведет к AV.

yurmala · December 2009

написал: »

Забыл написать, что в функцию нужно добавить еще один параметры в самое начало, т.к. вызов методов характеризуется неявной передачей указателя на Self(TMethod.Data) в качестве первого параметра.

function frxReport1UserFunction(Self: TObject; const MethodName: String; var Params: Variant): Variant;

Иначе будет смещение параметров и стека, что приведет к AV.

спасибо, все заработало.

Onuserfunction в консольном приложении

Комментарии

Оставить комментарий