Добавить UserFunction из dll
tarakan
Russia
Раздел: FastReport 4.0
Здравствуйте. В 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?????
Комментарии
function TFmPRINTFORMS.UserFunction(const MethodName: string;var Params: Variant): Variant;beginif AnsiUpperCase(MethodName) = AnsiUpperCase('GETFIO') thenResult := Здесь вызов функции из dllend;