Discussion :

[mario9]

Bonjour

J'ai sortie une ancienne procedure qui existait en D7 et je desirais la corriger pour l'utiliser en Radstudio 12 et a la ligne de lpFileOp.pFrom:=TabFrom j'ai un erreur sur Tabfrom

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
23
 
procedure copier(Handle:HWND;Source,Cible:String);
var
  lpFileOp:TSHFileOpStructA;
  TabFrom:array[0..255] of char;
  i:integer;
 
begin
     For i:=0 to length(Source)-1 do TabFrom[i]:=Source[i+1];
     TabFrom[length(Source)]:=#0;// pFrom peut contenir plusieurs noms de fichier. Les noms doivent être séparés par le caractère #0.
     TabFrom[length(Source)+1]:=#0;// d'après mes essais, le dernier nom de fichier doit être suivi de deux caractères #0.
 
    {-----préparation du paramètre lpFileOp qui sera passé en paramètre à SHFileOperation -----}
     lpFileOp.Wnd:=handle;
     lpFileOp.wFunc:=FO_COPY; // l'action sera une copie
     lpFileOp.pFrom:=TabFrom; // contient le ou les fichiers /dossiers à recopier
     lpFileOp.pTo:=PAnsiChar(Cible);   // ce vers quoi on recopie
     lpFileOp.fFlags:=FOF_ALLOWUNDO;   // préserve la possibilité d'annuler la copie
                              // + FOF_RENAMEONCOLLISION; //si le fichier cible existe déjà, il le copie sous un nom du style copie (1) de..
     { fin de la préparation du paramètre lpFileOp}
 
     SHFileOperation(lpFileOp); // procède à la copie
end;

Merci de votre aide

Mario

[SergioMaster]

Bonjour,

sans "analyser" le code, je dirais que c'est l'erreur classique du passage de ANSI à UTF8 (donc bien ante D12)
Remplacer les déclarations de String par ANSIString et Char par ANSIChar devrait résoudre ce "hic" (il me semble qu'il existe aussi des directives de compilation mais je déconseillerai)

en "analysant"
Si je comprends bien l'objectif, il s'agit de faire une copie de 1 à n fichiers à partir d'une liste en passant par l'API Windows, un peu comme ce que propose Nono40
Perso, étant désormais plus "FMX et multi OS" (et un peu anti API) j'utiliserai les routines contenues dans System.IOUtils
en exemple, non testé, je me trompe peut-être du tout au tout

Code :

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

1
2
3
4
5
6
7
8
9
 
// Array of string est un dynamic array
procedure TForm2.copiefichiers(destinationdir: string;
  const listefichiers: Array of String);
var fichier : String; // chemin complet d'un fichier
begin
 for fichier in listefichiers do
   TFile.Copy(fichier,Tpath.Combine(destinationdir,fichier),true);
end;

Dynamic arrays :
https://blog.marcocantu.com/blog/201...delphixe7.html