Discussion :

[Jipété]

ou je n'ai pas les yeux en face des trous ?


Bonsoir, et regardez :



C'est ex-ac-te-ment comme si la ligne ChangeFileExt(… n'existait pas.

Alors bon, j'ai réécrit la fonction et là, c'est bon :



Le temps que j'ai encore perdu avec cette c0nn3r13, même pas je vous raconte,

Pensez-y, quand vous coderez vos machins…

EDIT : je ne voulais pas mourir idiot alors j'ai démarré une machine virtuelle XP SP2 avec un Laz 1.8 et le problème est identique, ouf !




EDIT2 : pour faciliter la vie de ceux qui voudraient tester, copiez/collez ce qui suit dans la proc d'un bouton, ou du FormCreate, puis F9 :

Code :

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

1
2
3
4
5
6
7
8
9
10
var   
  tmpfile: string;
begin
  tmpfile := GetTempFileName(GetTempDir, 'abc');
 
  ChangeFileExt(tmpfile, '.jpg');
  // décommenter, au choix, dessus ou dessous (et commenter l'autre), pour voir ce qui se passe ou pas.
  //tmpfile := copy(tmpfile, 1, length(tmpfile)-length(ExtractFileExt(tmpfile))) + '.jpg';
 
  ShowMessage(tmpfile);

[JP CASSOU]

Prototype de ChangeFileExt

Code :

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

1
2
 
function ChangeFileExt(const FileName, Extension: RawByteString): RawByteString;

Je pense que çà fonctionnera mieux avec ceci:

Code :

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

1
2
3
4
 
 tmpfile := GetTempFileName(GetTempDir, 'abc');
 tmpfile :=  ChangeFileExt(tmpfile, '.jpg');
 Showmessage(tmpfile);

Je suppose que vous avez connu un ChangeFileExt() sous forme d'une procédure ou d'une fonction avec un prototype de la forme

Code :

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

1
2
3
4
 
function ChangeFileExt(var FileName: RawByteString; const Extension: RawByteString): boolean; 
 
procedure ChangeFileExt(var FileName: RawByteString; const Extension: RawByteString);

[Jipété]

Bonsoir,

Bien vu !

Je dois donc commencer à devenir mauvais, la solution proposée ne m'ayant absolument pas effleuré l'esprit...

Faut dire aussi que l'aide n'est pas d'une grande aide, qu'on en juge :

ChangeFileExt changes the file extension in FileName to Extension.

En lisant ça, on se dit que la manière dont j'ai écrit ma ligne ça aurait dû le faire, un peu comme quand on écrit inc(i, nbre).

Regardez la différence avec ExtractFileDir :

ExtractFileDir returns only the directory part of FileName, including a driveletter.

Une fonction change directement, l'autre retourne une chaîne modifiée,

Bon, allez, je suis mauvais, va falloir que je songe à me ranger, en attendant, mon besoin tient sur une ligne, du coup :

Code :

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

tmpfile := ChangeFileExt(GetTempFileName(GetTempDir, 'abc'), '.jpg');

Merci, bye-bye,