Comment réduire la hauteur et largeur d'un bitmap et jpeg avant l'utilisation ?

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour à toutes et à tous,

Je patine avec ce code, j'aimerai pouvoir lors du chargement de mon image, la réduire avec une largeur et une hauteur connue avant de l'exploiter, soit H = 400 x largeur = 470 au cas ou l'image de base aurait d'autres dimensions.

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TMainForm.bchargerClick(Sender: TObject); begin with Op1 do if Execute then begin Edcharger.Text := FileName; //Code pour redimensionner l'image H400 Largeur 470 ici initBackgroundBitmap(Edcharger.Text); // Utilisation de mon image initBackgroundLines(); end; end;
Merci d'avance,

Cincap

20/09/2007, 08h30
Lung

Regarde la procédure TCanvas.StretchDraw.

;)
20/09/2007, 09h12
cincap

J'avais regardé !

Bonjour à toutes et à tous,

@ Lung, merci pour l'info, j'avais regardé la procédure mais je ne vois pas ou l'intégrer dans mon code au chargement et forcément avant le traitement de l'image.

De plus au moment du traitement de l'image dans le Timage, il faut que la photo soit de H400 x L470 sans quoi l'image n'est pas centrée mais le traitement se fait quand même.

@+,

Cincap
20/09/2007, 17h49
Clorish

charge ton image dans un TBitmap temporaire que tu stretch.
Ensuite tu assigne ce bitmap a ton composant TImage.

Pour les Jpeg, le redimentionnement ne se fait pas si facilement il me semle.
LE plsu simple de d'executer la methode DIBNeeded puis de l'assigner a un TBitmap. LA tu pourras la retailler.

Enfin je finirais en te conseillant d'aller jetter un coup d'oeil sur l'unitee ALGraphics (a chercher sur le net) qui fourni de tres bonne fonctions de lissages, simple d'utilisation et legeres.
20/09/2007, 19h14
cincap

Pas si simple !

Bonsoir à toutes et à tous,

@ clorish, Pas si simple pour le débutant, en effet même si j'assigne mon image dans un Tbitmap temporaire, l'image n'est pas redimensionnée pour autant et si je l'assigne à mon composant Timage qui lui doit avoir le strech à false pour la suite du traitement, l'effet est sur une partie de l'image.

Et comment faire pour que le nom du bitmap temporaire soit assigné à

Code:

Edcharger.Text := FileName;

@+,

Cincap
20/09/2007, 22h20
Clorish

J'y pense : TImage possede une property "Stretch" qui permet de redimentionner automatiquement l'image a la taille du Timage ...
Combiné avec Propertionnal et Center on obtient pas mal de choses :)

Comme quoi a force de bosser sur du compilquer on oublie les choses simple :aie:

Sinon quand je parle de assign c'est ainsi :

Code:

Bmp1.Assign(Bmp2);

J'ai déjà essayé des solutions sans succès.

Bonjour à toutes et à tous,

Ayant déjà essayé des solutions sans succès, je vais cloturer ce topic.

En effet, le traitement de l'image doit absolument se faire au chargement et avant ces deux lignes de codes.
Code:

1 2 3 4 5 6 7 8 9 if Execute then begin Edcharger.Text := FileName; //Code pour redimensionner l'image H400 Largeur 470 ici initBackgroundBitmap(Edcharger.Text); // Utilisation de mon image initBackgroundLines(); end;
Donc pas de solution exploitable.

Merci à tous,

Cincap

21/09/2007, 09h54
Clorish

je ne comprends vraiement pas ce que tu cherches a faire .....
Explique plus en detail le but de ce redimentionnement et ce que tu cherche exactement a faire ...

Car des solutions, il y en a plein et c'est etonnant qu'avec celles que l'on a proposé tu n'y ai pas trouvé ton bonheur :)

Sur le principe, je vois mal comment on peut redimentionner une image sans la charger au prealable.
Donc, quoi qu'il arrive, il te faudra charger l'image, effectuer le traitement "resize" dessus, avant de la transmettre a ta fonction de traitement "officiel".

Ou alors .... ne serait il pas plus simple d'obliger les utilisateur a fournir des images au bon format ?!?

Rep

En effet, charger les images avec déjà les dimensions 470x400 était une solution de contrainte.

D'autant que c'est une application non professionnelle.

Le principe du resize doit se faire à l'endroit indiqué, car à l'ouverture de mon application, j'impose déjà une image aux dimensions requises, et je permet le chargement de ses propres photos sans avoir a respecter les dimensions de 470 x 400.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TMainForm.bchargerClick(Sender: TObject); begin with Op1 do if Execute then begin Edcharger.Text := FileName; //Code pour redimensionner l'image H400 Largeur 470 ici en utilisant à la fin du traitement "Edcharger.Text" comme conteneur avant de l'appliquer au Timage initBackgroundBitmap(Edcharger.Text); // Utilisation de mon image initBackgroundLines(); end; end;
Par contre avant de choisir cette nouvelle image, dans le cas ou elle est déjà dimensionnée, c'est ok, par contre si les dimensions sont plus grandes, la photo n'apparait pas en entier ce qui est logique et l'effet ne se fait que sur une partie de l'image.

@+,

Cincap

21/09/2007, 11h08
Clorish

je ne vois pas ou est ton probleme :)

Tu utilise bien un TImage pour afficher ton image non ?
Dans ce cas en basculant la property Timage.stretch a true et en jouant sur les prop Proportional et center tu regle ton probleme.

Sinon, tu dois creer un TBitmap, charger l'image dedans, puis soit copier le contenu du TBitmap dans le TImage via la methode stretch draw ... soit dans un 2e bitmap temporaire de bonne dimention, toujours via la methode stretch draw.

ensuite, tu n'as plus qu'a assigner ton bitmap contenant l'image retaillée dans le TImage (property Bitmap il me semble)
21/09/2007, 18h51
cincap

Pas si simple !
oui vu comme cela cela devrait fonctionner, mais le Timage subit un traitement d'effets, par conséquent avant de réaliser ces effets, la nouvelle image qui sera chargée devra avoir 470 x 400, c'est pourquoi j'aurai bien voulu avoir un traitement avant l'initiation du background.
Code:

1 2 initBackgroundBitmap(Edcharger.Text); // Utilisation de mon image initBackgroundLines();
Je pense que je vais laisser comme cela.

Merci encore.

@+,

Cincap
21/09/2007, 19h25
Clorish

LA property Stretch retaille l'image lors de son chargement dans le TImage.

Sinon le traitement sur Bitmap temporaires te permet de gerer la retaille lors du chargement, et donc d'affecter au bitmap l'image retaillée avant de lancer le traitement sur le TImage.

A noter que le traitement directemetn sur TImage est tres lent du fait que toutes modification du timage entraine une reactualisation du reaffichage.

une image de 100x100 dont on modifie tous les pixels par la property Pixels provoque 10.000 reactualisations d'affichage...

En general on effectue ces traitements sur Bitmap temporaires affectés en une fois dnasz le TImage. :)

Voici mon essai

Bonjour à toutes et à tous,

Je viens de faire un essai, et si je sauve mon image redimensionnée dans un dossier, elle est bien redimensionnée.

Par contre, je ne veux pas la sauver mais bien l'attribuer à "Edcharger.Text := ".

au lieu d'utiliser pour la hauteur et la largeur un Tspinedit (Coeff), j'aurai préféré une hauteur et largeur définie avec un Tedit par exemple.

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
28
29
30
31
32
33
34
35
36
37
procedure TMainForm.bchargerClick(Sender: TObject);
Var jpg :TJpegImage;
    Bmp :TBitMap;
begin
  // Sélection de l'image
  If Not Op1.Execute Then Exit;
 
  // Création des variables temporaires
  Jpg := TJpegImage.Create;
  Bmp := TBitMap   .Create;
  Try
 
    // Lecture de l'image
    Jpg.LoadFromFile(Op1.FileName);
 
    // Le BitMap est adpapté à la taille voulue
    Bmp.Width  :=Jpg.Width * Coeff.Value Div 100;
    Bmp.Height :=Jpg.Height * Coeff.Value Div 100;
 
    // L'image est dessinée dans la totalité de la surface du BitMap
    Bmp.Canvas.StretchDraw(Bmp.Canvas.ClipRect,Jpg);
 
    // Puis la nouvelle image est assignée au JPG
    Jpg.Assign(Bmp);
 
    // et enfin elle est enregistrée
    //Jpg.SaveToFile(Sauver.FileName);
 
    Edcharger.Text := ? ;
 
      initBackgroundBitmap(Edcharger.Text);
      initBackgroundLines();
  Finally
    // libération des ressources
    Jpg .Free;
    Bmp .Free;
  End;

Si quelqu'un à une idée merci d'avance,

Cincap

Moi je ferais ca :

Code:

1
2
3
4
5
 
Bmp.Canvas.StretchDraw(Bmp.Canvas.ClipRect,Jpg);
 
initBackgroundBitmap(Bmp);
initBackgroundLines();

Avec :

Code:

1
2
3
4
5
6
7
 
Procedure InitBackGround(ABmp : TBitmap);
Begin
[...]
Self.Image1.Picture.Bitmap.assign(ABmp);
[...]
End;

23/09/2007, 14h46
Sub0

Si cela t'intérresse, je possède une fonction de redimensionnement avec filtre anti-aliasing. La qualité du résultat est bien supérieure à un redimensionnement réalisé avec StretchDraw, surtout lorsqu'on réduit l'image...
http://www.developpez.net/forums/sho...php?t=377757#9

Merci à tous les deux !

Voila, je vais faire le test et je vous tiens au courant.

J'ai déjà une procédure que je dois respecter.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TMainForm.initBackgroundBitmap(fileName: string);
begin
 
 
  if not assigned(backgroundBitmap) then backgroundBitmap := TBitmap.Create();
  try
 
        LoadBackground(fileName);
 
    backgroundBitmap.PixelFormat := pf24bit;
 
  except
        showMessage('Erreur: ce n''est pas une image adéquate');
  end;
end;

Merci encore, je teste pour demain.

@+,

Cincap

24/09/2007, 08h10
cincap

J'ai essayé le lien

Bonjour à toutes et à tous,

@ sub0, j'ai testé ton lien avec ta fonction (AAlias), mais je ne vois aucun changement de l'image, de plus rien ne s'affiche dans "imageD".

J'ai certainement loupé quelque chose.

@ Clorish, j'ai une exception sur la ligne "self.Image1.Picture.Bitmap.assign(ABmp);", il ne reconnait pas "self".

@+,

Cincap

Si il ne reconnait pas "Self" c'est que tu l'execute dans une procedure dite "libre", c'est a dire en dehors d'une methode de classe.

Ensuite, si tu dois vraiement respecter la procedure et donc ne pas la changer dans son contenu, tu ne peux pas faire autrement que de passer par une sauvegarde de ton fichier sur le HDD (un repertoire workspace ou project ?!?) avant de transmettre le lien a ta fonction.

PAr contre si c'est jsute l'entete qui doit rester le meme, alors il te faudra inclure le chargement et la retaille de l'image directement dans la methode Init.

[Edit] en fait je ferais ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 procedure TMainForm.initBackgroundBitmap(fileName: string); Var Bmp : TBitmap; begin Bmp := TBitmap.Create; if not assigned(backgroundBitmap) then backgroundBitmap := TBitmap.Create(); BackGroundBitmap.width := 400; BackGroundBitmap.Height := 470; try BMP.LoadFromFile(fileName); BackgroundBitmap.Canvas.StretchDraw(BMP.ClipREct, BMP.Canvas); backgroundBitmap.PixelFormat := pf24bit; except showMessage('Erreur: ce n''est pas une image adéquate'); end; end;
Maintenant si tu veux conserver ta procedure Load, Il serait preferable qu'elle ne charge pas l'image dans le Bitmap Background mais retourne dans un Bitmap passé en parametre. C'est plus propre et plus generique.
On transmettra aison BMP.

Si tu ne dois pas non plus la changer du tout, il te faudra donc copier le contenu du BackGroundBitmap apres chargement dans le BMP, puis effectuer l'etape de retaille : Changement des parametres Width/Height du BackGroundBitmap et faire le StretchDraw.(ou autre methode de copie lissée).

24/09/2007, 11h06
cincap

Erreur de compilation

Même erreur, identificateur non déclaré "ClipREct" et types incompatibles "Tgraphic et Tcanvas".

Je vais voir dans le temps si j'ai une solution, sinon tant pis.

Merci encore, je cloture ce topic.

@+,

Cincap
24/09/2007, 14h23
Clorish

Desolé .... j'ai fait ca de tete ;)
Je n'avais pas Delphi sous la main :)

ClipRect est une property de TBitmap.Canvas :)
Quand a la 2e erreur, c'est seulement BMP et non BMP.Canvas qu'il faut mettre. Confusion avec CopyREct .....

Voir 40 message(s) de cette discussion en une page