Subject | where to place UDF DLL |
---|---|
Author | d_dude_2003 |
Post date | 2004-03-09T19:57:45Z |
Hello,
I created a DLL with Delphi 7, where do i place it so FireBird can
find it? I am using FB 1.5 on XP. Here is the code of my DLL, maybe
something is wrong. It seems it cant find is, says about error,
cant find entry point or module. Thanx.
library WFUDF;
uses
WFUDFFunctions in 'WFUDFFunctions.pas';
{$R *.res}
begin
end.
unit WFUDFFunctions;
interface
uses
SysUtils, Classes, DateUtils;
const
MSecsPerDay10 = MSecsPerDay * 10;
IBDateDelta = 15018;
type
PIBDateTime = ^TIBDateTime;
TIBDateTime = record
Days,
MSec10 : Integer;
end;
implementation
function IBYearsBetween(var ADate: TIBDateTime): Integer; cdecl;
export;
var
DateTime: TDateTime;
begin
with ADate do
DateTime := Days - IBDateDelta + MSec10 / MSecsPerDay10;
Result := YearsBetween(DateTime, Date)
end;
exports
IBYearsBetween;
end.
I created a DLL with Delphi 7, where do i place it so FireBird can
find it? I am using FB 1.5 on XP. Here is the code of my DLL, maybe
something is wrong. It seems it cant find is, says about error,
cant find entry point or module. Thanx.
library WFUDF;
uses
WFUDFFunctions in 'WFUDFFunctions.pas';
{$R *.res}
begin
end.
unit WFUDFFunctions;
interface
uses
SysUtils, Classes, DateUtils;
const
MSecsPerDay10 = MSecsPerDay * 10;
IBDateDelta = 15018;
type
PIBDateTime = ^TIBDateTime;
TIBDateTime = record
Days,
MSec10 : Integer;
end;
implementation
function IBYearsBetween(var ADate: TIBDateTime): Integer; cdecl;
export;
var
DateTime: TDateTime;
begin
with ADate do
DateTime := Days - IBDateDelta + MSec10 / MSecsPerDay10;
Result := YearsBetween(DateTime, Date)
end;
exports
IBYearsBetween;
end.