Comment récupérer le nom du fichier sans l'extension ?

**altahir007** · 18/09/2002, 14h52

il y a t'il une fct qui permette de recuperer le nom d'un fichier sans son extention ! ?

exemple:

fichierdeveloppez.com ----> fichierdeveloppez

merci à celui qui me trouvera la solution sans passer par des boucles à la con

amicalement

sam

**Ultra-FX** · 18/09/2002, 14h57

Salut

ExtractFileName -> fichier + extention
ExtractFileExt -> extention
Donc copy de filename - la taille de l'extention = le nom du fichier

Ce qui nous donne: Copy(1,FileName,Length(FileName)-Length(Ext));

Bon Dev @+

**altahir007** · 18/09/2002, 15h03

cool et en 10 minutes on me repond !

merci à toi pour ton aide !

amicalement,

sam

**prolice** · 18/09/2002, 15h04

Y il a encore plus simple

Code :

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

1
2
3
4
var FileName &#58; string;
               res          &#58; string;
  FileName &#58;= 'Monfichier.ext';
  res &#58;= changeFileExt&#40;FileName,''&#41;;

**altahir007** · 18/09/2002, 15h10

je test !
pas tous à la fois

**Ultra-FX** · 18/09/2002, 15h15

ChanFileExt est pas mal non plus.
Je ne la connaissais pas !

**altahir007** · 18/09/2002, 15h54

c'est cool ça marche !

merci encore à vous deux !

**ushu** · 18/09/2002, 15h58

Moi non plus je ne connaissais pas la fonction ChangeFileExt !
Cool !!!

On en apprend tous les jours !

**Ultra-FX** · 18/09/2002, 16h01

Pense à mettre un p'tit [clos] ou [résolu]

Amicalement

**Smortex** · 18/09/2002, 21h35

Encore une autre méthode (sans variable autre que le nom de fichier)

Code :

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

1
2
 
SetLength&#40;MaVariable,length&#40;MaVariable&#41; - length&#40;ExtractFileExt&#40;MaVariable&#41;&#41;;

En une ligne ! En fait, on défini la taille de la chaine de caratère à sa taille moins la taille de l'extension.

Bon développement !

**yendre** · 09/08/2007, 12h27

J'écris une procédure qui pourra recuper le nom d'un fichier image bmp dans un champ BLOB d'une base de données créée. Mais j'ai des problèmes a l'affichage de l'image.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Var 
SPath : String;
With Table do
begin
//Récupération du nom du fichier
Spath:=ExtractFilePath(Application.ExeName)+ FieldByName('Nom').AsString ;
// sauvegarde du fichier
TBlobField(FieldByName('Fichier')).SaveToFile(sPath);
end; 
Image1.Picture.LoadFromFile('sPath');

Dans la procédure Fichier designe le nom du champ Blob et NOM designe le nom du champ image.

J'ai le message suivant : le nom du format de l'image n'est pas spécifié.

Fichier

**Laurent Dardenne** · 09/08/2007, 13h33

Salut,
yendre merci d'utiliser les balises codes.

Pour info le tag

je trouve en bas de la page de consultation des messages.

**ALWEBER** · 09/08/2007, 14h47

Remplacer

Code :

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

Image1.Picture.LoadFromFile('sPath');

Par

Code :

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

Image1.Picture.LoadFromFile(sPath);

ou si ton champ "nom" ne contient pas d'extension et que ton fichier est de type "bmp"

Code :

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

Image1.Picture.LoadFromFile(sPath+'.bmp');

**sjrd** · 09/08/2007, 15h33

Une autre à base de SetLength mais plus rapide (à l'exécution) :

Code :

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

SetLength(MaVariable, LastDelimiter('.', MaVariable)-1);

**zouriteman** · 13/09/2007, 14h21

pour YENDRE
Assure toi que
a) le SPath contient bien un "\" séparateur du Path et du Nom de fichier
b) le Nom de fichier contient bien une Extension (genre .BMP , .JPG )
Pour cela, rien ne vaux un bon débugging en tracant les variables locales (en subdivisant ton string) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Var 
SPath , S1 , S2 : String;
With Table do
begin
//Récupération du nom du fichier
S1 := ExtractFilePath(Application.ExeName) ;
S2 := FieldByName('Nom').AsString ;
Spath:= S1 + S2 ;
// sauvegarde du fichier
TBlobField(FieldByName('Fichier')).SaveToFile(sPath);
end; 
Image1.Picture.LoadFromFile( SPath);  // une VARIABLE , pas un String !!!