image1.Picture.Graphic.LoadFromStream(ms) : Erreur ! etc !

**sp2308** · 31/03/2011, 11h04

Bon a priori rien de bien difficile sauf que je rencontre une difficulté avec le fait que le Tstream contient le texte d un memo.
Quand je dis texte je veux parler de ce qui s affiche dans un memo quand on ouvre une image...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
  ms: TMemoryStream;
begin
  ms := TMemoryStream.Create;
  try
    Memo1.Lines.savetostream(ms);
    ms.Seek(0, soFromBeginning);
    image1.Picture.Graphic.LoadFromStream(ms);
  finally
    ms.Free;
  end;
end;

merci pour votre aide.

**Paul TOTH** · 31/03/2011, 11h36

quelle drôle d'idée !

probablement un problème avec les fins de lignes, voir avec la caractères nulls.

**ShaiLeTroll** · 31/03/2011, 11h56

Lorsque j'ouvre une image avec NotePad, cela ne donne pas grand chose, tu perds tous les caractères non imprimables ! c'est génant !
As-tu essayé d'ouvrir un Bitmap avec Notepad, et juste l'enregistrer de nouveau ? résultat : Bitmap corrompu !

Tu ne peux pas ouvrir un Binaire en mode Texte, ce n'est pas du tout compatible, c'est pour cela qu'il y a des editeurs Hexadécimaux comme UltraEdit !

tu ne confonds pas avec l'encodage en base64 d'un TImage dans une DFM ?

**sp2308** · 31/03/2011, 23h13

je ne confonds pas, je decouvre ;-)

En fait la finalité est fort simple.

Je sais fermer mon appli en sauvegardant un timage par exemple si j ai declaré son nom.

Mais comme je ne sais pas combien j ai finalement de timage (puisque crees dynamiquement ) je ne peux pas le faire.

Mon idéee, peut etre erronée etait de sauvegarder l image sous forme de texte dans un Tmemo puis à l ouverture de l appli convertir ce tmemo en image.

je pourrais cfreer des timage vides et les 'remplir' au fur à mesure et tous les sauvegarder (même les vides) mais je ne pense pas non plus que ce soit la bonne solution...

je cherche...J ai bien trouvé cela (pas testé encore) mais que pour bmp, je poursuis pour jpeg, png etc

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
65
66
67
68
69
70
..
const
  BPP = 8; //Note: BYTES per pixel
 
{---------------------------------------------------------}
function BitmapToString(Bitmap: TBitmap): String;
var
  x, y: Integer;
  S: String;
 
begin
  S := '';
  for y := 0 to Bitmap.Height-1 do
    begin
      for x := 0 to Bitmap.Width-1 do
        begin
          S := S + IntToHex(Bitmap.Canvas.Pixels[x,y], BPP);
        end;
      S := S + '\';
    end;
  Result := S;
end;
{---------------------------------------------------------}
function StringToBitmap(S: String): TBitmap;
var
  Bitmap: TBitmap;
  Line: String;
  P: Integer;
  x, y: Integer;
 
begin
  Bitmap := TBitmap.Create;
  P := pos('\', S);
  Bitmap.Width := P div BPP;
  Bitmap.Height := 1;
 
  Line := Copy(S, 1, P-1);
  Delete(S, 1, P);
  x := 0;
  y := 0;
 
  While P <> 0 do
    begin
      if length(Line) <> 0 then
        begin
          Bitmap.Canvas.Pixels[x, y] := StrToInt('$' + Copy(Line, 1, BPP));
          Delete(Line, 1, BPP);
          inc(x);
        end
      else
        begin
          P := pos('\', S);
          Line := Copy(S, 1, P-1);
          Delete(S, 1, P);
          inc(y);
          Bitmap.Height := y+1;
          x := 0;
        end;
    end;
  Bitmap.Height := Bitmap.Height - 1;
  Result := Bitmap;
end;
{---------------------------------------------------------}
procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
begin
  S := BitmapToString(Image1.Picture.Bitmap);
  Image2.Picture.Bitmap := StringToBitmap(S);
end;

**Paul TOTH** · 01/04/2011, 06h28

il y a une solution simple, mettre tous les bitmaps dans un seul fichier...ou créer autant de fichier que de bitmap

démonstration:

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
 
var
  f: TFileStream;
begin
// si le fichier test.bps existe
  if FileExists('test.bps') then
  begin
  // lire les bitmaps, on pourrait tester que f est en fin de flux pour savoir
  // s'il existe encore un bitmap dedans et faire une boucle de lecture
    f := TFileStream.Create('test.bps', fmOpenRead);
    Image1.Picture.Bitmap.LoadFromStream(f);
    Image2.Picture.Bitmap.LoadFromStream(f);
  end else begin
  // pour l'exemple on va créer deux bitmaps bidons
  // et les enregistrer dans un seul et même fichier
    Image1.Canvas.TextOut(0,0,'Image1');
    Image2.Canvas.TextOut(0,0,'Image2');
    f := TFileStream.Create('test.bps', fmCreate);
    Image1.Picture.Bitmap.SaveToStream(f);
    Image2.Picture.Bitmap.SaveToStream(f);
  end;
  f.Free;
end;

**tourlourou** · 01/04/2011, 10h34

Je sais fermer mon appli en sauvegardant un timage par exemple si j ai declaré son nom.

si tu ajoutes tes TImage dynamiques dès leur création à un TObjectList, il te suffit de balayer les items de la liste pour savoir qui sauver, même si ces variables n'ont pas de 'nom' puisque tu conserves un pointeur dessus.

tu peux même fixer leur Owner comme étant la fiche, parcourir les composants de la fiche, tester si ce sont des TImage, et sauver si c'est le cas.

**sp2308** · 02/04/2011, 22h49

Envoyé par tourlourou

si tu ajoutes tes TImage dynamiques dès leur création à un TObjectList, il te suffit de balayer les items de la liste pour savoir qui sauver, même si ces variables n'ont pas de 'nom' puisque tu conserves un pointeur dessus.

tu peux même fixer leur Owner comme étant la fiche, parcourir les composants de la fiche, tester si ce sont des TImage, et sauver si c'est le cas.

je te remercie, je vais voir c que j arrive à faire...

**Caribensila** · 03/04/2011, 18h09

Bonjour,

Envoyé par sp2308

En fait la finalité est fort simple.
Je sais fermer mon appli en sauvegardant un timage par exemple si j ai declaré son nom.
Mais comme je ne sais pas combien j ai finalement de timage (puisque crees dynamiquement ) je ne peux pas le faire.
Mon idéee, peut etre erronée etait de sauvegarder l image sous forme de texte dans un Tmemo puis à l ouverture de l appli convertir ce tmemo en image.

Si je t'ai bien compris, tu ne veux que sauvergarder l'interface utilisateur.
Si c'est le cas, tu peux mettre toutes tes TImages en flux (c'est un peu ce que tu voulais faire dans un Memo, mais de façon plus orthodoxe).
Imaginons que les TImages soient toutes dans ScrollBox1 et que tu les aies créées avec ScrollBox1 comme Owner (très important !).
Il suffit de mettre ce TScrollBox en flux pour pouvoir le récupérer au prochain lancement (ainsi que toutes les TImages dont il est le Owner) :

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
procedure TForm1.FormCreate(Sender: TObject);
  begin
  if FileExists('Images') then begin
     ReadComponentResFile('Images', ScrollBox1);
     ScrollBox1.Parent := Self;
  end;
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  begin
  if MessageDlg('Sauvegarder les images?',mtConfirmation,[mbYes,mbNo],0)=mrYes
    then if assigned(ScrollBox1) 
        then WriteComponentResFile('Images',ScrollBox1);
end;
 
 
initialization
  RegisterClass(TImage);
finalization
 
END.

**Paul TOTH** · 03/04/2011, 20h09

Envoyé par Caribensila

Bonjour,

Si je t'ai bien compris, tu ne veux que sauvergarder l'interface utilisateur.
Si c'est le cas, tu peux mettre toutes tes TImages en flux (c'est un peu ce que tu voulais faire dans un Memo, mais de façon plus orthodoxe).
Imaginons que les TImages soient toutes dans ScrollBox1 et que tu les aies créées avec ScrollBox1 comme Owner (très important !).
Il suffit de mettre ce TScrollBox en flux pour pouvoir le récupérer au prochain lancement (ainsi que toutes les TImages dont il est le Owner) :

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
procedure TForm1.FormCreate(Sender: TObject);
  begin
  if FileExists('Images') then begin
     ReadComponentResFile('Images', ScrollBox1);
     ScrollBox1.Parent := Self;
  end;
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  begin
  if MessageDlg('Sauvegarder les images?',mtConfirmation,[mbYes,mbNo],0)=mrYes
    then if assigned(ScrollBox1) 
        then WriteComponentResFile('Images',ScrollBox1);
end;
 
 
initialization
  RegisterClass(TImage);
finalization
 
END.

ça c'est une fausse bonne idée, car le format du flux est dépendant de la version de Delphi.

**Caribensila** · 03/04/2011, 21h42

ça c'est une fausse bonne idée, car le format du flux est dépendant de la version de Delphi.

Je ne sais pas si je te comprends bien, Paul...

Veux-tu dire que le fichier ne sera pas exploitable par une autre application codée avec une autre version de Delphi ?
Mais est-ce si gênant que ça si on considère que c'est une sorte de fichier.ini qui ne sert qu'à l'intérieur de l'application qui l'a créé ?

Ou je t'ai sans doute mal compris... Peux-tu m'éclairer, s'il te plaît ?

**Paul TOTH** · 04/04/2011, 07h13

Envoyé par Caribensila

Je ne sais pas si je te comprends bien, Paul...

Veux-tu dire que le fichier ne sera pas exploitable par une autre application codée avec une autre version de Delphi ?
Mais est-ce si gênant que ça si on considère que c'est une sorte de fichier.ini qui ne sert qu'à l'intérieur de l'application qui l'a créé ?

Ou je t'ai sans doute mal compris... Peux-tu m'éclairer, s'il te plaît ?

WriteComponentRes utilise les RTTI pour stocker les propriétés des objets, avec une nouvelle version de Delphi tu as des propriétés en plus (normalement pas en moins), mais il suffit que la nouvelle version de Delphi passe en UTF8, en Unicode, ajoute une compression ou que sais-je pour que le format soit totalement différent et le fichier inexploitable.

Si l'application sauvegarde des données, c'est qu'à priori elles sont nécessaires, il serait dommage de ne pouvoir les lire suite à une mise à jour du programme qui serait compilé avec une nouvelle version de Delphi.

**Caribensila** · 04/04/2011, 13h49

Ok. Je comprends.
On sent bien le souci de maintenace du profesionnel !

C'est dommage, je trouvais le truc sympa pour sauvegarder une interface utilisateur...
Merci pour tes précisions.

image1.Picture.Graphic.LoadFromStream(ms) : Erreur ! etc !

Langage Delphi

Discussions similaires

Partager

Partager