Discussion :

[Basile le disciple]

Bonjours à tous

Je voudrais faire un programme qui garde en mémoire un String et un TBitmap.
Sans le TBitmap, delphi compile sans erreurs :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TDonnee_en_Memoire = record
    nom : string[20];
  end;
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  F : File of TDonnee_En_Memoire;
  Donnee : TDonnee_en_Memoire;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  AssignFile(F,'C:\Memoire.donnee');
  {$I-}
    Reset(F);
  {$I+}
  If IOresult = 0 then
  begin
    Read(F,donnee);
    Edit1.Text:=donnee.nom;
  end;
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
  donnee.nom:=Edit1.Text;
  Rewrite(F);
  Write(F,Donnee);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  CloseFile(F);
end;
 
end.

mais dès que je rajoute un TBitmap, delphi m'envoie un message d'erreur.

Voici le code après le rajout d'un TBitmap:

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
20
21
22
23
24
25
26
27
28
29
30
 
TDonnee_en_Memoire = record
    nom : string[20];
    Image : TBitmap;
  end;
 
……
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  AssignFile(F,'C:\Memoire.donnee');
  {$I-}
    Reset(F);
  {$I+}
  If IOresult = 0 then
  begin
    donnee.Image:=TBitmap.Create;
    Read(F,donnee);
    Edit1.Text:=donnee.nom;
    Image1.Picture.Bitmap:=Donnee.Image;
  end;
end;
 
…..
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  CloseFile(F);
  Donnee.Image.Free;
end;

Et cela fait la même chose si, à la place du TBitmap, je mets un tableau(à 1 dimension)!

Pourriez-vous me donner une réponse qui résoudrait ces 2 problèmes ?

[Paul TOTH]

c'est normal, le bitmap est une classe objet, sous Delphi c'est donc un pointeur. Tu sauvegardes dans ton fichier non pas le contenu du bitmap mais son adresse en mémoire. Relire se fichier te donne une adressse qui n'a plus aucune signification.

cf TFileStream et TBitmap.SaveToStream

[Basile le disciple]

Pourriez-vous me donner un exemple car même en cherchant, je n'y arrive pas!

Voici mon code qui permet de garder en mémoire un TBitmap(qui ne marche) :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtDlgs, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    OpenPictureDialog1: TOpenPictureDialog;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  FileStream,FileStream2 : TFileStream;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  With OpenPictureDialog1 do
  begin
    Execute;
    if FileName <> '' then Image1.Picture.Bitmap.LoadFromFile(Filename);
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    FileStream:=TFileStream.Create('C:\Stream.Str',fmCreate);
  Finally
    FileStream.Free;
  end;
  FileStream2:=TFileStream.Create('C:\Stream.Str',fmOpenReadWrite);
  Image1.Picture.Bitmap.LoadFromStream(FileStream2);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  FileStream2.Free;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Image1.Picture.Bitmap.SaveToStream(FileStream2);
end;
 
end.

[Basile le disciple]

En fait, en cherchant encore plus, j'ai trouvé la solution :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ExtDlgs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Déclarations privées }
    F : TFileStream;
 
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  F:=TFileStream.Create('c:\Steam.bmp',fmCreate and fmOpenReadWrite);
  F.Position:=0;
  Image1.Picture.Bitmap.LoadFromStream(F);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  With OpenPictureDialog1 do
  begin
    Execute;
    if FileName <> '' then Image1.Picture.Bitmap.LoadFromFile(FileName);
    F.Position:=0;
    Image1.Picture.Bitmap.SaveToStream(F);
  end;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  F.Free;
end;
 
end.

Le seul problème, c'est que quand on le créé, delphi ne trouve pas l'emplacement du fichier.

[Paul TOTH]

14 ans ? pas mal

bon tu as quelques confusions dans ton code.

1) Button1 ouvrir la boîte de dialogue qui permet de sélectionne le fichier

Code :

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

1
2
3
4
5
6
 
// Sous cette forme on sait qu'un fichier a été sélectionné !
  if OpenPictureDialog1.Execute then
  begin
   ...
  end;

2) tu as un nom de fichier, tu peux directement lire le Bitmap

Code :

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

1
2
3
4
5
 
  if OpenPictureDialog1.Execute then
  begin
    Image1.Picture.Bitmap.LoadFromFile(OpenPictureDialog1.FileName);
  end;

c'est tout ! en faut le TFileStream n'est pas utile dans ce cas, puisque tu lis directement un fichier BMP

mais si dans ton fichier tu veux stocker d'autres choses que ton Bitmap - ce que laisse penser ton premier message - tu dois passer par un flux.

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
 
var
  nom: string[20];
  flux: TFileStream;
begin
  if OpenPictureDialog1.Execute then
  begin
   flux := TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead);
   try
    // le flux est crée avec Position = 0, pas la peine de le forcer
      flux.Read(nom, SizeOf(nom));
      Image1.Picture.Bitmap.LoadFromStream(flux);
   finally
     flux.Free;
   end;
  end;

[Basile le disciple]

Merci beaucoup pour le compliment!

En fait, c'était simplement un essai(ce serait plus rapide avec un File) mais dans mon vrai projet, je voudrais garder en mémoire un TBitmap créé durant l’exécution(donc qui n'a pas de chemin) et c'est pour ça que j'utilisais un File à tort. Pourriez-vous m'éclairer sur le sujet?