pq esse codigo nao funciona. Alterar Level do BDE

Delphi

13/10/2003

Pessoal
to precisando alterar o Level do driver DBASE de 7 para 5.
e to usando a rotina que altera o Net Dir com as devidas modificacoes que tao com um asterisco abaixo.

Quanto to no debug parece q ta certo mas quando abro o bdeadmin nao mudou nada.

to fazendo assim.

agradeco a ajuda. observe onde estao os asteriscos q foi onde eu mudei.

uses BDE,DBIPROCS

var
  hCur: hDBICur;
  Config: CFGDesc;
  Cont: Boolean;
begin
  if DbiInit(nil) = DBIERR_NONE then
  begin
  hCur := nil;
  if DbiOpenCfgInfoList(nil,dbiREADWRITE, cfgPersistent,   
  ´\DRIVERS\DBASE\TABLE CREATE´, hCur) = DBIERR_NONE then *Mudei
  begin
  if DbiSetToBegin(hCur) = DBIERR_NONE then
  begin
  Cont := True;
  while Cont do
  begin
  if (DbiGetNextRecord(hCur, dbiWRITELOCK, @Config, nil)
  <> DBIERR_NONE) then
  Cont := False
  else  if StrIComp(Config.szNodeName, ´LEVEL´) = 0 then * Mudei
  begin

  StrPCopy(Config.szValue, ´5´);      // AQUI MUDA de 7 para 5
  DbiModifyRecord(hCur, @Config, True);

  Cont := False
  end;
  end;
  end;
  end;
  DbiExit();
  end;
end;



M@rcelo

M@rcelo

Curtidas 0

Respostas

Jose Oliveira

Jose Oliveira

13/10/2003

Marcelo, conseguiu fazer alteração do LEVEL funcionar?
Estou precisando muuuuuito desta rotina. Pelas dicas passadas aqui,
nenhuma funcionou.

desde já agradeço,

Geraldo


GOSTEI 0
POSTAR