jpeg et TImage (encore !)

Version imprimable

Bonjour à tous,

J'ai un petit problème pour afficher une image jpeg dans un TImage.
J'ai trouvé quelques explications sur le forum qui m'ont permis de construire le source suivant,
mais pourquoi il plante sur la dernière ligne ?
Je suis un peu bloqué ... :(
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 VignImg: TImage; VignBMP: TBitmap; VignEve: TJPEGImage; ... if FileExists(ChemImg) then VignEve.LoadFromFile(ChemImg); VignBMP.Assign(VignEve); VignImg.Picture.Assign(VignBMP); ...
Sûrement que cela doit être évident pour certains d'entre nous, je les en remercie par avance :P

19/04/2010, 17h02
ShaiLeTroll
Essaye tout simplement
Code:

1 2 3 4 5 6 if FileExists(ChemImg) then begin VignEve.LoadFromFile(ChemImg); VignImg.Picture.Bitmap.Assign(VignEve); end;
c'est ce que j'ai fait avec un LoadFromStream, ce qui doit pas changer grand chose
19/04/2010, 19h13
od.dev

Bo oui, mais ça marche po :cry:
Il faut dire que je crée le TImage dynamiquement.
Il me fait une erreur d'accès.
Je suis pourtant aguerri à ce genre d'erreur...
Je vais relire après avoir dormi...
19/04/2010, 20h32
od.dev

En fait, il plante sur

Code:

VignImg.Picture.Bitmap.Assign(VignEve);

VignImg existe bien mais Picture est à nil ! 8O

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
uses JPEG;
 
var
  img : TImage;
 
procedure TForm1.Form1Create(Sender: TObject);
begin
  img := TImage.Create(self);
  img.parent := Self;
  img.setBounds(5, 5, Width-10, Height-10);
  {autre propriétés }
  img.Picture.LoadFromFile('MonImage.jpg');
end;
 
procedure TForm1.Form1Destroy(Sender: TObject);
begin
  img.Free;
end;

19/04/2010, 22h50
Montor
le faite d'ajouter jpeg dans le uses le format jpg est prise en charge autaumatiquement par TPicture
Code:

1 2 3 4 uses jpeg VignImg.Picture.Bitmap.LoadFromFile('img.jpg');

Citation:

Envoyé par Montor

le faite d'ajouter jpeg dans le uses le format jpg est prise en charge autaumatiquement par TPicture

Il dit "image bitmap incorrecte".

En tout cas, cela ne résout pas mon problème :
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 VignBMP: TBitmap; VignEve: TJPEGImage; ... VignImg := TImage.Create(Self); with VignImg do begin Parent := Self; Width := 100; Height := 100; Visible := False; end; ChemImg := 'C:\image.jpg'; ... if FileExists(ChemImg) then begin VignEve := TJPEGImage.Create; VignBMP := TBitmap.Create; VignEve.LoadFromFile(ChemImg); VignBMP.Assign(VignEve); VignImg.Picture.Bitmap.Assign(VignBMP);(ou VignImg.Picture.Assign(VignBMP);) end;
Ca plante en violation d'accès sur VignImg.Picture.Bitmap.Assign(VignBMP)
ou sur VignImg.Picture.Assign(VignBMP);

Tout essayé, pas comprendre, fatigué :triste:

Salut,
Chez moi ce code marche parfaitement :

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
procedure TForm1.Button6Click(Sender: TObject);
var
  VignEve: TJPEGImage;
  VignImg: TImage;
  ChemImg: String;
begin
  VignImg := TImage.Create(Self);
  with VignImg do begin
    Parent  := TabSheet2;
    Width   := 100;
    Height  := 100;
    Top := 10;
    Left := 10;
    Visible := True;
  end;
 
  ChemImg:= 'D:\image.jpg';
  if FileExists(ChemImg) then begin
    VignEve:= TJPEGImage.Create;
    VignEve.LoadFromFile(sImg);
 
    VignImg.Picture.Bitmap.Assign(VignEve);
  end;
end;

(j'ai viré le VignBMP superflu au passage...)

20/04/2010, 16h34
od.dev

Ouai... bizarre :cfou:

Moi, il plante en me disant "image bitmap incorrecte", si je vire le VignBMP.
Sinon il est content.
J'ai bien mis l'unité jpeg dans la clause "uses".

Pour le reste, il faut que je réfléchisse...
Je crée le TImage dans un 1er composant que je crée dans une même unit qu'un 2e composant.
C'est en survolant ce 2e composant que je veux afficher le TImage. :fou:
Le 2e composant ayant été créé dans l'application en tant qu'enfant du 1er...
il faut que je réfléchisse. :marteau:

TPaintBox -> ajouter messages OnMouseEnter et OnMouseLeave (recherche sur le net, pleins d'exemples)

deux objet TJPEGImage

une variable Boolean

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
JPEG1 -> 
  TJPEGImage.Create -> 
    LoadFromFile('?');
JPEG2 -> 
  TJPEGImage.Create -> 
    LoadFromFile('?');
 
PaintBox1.OnMouseEnter -> 
  MsOver = true -> 
    PaintBox1.Invalidate
PaintBox1.OnMouseLeave -> 
  MsOver = false -> 
    PaintBox1.Invalidate
PaintBox1.OnPaint -> 
  if MsOver then 
    PaintBox1.Canvas.Draw(0,0, JPEG2) 
  else 
    PaintBox1.Canvas.Draw(0,0, JPEG1);

21/04/2010, 14h24
od.dev

J'ai le même problème avec Canvas.Draw()...
Cela vient sûrement du fait que je suis dans le développement d'un composant, et que je fais appel à une fonction d'un autre composant...
22/04/2010, 15h16
od.dev

Non, rien à faire, ça marche très bien avec un bitmap et ça plante avec un jpeg.
Je vais essayer de trouver un composant image qui prend en charge les jpeg.

Merci à tous.