1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
| void CParadoxDatabase::CheckDatabaseEngineStart()
{
if (!m_bInitDatabaseDone)
{ // Ask the operating system to allow up to 68 file handles (this is a
// Requirement of BDE)
int iHandlesWanted = 68;
int iHandlesAvailable = SetHandleCount(iHandlesWanted);
if (iHandlesAvailable < iHandlesWanted)
{
char szBuffer[1024];
sprintf(szBuffer,"Cannot initialize database engine: cannot allow %d handles, only %d avalaible",iHandlesWanted,iHandlesAvailable);
m_strLastError = szBuffer;
}
else
{
DBIResult dbiResult = DbiInit(NULL);
dbiResult = DBIERR_NONE;
// initializing the driver
if (dbiResult != DBIERR_NONE)
{
char szBuffer[1024];
sprintf(szBuffer,"Cannot initialize database engine: DbiInit failed (return error code: %d )!",(int) dbiResult);
m_strLastError = szBuffer;
}
else
{
m_strLastError += "Bde Intalled !! -";
if (Session == NULL)
{
m_strLastError += "Session is NULL - ";
}
else
{
char szBuffer[1024];
sprintf(szBuffer,"Session is NOT NULL (%X) -",(int) Session);
m_strLastError += szBuffer;
sprintf(szBuffer,"Sessions count = %d -",(int) Sessions->Count);
m_strLastError += szBuffer;
if (Sessions->Count == 1)
{
sprintf(szBuffer,"Sessions name = %s (%X) -",Sessions->Sessions[0]->Name.c_str(),(int) Sessions->Sessions[0]);
m_strLastError += szBuffer;
}
sprintf(szBuffer,"StartupEvent = %X -",Session->OnStartup);
m_strLastError += szBuffer;
Session->ConfigMode;
// new TSession(NULL);
//Session->Close();
//Session->Open();
/* sprintf(szBuffer,"TBDEInitProc = %s (%X) -",(int) TBDEInitProc);
m_strLastError += szBuffer;
*/
/*
Sessions.Count
Session = new TSession();
/*
TSession
*/
m_strLastError += "Session ";
//Session->Open();
//Session->GetConfigMode();
/*
try
{
if (Session->ConfigMode.Contains(cfmVirtual))
{
sprintf(szBuffer,"cfmVirtual,");
m_strLastError += szBuffer;
}
if (Session->ConfigMode.Contains(cfmPersistent))
{
sprintf(szBuffer,"cfmPersistent,");
m_strLastError += szBuffer;
}
if (Session->ConfigMode.Contains(cfmSession))
{
sprintf(szBuffer,"cfmSession,");
m_strLastError += szBuffer;
}
m_strLastError += " -";
}
catch(...)
{
}
*/
/*
if (Session->AutoSessionName)
{
sprintf(szBuffer,"Session AutoSessionName - Database Count = %d",(int) Session->DatabaseCount);
m_strLastError += szBuffer;
}
else
{
sprintf(szBuffer,"Session not AutoSessionName - Database Count = %d",(int) Session->DatabaseCount);
m_strLastError += szBuffer;
}
*/
}
/*
// enable trace info
DbiDebugLayerOptions(DEBUGON | OUTPUTTOFILE | FLUSHEVERYOP,"D:\\DevC++\\Projet DB BC\\Sources\\bin\\TRACE.INF");
// Open the database - standard database driver (i.e. DBF tables and NDX/MDX indexes)
dbiResult = DbiOpenDatabase(NULL, // Database name - NULL for standard database
NULL, // Database type - NULL for standard database
dbiREADWRITE, // Open mode - Read/Write or Read only
dbiOPENEXCL, // Share mode - Shared or Exclusive (exclusive, or dbiOPENSHARED for shared)
NULL, // Password - not needed for the STANDARD database
0, // Number of optional parameters
NULL, // Field Desc for optional parameters
NULL, // Values for the optional parameters
m_hDb); // Handle to the database
/*
if (dbiResult != DBIERR_NONE)
{
m_strLastError = "Failed to open default database";
}
else
{
// set a working directory
dbiResult = DbiSetDirectory(m_hDb,"D:\\DevC++\\Projet DB BC\\Sources\\bin");
m_bInitDatabaseDone = true;
}
DbiSetDirectory(m_hDb,"D:\\DevC++\\Projet DB BC\\Sources\\bin");
*/
m_bInitDatabaseDone = true;
}
}
}
}
void CParadoxDatabase::Initialize()
{
m_pTable = NULL;
}
void CParadoxDatabase::Uninitialize()
{
CloseDatabase();
if (m_hDb != NULL)
{
// DbiCloseDatabase(m_hDb);
// DbiDllExit(); <--- Ne fonctione pas
DbiExit();
}
} |
new TTable() provoque exception Kernel32 !
Répondre avec citation
Envoyé par totoche76
Partager