begin process at 2010 03 18 09:52:46
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Composants

 > TFILEOP/TEXTFILEOP, COMPOSANT VISUEL POUR COPIER, DEPLACER, EFFACER LES FICHIERS/REPERTOIRES

TFILEOP/TEXTFILEOP, COMPOSANT VISUEL POUR COPIER, DEPLACER, EFFACER LES FICHIERS/REPERTOIRES


 Information sur la source

Note :
Aucune note
Catégorie :Composants Classé sous :copier, deplacer, effacer, shfileoperation, fichier Niveau :Initié Date de création :22/01/2007 Date de mise à jour :25/01/2007 17:42:59 Vu / téléchargé :6 242 / 885
Auteur : f0xi

Ecrire un message privé
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

 Description

TFileOp est la classe de base de TExtFileOp.

TFileOp permet une manipulation facile des fichiers/repertoires, basé sur la fonction SHFileOperation de l'unité ShellApi.
Copier, Deplacer, Effacer et Renomer les fichiers ou des repertoires et leurs sous-repertoires ne serat plus un probleme et
vous perdrez moins de temps a developper ce genre de routines.

Vous pouvez installer ExtFileOp via l'installation de composant de delphi pour voir apparaitre la classe TExtFileOp dans la palette
Extend Delphi.
ou l'utiliser en standalone dans vos projets en invalidant la directive de compilation {$DEFINE RegTExtFileOp}.

vous avez egalement accés a 4 fonctions rapide qui se chargeront de créer et liberer un composant TFileOp,
ces fonctions sont :

FastFileOp, FastCopy, FastMove et FastDelete.

vous devez preciser quelques parametres a ces fonctions tel que la fiche principale, la liste des fichiers (TStrings), le repertoire de destination,
les options ...

l'utilisation du composant TFileOp / TExtFileOp est simple, deposez le composant (TExtFileOp) sur votre fiche principale ou créer le dynamiquement (TFileOp) definissez les parametres, la listes des fichiers ect et appelez tout simplement la fonction "Execute" du composant.
Des evenements sont egalement present pour suivre chaque etapes de la fonction "execute".

Source

  • {exemple d'utilisation en dynamique }
  • procedure TForm1.Button1Click(Sender : TObject);
  • begin
  • with TFileOp.Create(Self) do
  • try
  • Files.Assign(OpenDialog1.Files);
  • Destination := Edit1.Text;
  • FileOperation := fcCopy;
  • Title := 'Copie des fichiers';
  • Execute;
  • finally
  • Free;
  • end;
  • end;
  • { ou avec les fonctions Fast*** }
  • procedure TForm1.Button1Click(Sender : TObject);
  • begin
  • FastCopy(Self, OpenDialog1.Files, Edit1.Text);
  • end;
{exemple d'utilisation en dynamique }

procedure TForm1.Button1Click(Sender : TObject);
begin
  with TFileOp.Create(Self) do
       try
         Files.Assign(OpenDialog1.Files);
         Destination   := Edit1.Text;
         FileOperation := fcCopy;
         Title         := 'Copie des fichiers';
         Execute;
       finally
         Free;
       end;
end;

{ ou avec les fonctions Fast*** }

procedure TForm1.Button1Click(Sender : TObject);
begin
  FastCopy(Self, OpenDialog1.Files, Edit1.Text);
end;

 Conclusion

version final release 1, commentée.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

25 janvier 2007 17:42:59 :
éradication du bug du fichier DCR lors de l'installation du composant dans la palette. ;)

 Sources du même auteur

Source avec Zip COMMANDS MANAGER - BESOIN DE COMMANDES DANS VOS PROGRAMMES T...
Source avec Zip DYNAMIC LIBRARY LOADER CLASS: GAGNEZ DU TEMPS POUR CHARGER L...
Source avec Zip BASE64/BASE64URL ENCODE/DECODE
Source avec Zip NEXTGENS -> UNITÉS DE TYPES ÉVOLUÉS NOUVELLE GÉNÉRATION (DE...
Source avec Zip SIMPLES SOMME DE DONNÉES 8, 16, 32, 64 BITS
Toutes les sources de f0xi

 Sources de la même categorie

Source avec Zip COMPOSANT THORLOGE par Michel34
Source avec Zip COMMANDS MANAGER - BESOIN DE COMMANDES DANS VOS PROGRAMMES T... par f0xi
Source avec Zip Source avec une capture COMPOSANT TZSIMAGE par ThWilliam
Source avec Zip Source avec une capture UTILISER LES COMPOSANTS PAR LEURS NUMÉROS par Dany3
Source avec Zip Source avec une capture TQGRID UN STRINGGRID AMÉLIORER. par yanb
Toutes les sources de la catégorie Composants

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture INTRA MESSENGER - DELPHI par keket
Source avec Zip Source avec une capture FICLOCK : LOCKEZ LES FICHIERS par JulioDelphi
Source avec Zip Source avec une capture MODIFICATION DES EXTENSIONS DE FICHIERS par JeremyLecouvert
EXPLORATION RÉCURSIVE DE RÉPERTOIRE par JeremyLecouvert
Source avec Zip Source avec une capture NETTOYEUR DE FICHIERS par elguevel

Commentaires et avis

Commentaire de Loda le 23/01/2007 09:00:57

salut,

ça m'as l'air vachement pratique tout ça. hop, de côté.

Je me demandais si t'en avait mare d'avoir les même questions sur le forum? :)

en tout cas, merci pour cette lib.

A+

Commentaire de f0xi le 23/01/2007 14:37:55 administrateur CS

bah ça evitera pas les questions ...

mais au moins y'a un truc qui peu etre utile a ceux qui cherche :)

ps : je viens de passer une heure a retranscrire l'api Kernel32 en delphi ... le truc ... c'est que c'est deja fait dans l'unité windows .. X$ .. la honte.

Commentaire de sylvunix le 24/01/2007 21:46:23

Bonsoir f0xi,

Je teste actuellement ton composant. Il y a un point qui me prend la tête et je ne comprend pas tout. Lorsque je compile ton composant, j'ai l'erreur suivante (sous Delphi 7):

[Erreur]WARNING. Duplicate ressource(s):
[Erreur]  Type 2 (BITMAP), ID TEXTFILEOP:
[Erreur]  File ...\ExtFileOp.dcr resource kept, ...\ExpFileOp.dcr resource discarded

Je suis obligé de mettre en commentaires les lignes suivantes pour que cela passe :

   {$IFDEF RegTExtFileOp}
      {$R ExtFileOp.dcr}
   {$ENDIF}

Je dois peut-être m'y prendre comme un manche à balai !

Commentaire de f0xi le 25/01/2007 17:41:52 administrateur CS

ha ...

j'ai pas tester l'install dans la palette, tout me semblais pourtant correct.
je vais regarder pourquoi et mettre a jours...

qq minutes plus tard :

ok je viens de comprendre, quand un fichier DCR porte le meme nom que l'unitée et est placé dans le meme repertoire que cette derniere il est pris en compte automatiquement l'ors de l'ajout a un paquet d'installation ...
j'ai reparer le probleme en placant directement le fichier dcr dans le  repertoire RC la ou il devrait se trouver logiquement en fait.

Commentaire de thonyboy le 22/05/2007 15:01:22

Oui ca semble super utile. Merci pour le Taf.
Cependant je n'arrive pas a l'utiliser... (Installation en local)

Je veux copier tous les fichiers et sous répertoires de c:\toto dans d:\titi
Pour cela j'ai deux string : StrSource et StrDest

En reprenant l'exemple cela me donne :
  try
         Files.Assign(StrSource); <<<< C'est la que je bloque !
         Destination   := StrDest;
         FileOperation := fcCopy;
         Title         := 'Copie des fichiers';
         Execute;
       finally
         Free;
       end;

Si quelqu'un pouvait m'aider...

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Copier un Fichier dans une string [ par lomig ] Question a la con: comment fait-on pour copier un fichier (texte) dans une chaine (string)?? Copier un fichier à la fin d'un exe [ par Bombela ] Je fais un petit prog qui archive en compressant.Je voudrais que pendant que le prog marche, on puisse rajouter un fichier (je travaille avec TfileStr copie de fichiers [ par FeuilleMorte ] J'utilise une fonction qui est sencée copier tous les fichiers d'un répertoire (une quarantaine voir plus dans certains cas)dans un autre quand j'uti comment effacer un fichier ? [ par norton ] Hello, comment faire pour effacer un fichier sur un lecteur amovible ou le hdd est la commande 'kill' ? copier fichier sans ecraser [ par Joleroy ] salut a tous.encore un message d' aide de ma part.je voudrais savoir cimment copier un fichier sans ecraser le fichier existant mais en en créant un a Effacer dans un fichier texte [ par Kundun2 ] Bonjour,Je n'arrive pas à effecer juste une ligne danbs un fichier texte.Mon fichier enumère plusieurs lignes : testligne1testligne2testligne3...je vo StringGrid et fichier texte [ par koaiz ] Salut les mecs je voudrais savoire si on peut copier le contenue d'un StringGrid dans un fichier textej'ai esssayer une methode qui consiste a copier deplacer un fichier commande movefile [ par couf ] Bonjour &#224; Tous, Je vous remercie d'avance pour l'aide que vous allez m'apporter &nbsp; Voila je suis sur windows XP avec delphi 7 &nbsp;&nbsp; Deplacer des fichiers [ par gpwebmaster ] Y'a t-il une fonction pour deplacer&nbsp;toutles fichiers d'un&nbsp;repertoire &#224; un autre, parce qu'avec la fonction MoveFile ou MoveFileEx je ne Copier un fichier à partir d'un repertoire sous reseau [ par hkm21 ] salutj'amerais savoir comment acceder -a partir de mon apllication- &#224; un repertoire sous reseau pour copier un&nbsp; fichier sur mon postemerci d


Nos sponsors


Appels d'offres

Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

  
  

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,232 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)