Discussion :

[od.dev]

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 :

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

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

[ShaiLeTroll]

Essaye tout simplement

Code :

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

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

[od.dev]

Bo oui, mais ça marche po
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...

[od.dev]

En fait, il plante sur

Code :

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

 VignImg.Picture.Bitmap.Assign(VignEve);

VignImg existe bien mais Picture est à nil !

[Dr.Who]

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
 
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;

[Montor]

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

Code :

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

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

[od.dev]

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 :

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
 
  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é