Discussion :

[illuch]

Bonjour,
J'ai un fichier image au format jpg.
Si je l'affiche, elle est composée de plusieurs images côte à côte.
J'aimerais pouvoir les extraire toutes par programmation sans avoir à afficher au préalable cette image à l'écran.
Avez-vous une idée ou lien à m'indiquer ?
Merci par avance

Jean-Louis

[tourlourou]

Un TPicture permettra de charger l'image sans l'afficher, et tu pourras copier les portions voulues de son BitMap dans des bitmaps.

Il n'est pas possible de découper le fichier jpg en plusieurs images sans d'abord procéder à son décodage, car un pixel donné est stocké par un nombre de bits qui peut être différent du voisin.

[illuch]

Un TPicture permettra de charger l'image sans l'afficher, et tu pourras copier les portions voulues de son BitMap dans des bitmaps.

si je fais: Image1.Picture.LoadFromFile( Monfichier ), ça affiche l'image et je peux effectivement en copier une ou plusieurs parties grâce à copyRect.
Ce que je souhaite, c'est copier une partie de l'image sans être obligé de passer par la phase affichage sur l'écran.
Est-ce possible ?

J.Louis

[Jipété]

Code :

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

Image1.Visible := False;

[Lung]

si je fais: Image1.Picture.LoadFromFile( Monfichier ), ça affiche l'image et je peux effectivement en copier une ou plusieurs parties grâce à copyRect.
Ce que je souhaite, c'est copier une partie de l'image sans être obligé de passer par la phase affichage sur l'écran.
Est-ce possible ?J.Louis

Oui, en passant par un TPicture et pas un TImage comme te le propose tourlourou.

[illuch]

Oui, en passant par un TPicture et pas un TImage comme te le propose tourlourou.

Merci de vos réponses. Mais je dois rater quelque chose.
Je n'ai pas de composant TPicture dans ma palette de composants (je travaille avec Rad Studio XE2)
Je ne vois pas comment utiliser Tpicture autrement qu'avec Image1.Picture.LoadFromFile('MonImage.bmp'), ce qui affichel'image à l'ecran.

JL

[tourlourou]

TPicture

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
uses 
  TGraphics;
var 
  myPicture: TPicture;
begin
  myPicture := TPicture.Create;
  try
    myPicture.LoadFromFile('lena.jpg');
    //...
  finally
    myPicture.Free;
  end;
end;

[ShaiLeTroll]

TPicture n'est pas un composant mais une classe que l'on peut instancier librement

Code :

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

1
2
MyPicture := TPicture.Create();
MyPicture .LoadFromFile('MonImage.jpg');

Tu peux aussi utiliser un TBitmap dans lequel tu fais un Draw d'un TJPEGImage, la technique en D7

[Cirec]

si tu veux pouvoir copier des portions il te faudra passer par un Bitmap.
Utiliser simplement un TPicture ne suffira pas pour accéder au Canvas puisque le TPicture contiendra un TJPEGImage et non un TBitmap.

Tu peux aussi utiliser un TBitmap dans lequel tu fais un Draw d'un TJPEGImage, la technique en D7

une autre technique D7:

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
procedure TForm1.Button3Click(Sender: TObject);
var
  JPEG: TJPEGImage;
  BMP: TBitmap;
begin
  JPEG := TJPEGImage.Create;
  try
    JPEG.LoadFromFile('canon2.jpg');
    BMP := TBitmap.Create;
    try
      BMP.Assign(JPEG);   // tout simplement
      Canvas.Draw(0, 0, BMP); // un affichage simple pour voir que ça fonctionne ^^
    finally
      BMP.Free;
    end;
  finally
    JPEG.Free;
  end;
end;

j'avais fait une procédure pour charger une partie d'un bitmap(de1 à 32bit) directement depuis le fichier mais
pour une image JPEG ce code devient inutile en l'état ... mais si ça intéresse quelqu'un dites le moi et je posterais le code ici

Cordialement,
@+