Xbase Anwendung bringt Clipper-Clients zu Stillstand
Verfasst: Do, 10. Apr 2014 11:38
Hallo Profis,
sobald ich mit einer Xbase++ Anwendung auf die Dateien einer Clipper-Applikation zugreife, frieren die Clipper-Anwendungen ein. Die Clipper-Programme laufen auf win7 in virtuellen Xp-Maschinen. SMB2 habe ich mit dem Tool von Alaska auf den Clients konfiguriert. Im xBase-Programm stelle folgende Schalter:
Set( _SET_EPOCH, 2000 )
Set( _SET_CENTURY, TRUE )
Set( _SET_DATEFORMAT, 'DD.MM.YYYY' )
Set( _SET_DELETED, TRUE )
Set( _SET_OPTIMIZE, FALSE )
Set( _SET_RUSHMORE, FALSE )
Set( _SET_SMARTFILTER, FALSE ).
Die dbeSys sieht so aus
Was kann ich noch tun?
sobald ich mit einer Xbase++ Anwendung auf die Dateien einer Clipper-Applikation zugreife, frieren die Clipper-Anwendungen ein. Die Clipper-Programme laufen auf win7 in virtuellen Xp-Maschinen. SMB2 habe ich mit dem Tool von Alaska auf den Clients konfiguriert. Im xBase-Programm stelle folgende Schalter:
Set( _SET_EPOCH, 2000 )
Set( _SET_CENTURY, TRUE )
Set( _SET_DATEFORMAT, 'DD.MM.YYYY' )
Set( _SET_DELETED, TRUE )
Set( _SET_OPTIMIZE, FALSE )
Set( _SET_RUSHMORE, FALSE )
Set( _SET_SMARTFILTER, FALSE ).
Die dbeSys sieht so aus
Code: Alles auswählen
#include "DbfDbe.CH"
#include "DMLB.CH"
#include "Collat.CH"
#include "Set.ch"
PROCEDURE dbeSys()
SET( _SET_COLLATION, COLLAT_SYSTEM )
// Engine für DBF-Dateien laden
IF ! DbeLoad( "DBFDBE", .T.)
ksMsgBox( "Database Engine DBFDBE nicht geladen", "DB-Fehler" )
ENDIF
// Engine für CDX-Dateien laden
IF ! DbeLoad( "CDXDBE" , .T.)
ksMsgBox( "Database Engine CDXDBE nicht geladen", "DB-Fehler" )
ENDIF
// Engines für Datensatz- und Index-Management zusammenfügen
IF ! DbeBuild( "DBFCDX", "DBFDBE", "CDXDBE" )
ksMsgBox( "Database Engine DBFCDX nicht erzeugt", "DB-Fehler" )
ENDIF
DbeInfo( COMPONENT_ORDER, DBE_LOCKMODE, LOCKING_EXTENDED )
DbeInfo( COMPONENT_DATA, DBFDBE_LIFETIME, 0 )
// Engine für NTX-Dateien laden
IF ! DbeLoad( "NTXDBE" , .T.)
ksMsgBox( "Database Engine NTXDBE nicht geladen", "DB-Fehler" )
ENDIF
// Engines für Datensatz- und Index-Management zusammenfügen
IF ! DbeBuild( "DBFNTX", "DBFDBE", "NTXDBE" )
ksMsgBox( "Database Engine DBFNTX nicht erzeugt", "DB-Fehler" )
ENDIF
DbeSetDefault( "DBFNTX" )
RETURN