Sources

- Astuces - Composants - Programmes - Tutoriaux

Rechercher

- Delphipage - Ngscan

Ressources

- Lexique Delphi - Livres - News - Patchs Delphi

Liens

- Borland France - CodeGear - Les meilleurs sites

Tutoriaux - Graphique - Convertir - JPEG en BMP

Voici un exemple de programmation graphique en delphi pour convertir un jpeg en bitmap.

procedure TForm1.Button1Click(Sender: TObject); var ImageJPEG : TJPEGImage; Bitmapa : TBitmap; begin ImageJPEG := TJPEGImage.Create; //Crée un jpeg Bitmapa := TBitmap.Create; //Crée un bitmap ImageJPEG.LoadFromFile('c:\test.jpg'); //Charge le jpeg Bitmapa.Width := ImageJPEG.Width; //Récupère la largeur Bitmapa.Height := ImageJPEG.Height; //Récupère la hauteur Bitmapa.Canvas.Draw(0,0,ImageJPEG); //Le bmp contient l'image jpeg Bitmapa.SaveToFile('c:\test.bmp'); //Sauvegarde le bmp Bitmapa.Free; //Libère le bitmap ImageJPEG.Free; //Libère le jpeg end;