Problème avec TXMLDocument et DeleteFile ?

Version imprimable

Bonjour,

Voici mon code :

Code:

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_

En procédent de la sorte peut-etre ?

Code:

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

08/05/2007, 14h25
MaTHieU_

Bonjour,

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

Merci,
MaTHieU_
09/05/2007, 10h09
SergioMaster

le problème doit être que le fichier n'est pas ouvert en mode exclusif
09/05/2007, 10h24
atb
Bonjour ,
essayer avec ça :
Code:

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

Bonjour,

Voici mon code :

Code:

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_

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

Code:

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:

XML.XML.Text := '';

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

Bonjour,

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

Voici mon code complet concernant XML :

Code:

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_

10/05/2007, 08h21
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.
10/05/2007, 09h29
TicTacToe

Citation:

Envoyé par 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é.

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... ?
10/05/2007, 10h42
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.

Bonsoir,

Je viens d'essayer ça :
Code:

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_

11/05/2007, 17h54
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 ?
11/05/2007, 20h36
MaTHieU_

Bonjour,

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

MaTHieU_