UDF для Firebird

[don]

Пересобираю UDF написанную на Delphi, собирается нормально,
а при использовании возвращается сообщение об ошибке, что функция не найдена.

Как побороть?

[Иван Шихалев]

Попробовать явно указать name в списке exports.
Не использовать smartlink.
Exports не должно быть в модуле.

[Guest]

<span style='font-family:courier'>//Исходный код

library udflib;

{$ALIGN OFF}
{$mode objfpc}
{$smartlink off}
{$PACKRECORDS C}

uses
SysUtils,
Classes;

{DECLARE EXTERNAL FUNCTION IOR
longint,
longint
RETURNS longint BY VALUE
ENTRY_POINT 'fn_or' MODULE_NAME 'udflib.so'}

function fn_or(var I1,I2: longint) : longint; cdecl; export;
begin
Result := I1 or I2;
end;

exports
fn_or name 'fn_or';
end.</span>

[don]

Прошу прощения это был мой пост

[don(Дмитрий Филиппов)]

>Зачем тут Lazarus?
>Какая версия FPC?

В лазаре удобнее править и можно идентифицировать FPC по версии лазаря
Версия FPC 2.0.0 (2005/05/08)

при компиляции с помощью лазаруса или без него имеем разницу в размере библиотеки, а эффект тот же.

[Nikolaich]

Уважаемые форумчане! Первый опыт написания UDF на FPC в Lazarus. Поэтому очень надеюсь на ответ и не судите строго, ежели обнаружите явные ошибки в моей ДНК

Имеется проект библиотеки:

Код: Выделить всё

library StageUDF;

{$ALIGN OFF}
{$mode objfpc}
{$smartlink off}
{$PACKRECORDS C}

uses
  StageLibrary in 'StageLibrary.pas'
  { add your units here };

exports
  ServerDate name 'ServerDate';

begin
end. 

и

Код: Выделить всё

unit StageLibrary;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

type

  PIBDateTime = ^TIBDateTime;
  TIBDateTime = record
    Days,                           // Date: Days since 17 November 1858
    MSec10 : Integer;               // Time: Millisecond * 10 since midnigth
  end;

function ToDelphiDate(const aIBDateTime: TIBDateTime): TDateTime;
function ServerDate(var ServerIBDateTime: TIBDateTime): PIBDateTime; cdecl; export;

implementation

const                               // Date translation constants
  MSecsPerDay10 = MSecsPerDay * 10; // Milliseconds per day * 10
  IBDateDelta = 15018;              // Days between Delphi and InterBase dates

function ToDelphiDate(const aIBDateTime: TIBDateTime): TDateTime;
begin
  with aIBDateTime do
    Result := Days - IBDateDelta + MSec10 / MSecsPerDay10;
end;

function ServerDate(var ServerIBDateTime: TIBDateTime): PIBDateTime; cdecl; export;
var
  DelphyDays : Integer;
begin
  DelphyDays := Trunc(Now);
  with ServerIBDateTime do begin
    Days := DelphyDays + IBDateDelta;
    MSec10 := Trunc((Now - DelphyDays) * MSecsPerDay10);
  end;
  Result := @ServerIBDateTime;
end;

end.                              

В Lasarus (v 0.9.14) компилируется, в InterBase выдает
<span style='color:red'>
Invalid token.
invalid request BLR at offset 448.
function FP_SERVERDATE is not defined.
module name or entrypoint could not be found.
</span>
После компиляции в Delphi работает замечательно.

Читал эту ветку форума, вроде бы поправил все, что было раньше, в соответствии с тутошними рекомендациями - ничего не помогает
Укажите, плизь, где моя криворукость?
Заранее признателен.

[Nikolaich]

Прошу прощения, не указал, как регистрировал на IB-сервере. Вот так:

Код: Выделить всё

declare external function fp_serverdate
  date
returns
  date
entry_point "ServerDate"
module_name "StageUDF";

StageUDF.dll куда надо не забыл положить

[Константин]

А вы попробуйте выполнить какую-либо функцию из вашей библиотеке,
в тестовой программке м вы всё поймете.
Я задавал уже подобный вопрос.
При подкрузке библиотеке RTLD пытается найти main, а он "undefined".
Вот тред: <a href='http://www.dore.ru/perl/nntp.pl?f=1&gid=22&mid=22672' target='_blank'>http://www.dore.ru/perl/nntp.pl?f=1&gid=22&mid=22672</a>