Discussion :

[Bruno13]

Bonjour à tous,

j'ai un message d'erreur qui apparaît de temps lorsque j'ouvre une de mes projets dans mon programme.

Je situe un peu le contexte :
j'ai une application MDI dans laquelle j'ai sur une fiche un VirtualDrawTree.

Lorsque j'ouvre un de mes projets créé avec mon programme,
je maximise la form MDI et je fais dans le VirtualDrawTree.Onchange :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
.....
.....
  HTML:=TStringList.Create;
  try
    HTML.LoadFromFile(Main.Path+'skins\default.tpl');
    HTML.Text:=FastReplace(HTML.Text, '{TITLE}', PR.Title);
    .....
    .....
    HTML.SaveToFile(Path+'\temp.html');
  finally
    HTML.Free;
  end;
.....
.....

Le truc qui se passe c'est que le OnChange se lance 2 fois, et donc parfois mon fichier temp.html est "locké" par le premier passage, du coup j'ai une erreur qui est générée.

"Impossible de créer le fichier ..temp.html, le fichier est utilisé par un autre processus"

Comment puis-je faire pour ne pas avoir cette erreur ? Y-a-t-il un moyen d'attendre que le fichier soit disponible ?

Biensûr je ne peux pas déplacer le code dans un autre évènement.

[Droïde Système7]

Bonjour,

Peux-tu essayer ça :

Code :

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

HTML.LoadFromFile(Path+'skins\default.tpl');

Le "main" est viré...

Enfin, si c'est la même page.

@+

[djiga4me]

Tu pourra peut-être faire un "sleep" dans ton code de 300ms (mais c'est pas la super solution).
ou ajoute dans ton code une fonction pour éviter une deuxième exécution.
??!!

[Bruno13]

Hello,

Si je vire le "Main", le path n'existe pas.

Désolé.

[phplive]

Bsr

Ben et avec un variable globale ?

Ex

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 Busy : Boolean;
 
 
.....
.....
  if not Busy then
  begin
    Busy := True;
    HTML:=TStringList.Create;
    try
      HTML.LoadFromFile(Main.Path+'skins\default.tpl');
      HTML.Text:=FastReplace(HTML.Text, '{TITLE}', PR.Title);
      .....
      .....
      HTML.SaveToFile(Path+'\temp.html');
    finally
      HTML.Free;
      Busy := False;
    end;
  end;
.....
.....

[Andnotor]

Pour attendre, on pourrait imaginer:

Code :

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

1
2
3
4
5
6
7
while TRUE do
try
  HTML.SaveToFile(Path+'\temp.html');
  Break;
except
  Sleep(10);
end;

Mais personnellement, je temporiserais plutôt l'écriture dans le fichier, le OnChange ne faisant que redémarrer un Timer responsable de la sauvegarde.

[Bruno13]

Apres tous vos commentaires, j'ai finalement opté pour la solution de la variable dans la section private.

Le tout inséré dans un Try Finally End

Merci à tous pour votre aide,

[Andnotor]

Fais tout de même attention!
Si lors du DERNIER changement, Busy vaut TRUE, il te manquera la dernière modif dans ton fichier .