UDF für Firebird 1.5 mit Delphi -> TIMESTAMP als was?

[sveni2211]

Hallo.

Ich habe ein Problem mit einer UDF für Firebird 1.5.

Wenn ich mit Delphi die DLL schreibe und dort eine Funktion habe, die Aufgrund von Parametern ein Datum ändern soll, bekomme ich das irgendwie nicht hin.

Die Funktionen (es ist ein ganzer Satz) sehen (Beispielhaft) so aus:

Delphi-Quellcode:

unit DatumFunktionen;

interface

  function DatumPerOption_1(OriginalDatum:TDateTime;Option:integer):TDateTime;cdecl;

implementation
uses SysUtils,
     DateUtils,
     .
     .
     .

function DatumPerOption_1(OriginalDatum:TDateTime;Option:integer):TDateTime;
VAR NeuDatum:TDateTime;
begin
  // Änderungscode
  ...

  Result:=NeuDatum;
end;

Das Ganze habe ich dann im Export Teil der DLL per Name bekannt gemacht, für obiges Beispiel z.B.:

Delphi-Quellcode:

exports
  DatumPerOption_1 name 'DatumPerOption_1',

Im Firebird habe ich das ganze als UDF deklariert. Weiter im Beispiel sieht das so aus:

SQL-Code:

DECLARE EXTERNAL FUNCTION "DatumPerOption_1"
  TIMESTAMP,
  INTEGER
RETURNS TIMESTAMP
ENTRY_POINT 'DatumPerOption_1' MODULE_NAME 'FbUdfShLib';

Soweit so gut. Mit anderen Funktionen (Strings, Real, Integer usw.) aus der selben Lib funktioniert das alles.
Verwende ich aber die mit Timestamp deklarierte Funktion, bekomme ich verschiedene Fehlermeldungen, wie z.B.:

Zitat:

Stack overflow. The resource requirements of the runtime stack have exceeded the memory available to it

Bei einer anderen Funktion dieser Art bekomme ich Meldungen, dass ein Match der Datentypen nicht möglich sei.

Was mache ich falsch, bzw. wie muss grundsätzlich mit dem Typ "TimeStamp" aus Firebird umgehen in Delphi- geschriebenen UDF?

[Peinhard]

Die meisten SQL-Engines 'verstehen' auch einen String, um Datums- und Zeitwerte zu setzen, er muss allerdings bzw natürlich in dem dort eingestellten Format vorliegen. Ansonsten gib mal in der Hilfe 'SQLTimeStamp' ein bzw 'SqlTimSt' - ich kenne mich allerdings mit den Datentypen von Firebird nicht aus, aber vielleicht ist es einen Versuch wert...