Discussion :

[BuzzLeclaire]

erf pas chez moi...

Me dit pas que ta pas vérifier que ton dossier Source est pas vide !!!
enfin qu'il ne manque pas le fichier !!

on c'est jamais...

[Toon74]

@BuzzLeclaire

non non de toute facon ma listbox m'affiche le contenu de mon dossier source don pas possible.

@Andnotor :

Lorsque j'utilise ton code il refuse de le compiler, il me dit que les types string et Pchar sont incompatibles alors que quand je reviens à mon code d'origine depuis le tiens, plus de problème...

[ShaiLeTroll]

Buzz, tu noteras que j'ai déjà proposé l'utilisation de FileExists

Toon74, peux tu faire un ShowMessage des Deux Chaines et faire un Copier (lorsque la fenêtre de dialogue s'affiche), et coller l'ensemble sur le forum ... on aurait comme ça le contenu exact, un slash, un point, un détail peut jouer !

[Andnotor]

Ben oui, c'est un copié/collé de ton premier post. C'était surtout pour montrer le test sur 0 et RaiseLastOSError.

[Toon74]

Oui oui je sais mais si je place tno code supplémentaire (if .... = 0 then RaiseLastOSError il me dit que les types ne sont pas compatibles, chose que je n'ai pas eu avant.

[Toon74]

C:\Documents and Settings\informaticien\Bureau\Valid_PDF\En Attente\BAIGNADE_VIERGE.pdf

C:\Documents and Settings\informaticien\Bureau\Valid_PDF\Accepté\BAIGNADE_VIERGE.pdf

[Andnotor]

Euh... oui, c'est un booléen

Code :

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

1
2
if not MoveFileEx() then
  RaiseLastOSError;

[Toon74]

Aie tout de suite ca devient plus clair :

erreur systeme code 32 : le processus ne peut accéder au fichier car ce fichier est utilisé par un autre processus...

En effet j'ouvre le document dans un TWebBrowser et quand j'appuie sur un bouton je lui demande d'etre déplacé...

[BuzzLeclaire]

Aie tout de suite ca devient plus clair :

erreur systeme code 32 : le processus ne peut accéder au fichier car ce fichier est utilisé par un autre processus...

En effet j'ouvre le document dans un TWebBrowser et quand j'appuie sur un bouton je lui demande d'etre déplacé...

??? c'est nouveau où c'est une erreur que tu nous as caché...p'tit vilain.. lol

C'est sur que si tu ouvre ton fichier et que tu balance un move sa va pas le faire...

[Toon74]

l'erreur n'apparait qu'avec la manip d'Andnotor, que je ne connaissais pas dsl...

[cincap]

La suggestion de ShelTroll est a faire, en attendant revois ton code et ceci :

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
 
procedure TForm1.Button1Click(Sender: TObject);
Var
    Chemin_dossier : String;
    Info   : TSearchRec;
    Chemin_Source : String;
    Chemin_Dest : String;
    result : boolean;
begin
 
 
    Chemin_Source := 'C:\Documents and Settings\informaticien\Bureau\Valid_PDF\En attente' + Nom_Fichier ;
    Chemin_Dest := 'C:\Documents and Settings\informaticien\Bureau\Valid_PDF\Accepté' + Nom_Fichier ;
    ShowMessage (Chemin_Source);
    ShowMessage (Chemin_Dest);

Bouge le dernier Slach

@+,

Cincap

[BuzzLeclaire]

l'erreur n'apparait qu'avec la manip d'Andnotor, que je ne connaissais pas dsl...

AndNotor

Du coup il faudrait tester si il est ouvert avant ?

http://delphi.developpez.com/sources...no40source0049

@+

[Toon74]

Un gros merci à tous en tous cas, il ne me reste plus qu'atrouver comment fermer le fichier ouvert précédemment dans le webbrowser et ca devrait fonctionner logiquement.

Je vous tiens au jus merci encore.

[ShaiLeTroll]

il peut continuer à utiliser le MoveFileEx mais au lieu d'un RaiseLastOSError, il peut tester l'erreur 32 avec GetLastError et afficher un message moins brutal aux utilisateurs

[Toon74]

Non mais quoi qu'il arrive le fichier sera ouvert en fait, il faut donc que je le ferme

[Andnotor]

Et en spécifiant simplement l'adresse du WebBrowser à about:blank ?
Il faudra peut-être tout de même synchroniser le déplacement avec OnDocumentComplete.

Pour du moins brutal que l'exception:

Code :

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

ShowMessage(SysErrorMessage(GetLastError));

[Toon74]

en spécifiant l'adresse à about:blank ca marche mais apparament ca ne va pas assez vite, il faut que je fasse une pause entre le changement d'adresse et le déplacement pour que ca fonctionne.

[Andnotor]

OnDocumentComplete ?

[Toon74]

ouaip j'essaye de faire fonctionner ca