Discussion :

[Invité1]

slt,ne pleures pas,
je supporte pas de voir une femme pleurer

1- on va tout d'abord regler ce probleme
voici une fonction qui supprime un repertoire non vide tu l'essaies avec un petit programme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
function DelDir(Dir: String): Boolean;
var fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do begin
    wFunc := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom := PChar(Dir + #0);
  end;
  Result := (0=ShFileOperation(fos));
end;

pour l'utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
deldir('chemin du repertoireà supprimer');

bonne chance

[souminet]

slt,ne pleures pas,
je supporte pas de voir une femme pleurer

1- on va tout d'abord regler ce probleme
voici une fonction qui supprime un repertoire non vide tu l'essaies avec un petit programme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
function DelDir(Dir: String): Boolean;
var fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do begin
    wFunc := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom := PChar(Dir + #0);
  end;
  Result := (0=ShFileOperation(fos));
end;

pour l'utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
deldir('chemin du repertoireà supprimer');

bonne chance

C'est ce que j'utilise pour la suppression!!! je l'ai chipé de la FAQ Delphi mais je crois que c'est parce que l'application ou encore delphi travaille dessus qu'il n'arrive pas à le supprimer , non????

[Invité1]

slt,

puisque ces dossiers sont anciens, ile ne sont doc pas utilisés par delphi

je veux voir ton code de suppression et aussi d'insertion, (quoique c'est independant)

tu as un probleme dans ton code je crois

[souminet]

slt,

puisque ces dossiers sont anciens, ile ne sont doc pas utilisés par delphi

je veux voir ton code de suppression et aussi d'insertion, (quoique c'est independant)

tu as un probleme dans ton code je crois

non, la suppression des dossiers anciens il se font normalement et ça marche à merveille, c'est au sujet du dossier BDD effectif, celui de l'application que la fonction ne marche pas!!????
Peut être que je m'y prend mal aprés tout!!!

J'ai un bouton : Restaurerdont la fonction est d'écraser le dossier BDD en cours et de le remplacer par un autre sauvgardé préalablement!!! à travers un openDialog spécialement conçu pour les Répertoires!!!

L'opération inverse marche trés bien, à la fermeture de l'application!! c'est à dire la copie du dossier BDD en cours vers un dossier de sauvegarde exemple:
C:\Gestion consommables\Archivage automatique\29-09-08 13.02.49
donc le dossier précédent contiendra une copie du dossier BDD donc j'obtiens le chemin:
C:\Gestion consommables\Archivage automatique\29-09-08 13.02.49\BDD
Que j'utilise lors de la restauration, mais ça ne marche pas!!! il n'écrase pas celui sur lequel l'application traville!!!!

[Invité1]

essaies ce qui suit

tu mets les proprietés ACTIVE des composants Table a false

apres dans l'execution tu les actives

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
procedure TForm1.FormCreate(Sender: TObject);
begin
table1.ACTIVE:= true;
table2.ACTIVE:= true;
.
.
end;

[souminet]

essaies ce qui suit

tu mets les proprietés ACTIVE des composants Table a false

apres dans l'execution tu les actives

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
procedure TForm1.FormCreate(Sender: TObject);
begin
table1.ACTIVE:= true;
table2.ACTIVE:= true;
.
.
end;

Oh, déja fait ... désolée

Tu ne pense pas que ça pourrait être les fichiers .PX de paradox???

[Invité1]

Tu ne pense pas que ça pourrait être les fichiers .PX de paradox???

je pense plutot que tes tables sont utilisées par ton application, c'est pour ça que ça ne veut pas se supprimer.

mais je dois voir ton code, pour detecter le probleme.

bonne chance

[JP.NUAGE]

Un jour t'en souvient-il nous voguions en silence
On n'entendais sur l'onde et sous les cieux
que le bruit des rameurs qui frappaient en cadence
tes flots harmonieux

Je pense que les échanges de cette discussion devraient rester quelque part dans les anales du forum. Ce que je dis est très sincère !!!!

[souminet]

Un jour t'en souvient-il nous voguions en silence
On n'entendais sur l'onde et sous les cieux
que le bruit des rameurs qui frappaient en cadence
tes flots harmonieux

Je pense que les échanges de cette discussion devraient rester quelque part dans les anales du forum. Ce que je dis est très sincère !!!!

Ehhhhhhh, si c'est la solution , je n'ai certainement pas compris!!! C'est du pascal vous en êtes sur???