Discussion :

[looping]

bonjour,

Suite à une fusion word, pour etre sur que word a bien crée le fichier, je
mets ce bout de code:

Code :

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

1
2
3
 
repeat
until fileexists('c:\firebird\CRM\fusion\offre.doc');

A mon avis ce n'est pas très accadémique de faire comme cela et en plus si le fichier n'est pas crée, le prog tourne en boucle.
J'aimerais mettre une enveloppe de temps (5 secondes) au bout duquel la toute la procedure s'arrête (exit) si le fichier n'est pas crée ?

Merci

[Cl@udius]

Salut

Avec un simple:

Code :

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

Sleep(5000);

?

[Kaféine]

Ce bout de code me fais flipper :\

[Dr.Who]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function TimeCheckFileExists(aFileName: string; const aTimeOut: longWord=1000): integer;
var stop : boolean;
  G: longword;
begin
  result := 0; // exit on time out
  stop := false;
  G := GetTickCount;
  repeat
    if fileExists(aFileName) then 
      result := 1; // exit on file exists
    stop := (result<>0) or ((GetTickCount-G) >= aTimeOut);
    // Application.ProcessMessages;
  until stop;
end;