ALGUÉM ME AJUDA, POR FAVOR - ERRO !!!! Session.PrivateDir

Delphi

30/04/2003

Olá pessoal,

Estou criando um diretório temporário para direcionar a criação dos arquivos temporários Del.MB e Del.DB.
Porém, ao executar o programa está ocorrendo o seguinte erro:
´Directory is busy´ na linha marcada com **** abaixo.

procedure Tform1.FormCreate(Sender: TObject);
begin
if not DirectoryExists(´C:\TempSI08´) then
CreateDir(´C:\TempSI08´);
Session.PrivateDir := ´C:\TempSI08´; ****
end;

procedure Tform1.FormClose(Sender: TObject);
begin
if DirectoryExists(´C:\TempSI08´) then
RemoveDir(´C:\TempSI08´);
end;


Se alguém souber como resolver isto, eu agradeço muito !!!!


Fabiana


Falinden

Falinden

Curtidas 0

Respostas

Adilsond

Adilsond

30/04/2003

Por acaso alguma query sua não está sendo aberta antes de executar este código?? Se voce possuir um Datamodulo, normalmente ele é criado antes do formulário principal... verifique!!!!


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

30/04/2003

Não sei, mas vai de sugestão.

procedure Tform1.FormClose(Sender: TObject); 
begin
  Session.Close; 
  if DirectoryExists(´C:\TempSI08´) then   RemoveDir(´C:\TempSI08´); 
end;



GOSTEI 0
Falinden

Falinden

30/04/2003

Por acaso alguma query sua não está sendo aberta antes de executar este código?? Se voce possuir um Datamodulo, normalmente ele é criado antes do formulário principal... verifique!!!!


Adilson, realmente, eu tenho alguns datamodule, mas tentei colocar o código no OnCreate do primeiro deles e, mesmo assim, não obtive sucesso.
Alguma sugestão ?

Valeu,

Fabi


GOSTEI 0
Falinden

Falinden

30/04/2003

[quote:6e9d4e6a3d=´Aroldo Zanela´]Não sei, mas vai de sugestão.

procedure Tform1.FormClose(Sender: TObject); 
begin
  Session.Close; 
  if DirectoryExists(´C:\TempSI08´) then   RemoveDir(´C:\TempSI08´); 
end;
[/quote:6e9d4e6a3d]



Aroldo, valeu, mas ainda não deu certo !


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

30/04/2003

Fabiana,

Eu criei um formulário e declarei FileCtrl e dbTables na lista de uses;
Copiei o seu código do OnCreate e executei (F9) várias vezes e nenhum erro/exceção foi levantada.


GOSTEI 0
POSTAR