Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

unitCFGTOOL;

interface

usesSysUtils, Classes, DB, DbiProcs, DbiTypes, DbiErrs;

typeTBDEConfig = class(TComponent)

private

FLocalShare : Boolean;

FMinBufSize : Integer;

FMaxBufSize : Integer;

FSystemLangDriver : String;

FParadoxLangDriver : String;

FMaxFileHandles : Integer;

FNetFileDir : String;

FTableLevel : String;

FBlockSize : Integer;

FDefaultDriver : String;

FStrictIntegrity : Boolean;

FAutoODBC : Boolean;

procedureInit;

procedureSetLocalShare(Value : Boolean);

procedureSetMinBufSize(Value : Integer);

procedureSetMaxBufSize(Value : Integer);

procedureSetSystemLangDriver(Value : String);

procedureSetParadoxLangDriver(Value : String);

procedureSetMaxFileHandles(Value : Integer);

procedureSetNetFileDir(Value : String);

procedureSetTableLevel(Value : String);

procedureSetBlockSize(Value : Integer);

procedureSetDefaultDriver(Value : String);

procedureSetAutoODBC(Value : Boolean);

procedureSetStrictIntegrity(Value : Boolean);

procedureUpdateCFGFile(path, item, value : string);

protected

public

constructorCreate(AOwner: TComponent); override;

destructorDestroy; override;

published

propertyLocalShare : Boolean readFLocalShare writeSetLocalShare;

propertyMinBufSize : Integer readFMinBufSize writeSetMinBufSize;

propertyMaxBufSize : Integer readFMaxBufSize writeSetMaxBufSize;

propertySystemLangDriver : String readFSystemLangDriver writeSetSystemLangDriver;

propertyParadoxLangDriver : String readFParadoxLangDriver writeSetParadoxLangDriver;

propertyMaxFileHandles : Integer readFMaxFileHandles writeSetMaxFileHandles;

propertyNetFileDir : String readFNetFileDir writeSetNetFileDir;

propertyTableLevel : String readFTableLevel writeSetTableLevel;

propertyBlockSize : Integer readFBlockSize writeSetBlockSize;

propertyDefaultDriver : string readFDefaultDriver writeSetDefaultDriver;

propertyAutoODBC : Boolean readFAutoODBC writeSetAutoODBC;

propertyStrictIntegrity : Boolean readFStrictIntegrity writeSetStrictIntegrity;

end;

procedure Register;

implementation

functionStrToBoolean(Value : string) : Boolean;

begin

if(UpperCase(Value) = 'TRUE') or(UpperCase(Value) = 'ON') or(UpperCase(Value) = 'YES') or(UpperCase(Value) = '.T.' ) thenResult := True

elseResult := False;

end;

functionBooleanToStr(Value : Boolean) : String;

begin

ifValue thenResult := 'TRUE'

elseResult := 'FALSE';

end;

procedure Register;

begin

RegisterComponents('Data Access', [TBDEConfig]);

end;

procedureTBDEConfig.Init;

var

h: hDBICur;

pCfgDes: pCFGDesc;

n, v : string;

begin

Check(DbiOpenCfgInfoList( nil, dbiREADWRITE, cfgPersistent,'\SYSTEM\INIT', h));

GetMem(pCfgDes, sizeof(CFGDesc));

try

FillChar(pCfgDes^, sizeof(CFGDesc), #0);

while(DbiGetNextRecord(h, dbiWRITELOCK, pCfgDes, nil) = DBIERR_NONE) do begin

n := StrPas(pCfgDes^.szNodeName);

v := StrPas(pCfgDes^.szValue);

ifn = 'LOCAL SHARE' thenFLocalShare := StrToBoolean(v)

else ifn = 'MINBUFSIZE' thenFMinBufSize := StrToInt(v)

else ifn = 'MAXBUFSIZE' thenFMaxBufSize := StrToInt(v)

else ifn = 'MAXFILEHANDLES' thenFMaxFileHandles := StrToInt(v)

else ifn = 'LANGDRIVER' thenFSystemLangDriver := v

else ifn = 'AUTO ODBC' thenFAutoODBC := StrToBoolean(v)

else ifn = 'DEFAULT DRIVER' thenFDefaultDriver := v;

end;

if(h <> nil) thenDbiCloseCursor(h);

Check(DbiOpenCfgInfoList( nil, dbiREADWRITE, cfgPersistent,'\DRIVERS\PARADOX\INIT', h));

FillChar(pCfgDes^, sizeof(CFGDesc), #0);

while(DbiGetNextRecord(h, dbiWRITELOCK, pCfgDes, nil) = DBIERR_NONE) do begin

n := StrPas(pCfgDes^.szNodeName);

v := StrPas(pCfgDes^.szValue);

ifn = 'NET DIR' thenFNetFileDir := v

else ifn = 'LANGDRIVER' thenFParadoxLangDriver := v;

end;

if(h <> nil) thenDbiCloseCursor(h);

Check(DbiOpenCfgInfoList( nil, dbiREADWRITE, cfgPersistent, '\DRIVERS\PARADOX\TABLE CREATE', h));

FillChar(pCfgDes^, sizeof(CFGDesc), #0);

while(DbiGetNextRecord(h, dbiWRITELOCK, pCfgDes, nil) = DBIERR_NONE) do begin