Discussion :

[emmanuelc]

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

[MIWAN]

c'est tres simple
dans la partie Uses Ajoute JPEG:
uses
Windows, Messages, SysUtils,....JPEG;

[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.

[ALWEBER]

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 :

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

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

[ALWEBER]

Ce que tu recherches en fait c'est un convertisseur de fichier ?