Wie kann man korrekt DbiInit verwenden ?

[Stephan Hartmann5]

Hallo,

nach Verwendung von Check(DbiExit) möchte ich DbiInit(nil) verwenden,
allerdings erhalte ich mit nil eine nicht passende neue net-Datei,
wie kann ich DbiInit korrekt verwenden ?

mfg Stephan Hartmann

[Jochen Fromm]

korrekter Aufruf von DbiInit kann z.B. so erfolgen

function DBInitEnv : boolean;
var dbEnv : DBIEnv;
begin
with dbEnv do
begin
StrPCopy( szWorkDir, 'c:\data' );
StrPCopy( szIniFile, '' );
bForceLocalInit := True;
StrPCopy( szLang, '' );
StrPCopy( szClientName, 'dbClientName' );
end;
result := IsDbiOk( DbiInit( @dbEnv ));
end;

falls nil übergeben wird, wird szClientName als leer angenommen und bForceLocalInit auf false gesetz

[Jochen Fromm]

korrekter Aufruf von DbiInit kann z.B. so erfolgen <br>

<b>function</b> DBInitEnv : boolean; <br>
<b>var</b> dbEnv : DBIEnv; <br>
<b>begin</b> <br>
<b>with</b> dbEnv <b>do</b> <br>
<b>begin</b> <br>
StrPCopy( szWorkDir, 'c:\data' ); <br>
StrPCopy( szIniFile, '' ); <br>
bForceLocalInit := True; <br>
StrPCopy( szLang, '' ); <br>
StrPCopy( szClientName, 'dbClientName' ); <br>
<b>end;</b> <br>
result := IsDbiOk( DbiInit( @dbEnv )); <br>
<b>end;</b>

falls nil übergeben wird, wird szClientName als leer angenommen und bForceLocalInit auf false gesetz

[Jochen Fromm]

korrekter Aufruf von DbiInit kann z.B. so erfolgen <br>

<b>function</b> DBInitEnv : boolean; <br>
<b>var</b> dbEnv : DBIEnv; <br>
<b>begin</b> <br>
&nbsp; <b>with</b> dbEnv <b>do</b> <br>
&nbsp; <b>begin</b> <br>
&nbsp;&nbsp; StrPCopy( szWorkDir, 'c:\data' ); <br>
&nbsp;&nbsp; StrPCopy( szIniFile, '' ); <br>
&nbsp;&nbsp; bForceLocalInit := True; <br>
&nbsp;&nbsp; StrPCopy( szLang, '' ); <br>
&nbsp;&nbsp; StrPCopy( szClientName, 'dbClientName' ); <br>
&nbsp; <b>end;</b> <br>
&nbsp; result := IsDbiOk( DbiInit( @dbEnv )); <br>
<b>end;</b>

falls nil übergeben wird, wird szClientName als leer angenommen und bForceLocalInit auf false gesetz