Discussion :

[cincap]

Bonjour à toutes et à tous,

J'utilise un TopenDialog et dans un Tedit je récupère que le nom du fichier avec son extension (en principe).

Création du fichier :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 with OpenDialog do
   begin
      Title:='Créer un fichier Zip';
      Options:=Options+[ofHideReadOnly,ofShareAware];
      Options:=Options-[ofPathMustExist,ofFileMustExist];
      Filter :='Fichiers Zip (*.ZIP)|*.zip';
      if not Execute then exit else
         SetNewZipFile(Filename, True);
   end; { end with }

Récupération du nom plus son extension, je dois ajouter ".avi" :

Code :

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

1
2
3
 
 FileName := ExtractFileName(OpenDialog.filename);
   ZipFName.text := Filename +'.zip';

Est ce normal ?

Merci d'avance,

Cincap

[qi130]

J'ai du mal à cerner ton problème

Tu parles d'extension AVI, tu rajoutes ZIP.....

Que veux-tu obtenir ?

Pour ton info, il y a une fonction permettant de changer l'extension (mais je me souviens plus du nom ChangeFilequelquechose )

[cincap]

@ qi130, merci de ta réponse, dans le code c'est bien ZIP qui est exprimé, désolé pour l'erreur dans la description :

Récupération du nom plus son extension, je dois ajouter ".ZIP" :

@+,

Cincap

[ero-sennin]

Salut,

Est-ce que ton fichier ZIP a bien une extension quand il est créé ?
Peut-être faut-il regarder du coté de DefautExt ?
En revanche, l'aide de Delphi indique bien que ExtractFileName renvoie le nom du fichier + l'extension

[cincap]

@ ero-sennin, merci de ta réponse.

Est-ce que ton fichier ZIP a bien une extension quand il est créé ?

Oui

Peut-être faut-il regarder du coté de DefautExt ?

Tu as parfaitement raison, j'avais oublié l'extension par défaut, comme quoi cela saute aux yeux de certains.

Grand merci à toi.

Sinon, en rajoutant "*.zip" cela fonctionnait avec le 1er fichier créé mais si on écrasait ce fichier avec le même nom on obtenait ceci "mon fichier.zip.zip".

Topic résolu.

@+,

Cincap