Tbitmap et File

Version imprimable

Tbitmap et File

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:

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:

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)! :arf:

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

08/10/2013, 18h52
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

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

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

Code:

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.

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

Code:

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.

14 ans ? pas mal :D

bon tu as quelques confusions dans ton code.

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

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:

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:

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;

09/10/2013, 18h44
Basile le disciple

Merci beaucoup pour le compliment! :P

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?
09/10/2013, 19h53
Paul TOTH

ah ok je n'avais pas compris ton code...le pb vient de fmCreate qui détruit le fichier s'il existe :)
10/10/2013, 18h37
Basile le disciple

Alors qu'est-ce qu'il faut faire pour que ça marche?:oops:

quelque chose comme ça par exemple

Code:

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    F:=TFileStream.Create('c:\Steam.bmp',fmOpenReadWrite);
    Image1.Picture.Bitmap.LoadFromStream(F);
  except
    F:=TFileStream.Create('c:\Steam.bmp',fmCreate);
  end;
end;

Mais dès que je change steam en autre chose, delphi m'envoie un message d'erreur(il ne le trouve pas)!!:cry:

Code:

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 try
    F:=TFileStream.Create('c:\bitmap.bmp',fmOpenReadWrite);
    Image1.Picture.Bitmap.LoadFromStream(F);
  except
    F:=TFileStream.Create('c:\bitmap.bmp',fmCreate);
  end;
end;

11/10/2013, 04h43
Paul TOTH

oui c'est normal, mais c'est une 'exception', elle s'affiche dans Delphi mais si tu lance l'application directement le message ne s'affichera pas.

sinon tu peux tester l'existence du fichier avec FileExists, s'il existe l'ouvrir en fmOpenReadWrite sinon le créer.
11/10/2013, 16h21
Basile le disciple

Parfait, ça marche parfaitement!:ccool:
Merci beaucoup pour toutes vos réponses!:P