Discussion :

[MaTHieU_]

Bonjour,

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
var
     XML                 : TXMLDocument;
begin;
             // début d'une boucle...
	XML := TXMLDocument.Create(Self);
	try
		XML.Active := true;
	        XML.Version := '1.0';
        	XML.Encoding := 'ISO-8859-1';
	        XML.LoadFromFile(EChemin.Text + FichierXML);
        	with XML.ChildNodes.Nodes['xxx'].ChildNodes do
	        begin
			// xxxxx
		end;
		XML.Active := false;
	finally
		XML := nil;
	end;
	SysUtils.DeleteFile(EChemin.Text + FichierXML);
             // fin de la boucle
end;

Le problème que je rencontre, cest que le fichier n'est jamais supprimé, je ne comprends pas pourquoi...

Avez-vous une solution pour que je puisse effacer le fichier ?

Merci,
MaTHieU_

[Dry]

En procédent de la sorte peut-etre ?

Code :

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

1
2
3
4
finally
  //XML := nil; <-- Attention : ça ne détruit pas l'objet !!!
  FreeAndNil(XML);
end;

[MaTHieU_]

Bonjour,

J'ai effectué les modifications nécessaires mais le fichier n'est toujours pas supprimé.

Merci,
MaTHieU_

[SergioMaster]

le problème doit être que le fichier n'est pas ouvert en mode exclusif

[atb]

Bonjour ,
essayer avec ça :

Code :

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

1
2
DeleteFile(XML.FileName);
XML.free;

[MaTHieU_]

Bonjour,

Voici mon code :

Code :

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

1
2
3
4
5
6
 
                    XML.Active := false;
               finally
                    FreeAndNil(XML);
                    DeleteFile(EChemin.Text + FichierXML);
               end;

Mais le fichier semble pas libéré. Je ne comrpends pas...

Merci,
MaTHieU_

[TicTacToe]

Chez moi cela fonctionne bien, le fichier est bien effacé (avec desactivation + freeandnil)
code testé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TFrMain.Button1Click(Sender: TObject);
var
     XML : TXMLDocument;
begin;
	XML := TXMLDocument.Create(Self);
	try
		XML.Active := true;
	        XML.Version := '1.0';
        	XML.Encoding := 'ISO-8859-1';
	        XML.LoadFromFile( 'd:\test.xml' );
 
          xml.ChildNodes.Nodes['root'].SetNodeValue( 'hop' );
          (*
        	with XML.ChildNodes.Nodes['root'].ChildNodes do
	        begin
		     	// xxxxx
      		end;
          *)
		XML.Active := false;
	finally
    FreeAndNil( XML );
	end;
	SysUtils.DeleteFile('d:\test.xml');
end;

essaye peut etre avant la desactivation, de faire un

Code :

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

XML.XML.Text := '';

mais c'est bizzare...
Utilise tu des iXMLNode en var. supplémentaires ?
Faudrait voir plus de codes peut être

[MaTHieU_]

Bonjour,

J'ai exactement le même code que toi.

Voici mon code complet concernant XML :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
try
	XML.Active := true;
        XML.Version := '1.0';
        XML.Encoding := 'ISO-8859-1';
        XML.LoadFromFile(EChemin.Text + FichierXML);
        with XML.ChildNodes.Nodes['GSurf'].ChildNodes do
        begin
        	Utilisateur := Nodes['Utilisateur'].Text;
                Machine := Nodes['Machine'].Text;
                IP := Nodes['IP'].Text;
                with Nodes['Historique'].ChildNodes do
                begin
                	if Count > 0 then
                        begin
				for i:=0 to Count-1 do
                                begin
                                	if Nodes[i].LocalName = 'Visite' then
                                        begin
 
                                        end;
				end;
			end;
		end;
	end;
	XML.Active := false;
finally
	FreeAndNil(XML);
	DeleteFile(EChemin.Text + FichierXML);
end;

Merci,
MaTHieU_

[Linkin]

ce n'est pas le même code. ça fait partie des joies du finally.

Il ne libère les ressources qu'une fois sorti du finally, donc ton fichier ne peut être effacé. (j'ai eu le cas sur des ouvertures/fermetures de port com).

Au niveau algo c'est juste, mais pas au niveau implementation, il faudrait cascader deux try finally avec dans le dernier finally la suppression normalement.

[TicTacToe]

ce n'est pas le même code. ça fait partie des joies du finally.
Il ne libère les ressources qu'une fois sorti du finally, donc ton fichier ne peut être effacé.

Je vois pas pourquoi ?? la libération est indépendante du try/finally ...
(par acquis de conscience j'ai essayé aussi d'englober le deletefile dans le finally, le fichier est bien effacé).

Mais là ou Linkin a raison je pense, c'est qu'effectivement selon l'endroit ou tu places DeleteFile ET si il y a exception, DeleteFile sera ou non executé.

Si il n'y a pas d'exception de levée dans le code, DeleteFile sera toujours exécuté.

Essaye de mettre un Sleep() et/ou un Application.ProcessMessages entre le Free et le Delete... ?

[Linkin]

C'est une déduction que j'avais faite suite à des tests et aux problèmes que j'ai rencontrés (sous delphi 7). Ce n'est qu'à prendre comme une piste possible.

[MaTHieU_]

Bonsoir,

Je viens d'essayer ça :

Code :

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

1
2
3
4
5
6
7
8
 
               finally
                    FreeAndNil(XML);
               end;
 
               Application.ProcessMessages;
               Sleep(1000);
               DeleteFile(EChemin.Text + FichierXML);

Et ça ne fonctionne toujours pas, c'est très étrange...

Je ne vois pas pourquoi le fichier n'est pas libéré, j'ai même essayé de sortir le FreeAndNil du finally accompagné du Application.ProcessMessages puis d'un Sleep(1000) mais sans succès

MaTHieU_

[CapJack]

Euh... je dis sans doute une bêtise, mais on reste parfois bloqué pour moins que ça.

As-tu essayé d'inclure un ShowMessage(EChemin.Text + FichierXML) juste pour voir si par hasard il ne manquerait pas un '\' quelque part ?

[MaTHieU_]

Bonjour,

C'est en effet un point que je viens de vérifier, le path est correct.

MaTHieU_