Thema: Delphi UDF Lazarus 64Bit

Einzelnen Beitrag anzeigen

Gruber_Hans_12345

Registriert seit: 14. Aug 2004
1.439 Beiträge
 
Delphi 2007 Professional
 
#1

UDF Lazarus 64Bit

  Alt 9. Sep 2009, 15:25
Datenbank: Firebird • Version: 2.1.2 • Zugriff über: UDF
Hallo

Meine UDF für 64Bit funktioniert unter 64Bit Server nicht richtig, habe einfach den gelichen Quellcode genommen wie für 32 Bit, aber ich bekomme als Result immer NULL raus.

Muß ich hier irgendwo was umbasteln, sprich bekomme ich irgendwo 64Bit werte in den Aufruf der UDF, wo normalerweise 32Bit sein sollten?

das sind die typen die verwendet werden ...
Delphi-Quellcode:
type
  Int = LongInt; // 32 bit signed
  UInt = DWord; // 32 bit unsigned
  Long = LongInt; // 32 bit signed
  ULong = DWord; // 32 bit unsigned
  Short = SmallInt;// 16 bit signed
  UShort = Word; // 16 bit unsigned
  Float = Single; // 32 bit
  UChar = Byte; // 8 bit unsigned
  ISC_LONG = Long; // 32 bit signed
  UISC_LONG = ULong; // 32 bit unsigned
  ISC_STATUS = Long; // 32 bit signed
  UISC_STATUS = ULong; // 32 bit unsigned
  Void = Pointer;
  // Delphi "Pointer types"
  PPChar = ^PChar;
  PSmallInt = ^SmallInt;
  PInt = ^Int;
  PInteger = ^Integer;
  PShort = ^Short;
  PUShort = ^UShort;
  PLong = ^Long;
  PULong = ^ULong;
  PFloat = ^Float;
  PUChar = ^UChar;
  PVoid = ^Pointer;
  PDouble = ^Double;
  PISC_LONG = ^ISC_LONG;
  PUISC_LONG = ^UISC_LONG;
  PISC_STATUS = ^ISC_STATUS;
  PPISC_STATUS = ^PISC_STATUS;
  PUISC_STATUS = ^UISC_STATUS;
Gruss Hans

2B or not 2B, that is FF
  Mit Zitat antworten Zitat