TImage devient invisible après affectation de son bitmap

**Tradiator** · 16/03/2010, 19h19

Bonjour,

(Débutant en Delphi mais pas en programmation).

Je mets un TImage tout seul sur une fenêtre et il s'affiche correctement.
Mais dès que j'affecte son bitmap à une variable l'image devient invisible:

Code :

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

1
2
3
  mBitmap : TBitmap;
  mBitmap := TBitmap.Create;
  mBitmap.Assign(Image1.Picture.Bitmap);

Ce doit un truc tout bête mais je n'arrête pas de buter sur des choses simples avec ce langage/EDI !

Merci d'avance

**Droïde Système7** · 16/03/2010, 19h40

Salut et bienvenue sur Developpez.com

Je vais te donner indirectement la réponse = plus satisfaisant de trouver par soi-même.

http://www.efg2.com/Lab/Library/Delphi/Graphics/BMP.htm

Regarde vers le bas de page

Tu verras aussi à ne pas oublier la libération de l'objet que tu as créé.

@+

**Tradiator** · 26/03/2010, 13h40

Merci pour ta réponse rapide. De mon coté j'avais du mettre Delphi un peu de coté.

Malheureusement je n'arrive pas à trouver la réponse à mon pb sur le site que tu m'as donné malgré quelques tests de code :-((
Tu n'aurais pas un indice, ou alors la solution ?

**Droïde Système7** · 26/03/2010, 14h46

Si j'me souviens bien, en t'inspirant de ceci :

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
//BMP to JPG  	
//Quick Conversion between Bitmaps and JPEG
//www.undu.com/Articles/010119c.html 
//efg's TBitmap in TImage to JPG file
    
PROCEDURE ConvertBMPtoJPG (CONST BMPName: STRING; JPGName: STRING);
  VAR
    Bitmap: TBitmap;
    JPEG : TJPEGImage;
BEGIN
  Bitmap := TBitmap.Create;
  JPEG := TJPEGImage.Create;
  TRY
    Bitmap.LoadFromFile(BMPName);
    JPEG.CompressionQuality := 80;
    JPEG.Assign(Bitmap);
    JPEG.SaveToFile(JPGName);
  FINALLY
    Bitmap.Free;
    JPEG.Free
  END
END {ConvertBMPtoJPG};

@+