Xbase++ RC2 and CDX Index

[ab-software]

Hello,

I'am migration an application from Clipper 5.3 to Xbase++.
Is it possibel to create an CDX index with Xbase++ and
use the same index with my Clipper application.
I'am using the standart CDX Indexes from Clipper.

Best regards,

Ari Brachter

[Tom]

Hallo, Ari.

Dies ist ein deutschsprachiges Forum. Ich möchte Dich also bitten, ausschließlich diese Sprache zu nutzen. Danke!

Zu Deiner Frage: Ja. Sollte allerdings Xbase++ 1.82 oder sogar 1.9 eingesetzt werden, muß m.E. auf das Extended Locking verzichtet werden.

[Jan]

Bei 1.82 und 1.9 muß auf Extended Locking verzichtet werden. Bei 1.9 zusätzlich auch auf Sub-Indize. Ansonsten ist das alles nicht mehr Clipper-Kompatibel und es würde gewaltg scheppern, wenn sowohl Clipper als auch Xbase++ auf die Dateien zugreifen würde.

Jan

[ab-software]

Hallo,

erstmal danke für die schnellen Antworten. Hat einer von euch
das ganze mal ausprobiert und kann mir evtl. seine DBEsys mal
posten.

[Tom]

Hallo, Ari.

Extended Locking ist standardmäßig aus. Es sollte also ohne Komplikationen on-the-fly funktionieren.

Es wäre übrigens nett, wenn Du Dich im "Guten Tag, mein Name ist ... und ich bin Programmierer"-Forum kurz vorstellen könntest, damit die anderen wissen, mit wem man redet.

[ab-software]

Hallo,

leider Funktioniert es bei mir nicht auf Anhieb ... habe auch schon die
Xbase UserGroup durchforstet aber leider nicht sehr viel hilfreiches gefunden.
Hier mal der Sourcecode meiner DBESYS.PRG

Code: Alles auswählen

PROCEDURE dbeSys()

   SET COLLATION TO SYSTEM

   SetLocale(3,'.')   // NLS_SDECIMAL  in NLS.CH
   SetLocale(4,',')   // NLS_STHOUSAND in NLS.CH

   IF ! DbeLoad( "DBFDBE", .T.)
      Alert( "Database-Engine DBFDBE nicht geladen" , {"OK"} )
   ENDIF

   IF ! DbeLoad( "NTXDBE", .T.)
      Alert( "Database-Engine NTXDBE nicht geladen" , {"OK"} )
   ENDIF

   IF ! DbeBuild( "DBFNTX", "DBFDBE", "NTXDBE" )
      Alert( "DBFNTX Database-Engine;konnte nicht erzeugt werden" , {"OK"} )
   ENDIF


   IF ! DbeLoad( "FOXDBE", .T.)
      Alert( "Database-Engine FOXDBE nicht geladen" , {"OK"} )
   ENDIF

   IF ! DbeLoad( "CDXDBE",.T.)
      Alert( "Database-Engine CDXDBE nicht geladen" , {"OK"} )
   ENDIF

   IF ! DbeBuild( "FOXCDX", "FOXDBE", "CDXDBE" )
      Alert( "FOXCDX Database-Engine;konnte nicht erzeugt werden" , {"OK"} )
   ENDIF

   DbeSetDefault( "FOXCDX" )

   // wichtige Einstellung f