ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/iblocaldb/IBXCustomIBLocalDBSupport.pas

Comparing ibx/trunk/iblocaldb/IBXCustomIBLocalDBSupport.pas (file contents):
Revision 37 by tony, Mon Feb 15 14:44:25 2016 UTC vs.
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC

#	Line 30 | Line 30 | unit IBXCustomIBLocalDBSupport;
30		interface
31
32		uses
33	<	Classes,  IBDatabase, SysUtils, IBServices, IBXUpgradeConfFile, IBHeader, ibxscript;
33	>	Classes,  IBDatabase, SysUtils, IBServices, IBXUpgradeConfFile, ibxscript,
34	>	IB;
35
36		type
37
#	Line 193 | Line 194 | type
194
195		implementation
196
197	<	uses  IBIntf,  DB, IBBlob, ZStream
197	>	uses  DB, IBBlob, ZStream
198		{$IFDEF Unix} ,initc, regexpr {$ENDIF}
199		{$IFDEF WINDOWS} ,Windows ,Windirs {$ENDIF};
200
#	Line 328 | Line 329 | procedure TCustomIBLocalDBSupport.OnBefo
329		begin
330		if not Enabled or (csDesigning in ComponentState) then Exit;
331
332	<	if not IsEmbeddedServer then
332	>	if not FirebirdAPI.IsEmbeddedServer then
333		raise EIBLocalFatalError.Create(sNoEmbeddedServer);
334
335		InitDatabaseParameters(DBParams,DBName);
#	Line 361 | Line 362 | begin
362		end;
363
364		procedure TCustomIBLocalDBSupport.SetupFirebirdEnv;
364	–	var TmpDir: string;
365		begin
366	–	TmpDir := GetTempDir +
367	–	DirectorySeparator + 'firebird_' + sysutils.GetEnvironmentVariable('USER');
368	–	if sysutils.GetEnvironmentVariable('FIREBIRD_TMP') = '' then
369	–	begin
370	–	if not DirectoryExists(tmpDir) then
371	–	mkdir(tmpDir);
372	–	SetEnvironmentVariable('FIREBIRD_TMP',PChar(TmpDir));
373	–	end;
374	–	if sysutils.GetEnvironmentVariable('FIREBIRD_LOCK') = '' then
375	–	begin
376	–	if not DirectoryExists(tmpDir) then
377	–	mkdir(tmpDir);
378	–	SetEnvironmentVariable('FIREBIRD_LOCK',PChar(TmpDir));
379	–	end;
366		if sysutils.GetEnvironmentVariable('FIREBIRD') = '' then
367		begin
368		if FirebirdDirectory <> '' then

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines