Subject | Re: [firebird-support] UDF help |
---|---|
Author | Pavel Menshchikov |
Post date | 2005-02-11T07:52:15Z |
Hello Kjell,
KR> Tried to create a simple test UDF, but it doesn't work.
KR> In Delphi7:
KR> ------------------------------------
KR> library AMUDF;
KR> {$R *.res}
KR> type
KR> PInteger = ^Integer;
You don't need it.
KR> function Add(var a, b: PInteger): Integer; stdcall;
Use just
function Add(var a, b: Integer): Integer; stdcall;
(you declared integer parameters in FB, so why do you try to use
pointer to integer here?)
HTH
--
Best regards,
Pavel Menshchikov
http://www.ls-software.com
KR> Tried to create a simple test UDF, but it doesn't work.
KR> In Delphi7:
KR> ------------------------------------
KR> library AMUDF;
KR> {$R *.res}
KR> type
KR> PInteger = ^Integer;
You don't need it.
KR> function Add(var a, b: PInteger): Integer; stdcall;
Use just
function Add(var a, b: Integer): Integer; stdcall;
(you declared integer parameters in FB, so why do you try to use
pointer to integer here?)
HTH
--
Best regards,
Pavel Menshchikov
http://www.ls-software.com