Delphi.Net (VCL) : comment générer un JPEG?

Version imprimable

28/07/2006, 09h31
emmanuelc

Delphi.Net (VCL) : comment générer un JPEG?

Je dois générer un JPEG mais je ne retrouve plus TJPEGImage (dans jpeg) pour une application VCL.NET comme c'était le cas pour une application WIN32.

Quelqu'un connaît-il l'équivalent de TJpegImage pour VCL.Net ou un autre format que JPEG qui n'est pas trop gourmand en taille et disponible sur .Net ?

Merci d'avance.

Emmanuel
27/03/2007, 16h14
MIWAN

Jpeg

c'est tres simple
dans la partie Uses Ajoute JPEG:
uses
Windows, Messages, SysUtils,....JPEG;
09/05/2007, 13h33
emmanuelc

Je pense que c'était vrai avec code pour logiciel Win32 mais il ne semble pas que Delphi 2006 ne reconnaît pas JPEG dans le code VCL.Net.

Je ne suis pas sûr que le fichier équivalent ait été fait pour VCL.Net.

A priori c'est faisable par exemple en chargeant directement un objet Timage avec un fichier JPEG et en le sauvegardant de la même manière

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
27
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, 
  Controls, Forms, Dialogs, Borland.Vcl.ExtCtrls, System.ComponentModel,
   Borland.Vcl.StdCtrls;
 
TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.nfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Image1.Picture.SaveToFile ('a.jpg')
end;

31/05/2007, 15h25
emmanuelc

Oui le programme génère un fichier avec l'extansion 'JPG' mais la structure du fichier reste un BMP. Il s'agit en réalité du même fichier mais avec une extansion simplement modifiée.

Si quelqu'un connait une méthode, je suis toujours intéressé.
01/06/2007, 18h33
ALWEBER

Ce que tu recherches en fait c'est un convertisseur de fichier ?
04/06/2007, 13h49
emmanuelc

Pas vraiment. De la même façon qu'il existe l'objet TBitmap, il existait précédemment TJPEGImage pour le jpeg. Je ne retrouve malheureusement plus cela pour VCL.Net dans Delphi 2006.

Toutefois sans être la solution idéale, un convertisseur pourrait déjà beaucoup m'aider. Je suis donc prenneur d'une solution qui irait aussi dans ce sens.