Discussion :

[Nebulix]

Bonjour
Je souhaite analyser des images donc avoir accès à leurs pixels.
Ces images sont obtenues par un appareil qui les stocke en jpeg.
Pour les convertir en bitmap, je passe par Paint, ce qui n'est pas très pratique.
Peut-on faire cette conversion sous Delphi ?
Merci

[Andnotor]

Comme 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
uses JPeg;
 
function JpgToBmp(const aFileName :TFileName) :TBitmap;
var
  Jpg :TJPegImage;
 
begin
  Jpg    := TJPegImage.Create;
  Result := TBitmap.Create;
 
  try
    Jpg.LoadFromFile(aFileName);
    Result.Assign(Jpg);
  finally
    Jpg.Free;
    //Le bitmap doit être libéré depuis la méthode appelante !
  end;
end;

[Nebulix]

Cà marche.
Merci