Discussion :

[colorid]

Bonjour,

Les quelques lignes de code suivantes ne fonctionnent pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure CopieFichiers;
var
  FileName,WorkName: String;
Begin
  FileName:=Form1.IMGPath+'\'+Form1.Edit1.Text;
  if ExtractFileExt(FileName)='.JPG' then
  begin
    WorkName:= 'C:\TEMP\'+Form1.Edit1.Text;
    CopyFile(pchar(FileName),pchar(WorkName),True);
    Form1.DisplayImage(WorkName);
  end;
End;

J'ai vérifié au pas à pas FileName et WorkName sont correctement initialisés et le fichier image se trouve bien dans le chemin de FileName mais à l'appel de DispayImage il n'existe pas de fichier image dans le chemin de WorkName

Comment effectuer une copie correcte ?

[bubulemaster]

1 - UpperCase(ExtractFileExt(FileName)) = '.JPG'

2 -

Code :

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

1
2
3
4
5
6
 
    if CopyFile(pchar(FileName),pchar(WorkName),True)
    then
        Caption := 'ok'
    else
        Caption := 'nok' ;

et si tu essais en dur :

Code :

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

CopyFile('c:\test.txt','c:\temp\text.txt',True);

Ca fait la même chose ?
Sinon met un point d'arrêt sur CopyFile et vérifie les valeurs de FileName et WorkName.

[colorid]

En dur celà fonctionne !
J'ai effectué un point d'arrêt sur CopyFile et vérifié les valeurs de FileName et WorkName : Elles sont bonnes !!!
Par contre j'ai modifié le code comme suit :

Code :

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

1
2
3
4
5
6
 
  if UpperCase(ExtractFileExt(FileName))='.JPG' then
  begin
    WorkName:= 'C:\TEMP\'+Form1.Edit1.Text;
    if CopyFile(pchar(FileName),pchar(WorkName),True) then  Form1.DisplayImage(WorkName);
  end;

La fonction DisplayImage n'est pas appellée ce qui signifie que la copie ne s'est pas passée !

Pourquoi ???

[Jipété]

à l'appel de DispayImage il n'existe pas de fichier image dans le chemin de WorkName

Et après ? Ce fichier image est-il bien copié en fin de procédure ?

Peut-être avec

Code :

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

1
2
3
    CopyFile(pchar(FileName),pchar(WorkName),True);
    Application.ProcessMessages; // ? -- à tenter
    Form1.DisplayImage(WorkName);

Tu pourrais essayer d'en savoir plus avec

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.

Valà,
--
jp

[colorid]

Où trouve-t'on la signification de l'erreur ?
J'ai juste utilisé err:=GetLasError immédiatement après la fonction CopyFile
Err = 6

[colorid]

Dans l'aide de CodeGear j'ai cherché la signification de l'erreur. Je ne l'ai pas trouvée mais j'ai tiqué sur la description que donne CodeGear :
object.CopyFile ( source, destination[, overwrite] )
Dans mon cas l'image copiée n'existe pas dans le répertoire cible il n'y a donc pas lieu de demander un overwrite j'ai donc écrit :

Code :

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

1
2
 
if CopyFile(pchar(FileName),pchar(WorkName),false) then Form1.DisplayImage(WorkName);

et ça marche !!!

[Jipété]

Dans mon cas l'image copiée n'existe pas dans le répertoire cible il n'y a donc pas lieu de demander un overwrite

? ? ?
D'après le SDK,

bFailIfExists
[in] If this parameter is TRUE and the new file specified by lpNewFileName already exists, the function fails. If this parameter is FALSE and the new file already exists, the function overwrites the existing file and succeeds.

Ce qui m'épate, c'est, toujours du SDK,

If the function succeeds, the return value is nonzero.

Et toi tu nous dis que ça foire avec 6 en retour... J'comprends pas, là, à moins que CodeGear ait encapsulé l'appel à l'API, en inversant la valeur de retour ?

--
jp

[colorid]

N'empêche que ça marche !