Добавить UserFunction из dll

tarakan

Здравствуйте. В FR есть UserFunction и можно явно добавить функцию

function TFmPRINTFORMS.UserFunction(const MethodName: string;

 var Params: Variant): Variant;

begin

 if AnsiUpperCase(MethodName) = AnsiUpperCase('INTTOWORDS') then

  Result := GlobalU.IntToWords(Params[0]);  

end;

А как можно добавить функцию из DLL?

У меня есть библиотека склонений PadegUC.dll.

в Delphi загружаю так

var

GetPadeg : function(pFIO: PChar; nPadeg: LongInt; pResult: PChar; var nLen: LongInt): Integer; stdcall;

begin          

DllHandle := LoadLibrary(PWideChar('PadegUC.dll'));

if DllHandle <> 0 then @GetPadeg := GetProcAddress(DllHandle, 'GetFIOPadegFSAS');

end;

Подскажите как добавить функции из библиотеки dll в FR?????

gpi

function TFmPRINTFORMS.UserFunction(const MethodName: string;

var Params: Variant): Variant;

begin

if AnsiUpperCase(MethodName) = AnsiUpperCase('GETFIO') then

Result := Здесь вызов функции из dll

end;