[IB/FB] UDFs ?

[Hansa]

Hi,

habe mir mal die UDFs vorgeknöpft. Wenn hier auch was von Computername steht, hat das mit dem anderen Thread nicht viel zu tun ! Hiermit erstelle ich die DLL :

Delphi-Quellcode:

library TestUdf;

uses
  SysUtils,
  Classes,
  TestUtils in 'TestUtils.pas';

{$R *.res}

exports
  ComputerName;

end.

Delphi-Quellcode:

function ComputerName: PChar;
begin
  ComputerName := PChar ('TEST');
end;

Diese DLL habe ich mit IBexpert importiert. In der DB ist sie zu sehen :

SQL-Code:

DECLARE EXTERNAL FUNCTION COMPUTERNAME
RETURNS CSTRING(255) FREE_IT
ENTRY_POINT 'COMPUTERNAME' MODULE_NAME 'TESTUDF'

Nun die Preisfrage : wie nutze ich das jetzt überhaupt ? Über UDFs ist hier so guut wie gar nichts zu finden und sonstwo hörts auch an diesem Punkt auf. 8)

[mkinzler]

Hallo Hansa,

Die Entrypoints sind casesensitive. Im Import mußt du es genauso schreiben, wie im Export der Dll. Verwenden kann man das wie die Builtin-Funktionen.

[Hansa]

Wie normale Funktion verwenden. Was ist denn dann hiermit :

SQL-Code:

  new.ANGELEGT = current_timestamp;
  new.BEZ = COMPUTERNAME;

Innerhalb BI-Trigger. ANGELEGT und BEZ sind Tabellen-Felder. current_timestamp ist wohl eine eingebaute Funktion und Computername die UDF. Letzere erzeugt die Fehlermeldung "unknown variable : COMPUTERNAME". Die UDF müßte doch "TEST" zurückliefern und dadurch BEZ auf TEST setzen. :gruebel:

[mkinzler]

Zitat:

Innerhalb BI-Trigger. ANGELEGT und BEZ sind Tabellen-Felder. current_timestamp ist wohl eine eingebaute Funktion und Computername die UDF.

CURRENT_TIMESTAMP ist eine Kontextvariable. MIN(), Max() usw. sind Funktionen. Aufrufe etwa so:

SQL-Code:

select COMPUTERNAME() from ...

Wobei ich nicht weiss, ob Parameterlose Funktionen erlaubt sind.

[Hansa]

Das interessanteste sind die drei ... :-D Und für was sollen die stehen bei der UDF ? :shock:

[webcss]

wie mkinzler schon sagte, UDFs sind casesensitive, das heißt:
wenn in deiner export deklaration steht

Delphi-Quellcode:

exports
   ComputerName;

solltest Du Deine UDF so einbinden:

SQL-Code:

DECLARE EXTERNAL FUNCTION COMPUTERNAME
RETURNS CSTRING(255) FREE_IT
ENTRY_POINT 'ComputerName' MODULE_NAME 'TESTUDF'

Siehst Du den Unterschied? :wink:

[mkinzler]

Zitat:

Das interessanteste sind die drei ... Very Happy Und für was sollen die stehen bei der UDF ? Shocked

das Beispiel mit der parameterlosen Funktion ist vielleich schlecht gewählt. Nehemen wir mal an du hättest eine Tabellen mit einem Feld Wert. Un eine Funktion Verdopple() in der UDF. Dann würde mit der Abfrage

SQL-Code:

select wert from tabelle;

alle Werte als Ergebnis zurückgeliefert. mit

SQL-Code:

select verdopple(Wert)from Tabelle;

halt das Doppelte ( wenn in Funktion so implementiert).

Aber

SQL-Code:

new.BEZ = ComputerName();

könnte auch funktionieren, da

SQL-Code:

ja GEN_ID( ...);

auch in Triggern direkt aufgerufen werden kann.

[Hansa]

So, etwas rumgespielt. UDF heißt jetzt COMPUTERNAMEFUNC.

Bezieht sich das Case-sensitive auf den Delphi Teil ? Der ist jetzt vorsichtshalber so :

Delphi-Quellcode:

exports
  COMPUTERNAMEFUNC;

Trigger :

SQL-Code:

as
begin
  if (new.ID is null) then
    new.ID = gen_id(GEN_ART_ID, 1);
  if (new.angelegt is null) then
    new.ANGELEGT = current_timestamp;
  new.BEZ = COMPUTERNAMEFUNC ();
end

UDF :

SQL-Code:

DECLARE EXTERNAL FUNCTION COMPUTERNAMEFUNC
RETURNS CSTRING(255) FREE_IT
ENTRY_POINT 'COMPUTERNAME' MODULE_NAME 'TESTUDF'

Was jetzt genau die Ursache dafür war, daß es nicht compiliert wurde ? :shock: signifikante Änderung wurde allerdigs duch das () ausgelöst. Allerdings war die UDF in IBExpert genauso grün und unterstrichen, wie das gen_id. Der Trigger braucht in diesem Fall offensichtlich das (). Denn der wird jetzt auch compiliert. Beim Commit kommt aber noch das :

Zitat:

Zitat von IBExpert

Invalid token.
invalid request BLR at offset 69.
function COMPUTERNAMEFUNC is not defined.
module name or entrypoint could not be found.

Habe mich jetzt wohl mit den Bezeichnern verhackstückelt. :cyclops: Welche Rolle spielt genau der Name der UDF und insbesondere der Entry-Point ? Was geht da genau vor sich ?

Edit : wo genau muß die DLL eigentlich hin ? Ist momentan überall. :mrgreen:

[mkinzler]

Zitat:

Welche Rolle spielt genau der Name der UDF und insbesondere der Entry-Point ?

Der EntryPoint bezeichnet die Funktion, welche aus der DLL geladen wird. Und exportierst eine Funktion COMPUTERNAMEFUNC versuchst aber eine mit dem Namen COMPUTERNAME zu importiere. das Funktioniert leider so nicht. :-(

[edit]
Edit : wo genau muß die DLL eigentlich hin ? Ist momentan überall. Mr. Green [/edit] Kommt darauf an was in deiner fbconf steht.

[Hansa]

Weiß nicht genau wieso, aber jetzt geht alles ! :thumb: Sieht so aus, daß ich immer die falsche DLL geändert, bzw. am falschen Ort hatte. Der Trigger erzeugt nun einen Feldinhalt, der von der UDF geliefert wurde. Muß das mal mit dem jetzigen Kenntnisstand von Anfang an neu machen. War vielleicht nicht schlecht, das Thema UDFs hier mal durchzukauen. IMHO sind die vorhandenen UDFs zwar mit Vorsicht zu genießen, aber wenn man weiß, wie man die selber machen kann, dann eröffnen sich schon interessante neue Perspektiven ! Allerdings bleiben noch 2 Fragen : 1. reicht die Angabe von FREE_IT aus, Speicherlecks zu vermeiden ? 2. Habe ja absichtlich deswegen kein simples integer verwendet. Allerdings vermisse ich bei Anzeige der DDL das BY REFERENCE. Obwohl in der Grid-Anzeige der UDF rechts bei "Return Mechanism" "By Reference" drin steht. 8)