Discussion :

[frantzgac]

Bonjour
Je découvre un comportement inexplicable de TFileStream.create. Dans le code qui suit :

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
 
function  GetTempFile(Path : AnsiString):PAnsiChar;
var s,f:string;
  SaveFile:array [0..MAX_PATH]of char;
  u:integer;
  fs:TFileStream;
begin
     u:=Windows.GetTempFileName(PAnsiChar(Path),nil,0,SaveFile);
     if u=0 then result:='' else result:=SaveFile;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
var s,f:Ansistring;
  SaveFile:PAnsiChar;
  u:integer;
  fs:TFileStream;
begin
     SaveFile:=GetTempFile(GetEnvironmentVariable('TEMP')); // Renvoie un PAnsiChar sur un nom de fichier temporaire
      fs:=TFileStream.create(SaveFile,fmOpenReadWrite);

Le create fonctionne mais après son execution SaveFile est inacessible.

Ce pointeur a été alloué par GetTempFileName mais pourquoi son usage le fait il disparaitre ?

[Paul TOTH]

ouch !

un PChar est un pointeur sur un Char

ta fonction retourne un pointeur sur une variable locale à la fonction.

où se trouvent les variables locales ? dans le cas présent sur la pile.

Qu'est-ce que la pile ? c'est une zone mémoire ou on empile les données puis les dépiles...cela permet par exemple un appel récursif d'une fonction, la pile contient alors les variables locale de chaque appel avec l'adresse de retour...quand on dépile, on prend sur la pile l'adresse retour et on libère toutes les variables locales.

donc ta fonction GetTempFile() alloue de la place sur la pile, notamment pour SaveFile, alimente son contenu et retourne un pointeur sur cette zone mémoire...qui est considérée disponible dès la fin de la procédure.
l'appel à TFileStream.Create va gentiment écrire sur la pile justement là où se trouve SaveFile...bon comme tu as deux autres variables avant, la valeur ne vas pas forcément être écrasée de suite, mais en tout cas les données sont dans une zone considérée comme disponible.

il est préférable d'utiliser un string, en plus Delphi fait l'allocation automatiquement.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function  GetTempFile(Path : AnsiString): string;
var s,f:string;
  SaveFile:array [0..MAX_PATH]of char;
  u:integer;
  fs:TFileStream;
begin
     u:=Windows.GetTempFileName(PAnsiChar(Path),nil,0,SaveFile);
     if u=0 then result:='' else result:=string(SaveFile);
end;

euh..Par contre je vois un mélange entre Char et AnsiChar/PAnsiChar, ce devrait être

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function  GetTempFile(const Path : string): string;
var s,f:string;
  SaveFile:array [0..MAX_PATH]of char;
  u:integer;
  fs:TFileStream;
begin
     u:=Windows.GetTempFileName(PChar(Path),nil,0,SaveFile);
     if u=0 then result:='' else result:=string(SaveFile);
end;

[frantzgac]

Effectivement...

A propos du mélange PAnsiChar et PChar cela vient du fait que ce code est en Delphi 7. Mais là aussi c'est plus cohérent de faire un choix constant.

Merci