[Composant] Recherche composant type TImage

Version imprimable

08/03/2006, 15h30
Clorish

[Composant] Recherche composant type TImage

Je recherche un composant qui remplace avantagesement le TImage de Delphi.
A savoir :
- Gestion des Jpg (le chargemetn suffit)
- Possibilité de "stretch" avec lissage correct.
- Relativement leger ....

Ya bien les TImages32 qui font ce qu'on desire mais question usine a gaz .... on fait pas mieux ;)
Quand aux TImages, des qu'on stretch un peu ca pixelise et manque d'antialiasing.

MErci :)
08/03/2006, 15h38
devyan

Bonjour,

Je ne connais pas de composant "tout fait" qui permette ceci (à part le uses à l'unité Jpeg qui permet d'avoir des jpoeg dans un timage 8) )

Par contre, pour le réechantillonnage des image j'utilise directement les API GDI+.
08/03/2006, 15h49
Clorish

c'est a dire ... tu as 2/3 exemples ?
En fait je desire charger une image (bmp ou jpg) de resolution 1024x768 pour le fond d'une application plein ecran.
Si la reso est plus grosse j'aimerais l'agrandir sans trop de perte de qualité comme on l'a sur le TImage.

Ca me servira aussi pour afficher differentes images dans des dimentions qui ne sont pas celles d'origines, et souvent rationalisé par rapport a la reso de l'ecran.
08/03/2006, 16h23
devyan

je me suis fait un petit prog pour redimensionner des images, il faut que je le retrouve.

J'utilise des unités GDI+ trouvées sur le net
08/03/2006, 16h25
Clorish

Oui si tu l'as ca m'interesse .... un petit code source exemple, et les quels unites GDi+ du net tu utilise :)
08/03/2006, 16h34
TicTacToe

J'ajouterais qu'il y a aussi la bib gratuite

www.g32.org

Qui fait ce que tu veux et qui est rapide dans les traitements d'image (lissage...)
08/03/2006, 16h49
Clorish

Re: [Composant] Recherche composant type TImage

Citation:

Envoyé par Clorish

Ya bien les TImages32 qui font ce qu'on desire mais question usine a gaz .... on fait pas mieux ;)

les TImages32 font parti de cette Librarie .. je la trouve lourde .. mais bon a chaque fois je retombe dessus :/

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
38
39
 
uses GDIPAPI, GDIPOBJ, GDIPUTIL;
 
var
  ScaleX,
  ScaleY: Double;
 
  _Mode: TInterpolationMode;
  _I: TGPImage;
  _GSrc: TGPGraphics;
begin
  if not OpenDialog1.Execute
  then Exit;
 
  _I := TGPImage.Create(OpenDialog1.FileName);
 
  _Mode := TInterpolationMode(Integer(InterpolationModeNearestNeighbor) + 2): // bicubique 
 
  Image1.Picture.Bitmap.Canvas.Lock;
  try
    Image1.Picture.Bitmap.Width  := 0;
    Image1.Picture.Bitmap.Height := 0;
    Image1.Picture.Bitmap.Width  := _I.GetWidth;
    Image1.Picture.Bitmap.Height := _I.GetHeight;
    ScaleX := _I.GetHorizontalResolution / Screen.PixelsPerInch;
    ScaleY := _I.GetVerticalResolution / Screen.PixelsPerInch;
 
    _GSrc := TGPGraphics.Create(Image1.Picture.Bitmap.Canvas.Handle);
    try
      _GSrc.ScaleTransform(ScaleX, ScaleY);
      _GSrc.DrawImage(_I, 0, 0);
    finally
      _GSrc.Free;
    end;
  finally
    Image1.Picture.Bitmap.Canvas.Unlock;
    Image1.Invalidate;
  end;
end;

08/03/2006, 17h10
devyan

Les unités GDI+ sont celles de progdigy
08/03/2006, 21h19
Clorish

Merci .. j'ai pas regarde dans le detail .... mais a premiere vie ca m'interesse.

Je regarde ca demain .. merci ;)

Bon j'ai trouvé mon bonheur :
La lib ALCinoë dont l'unite ALGraphic.

- 1 Type "Fonction Filtre"
- ~10 Fonctions de Filtrages
- 1 Fonction "Stretch" qui transfert l'image d'un TBitmap vers un autre TBitmap en y appliquant une des fonctions de filtrage.
Code:

1 2 3 4 5 6 7 8 9 10 11 BMP1 := TBitmap.create; BMP2 := TBitmap.Create; BMP2.Width := 1600; BMP2.Height := 1200; BMP1.LoadFromFile('d:\Index.bmp'); ALGraphic.ALStrecth(BMP1, BMP2, ALGraphic.ALMitchellFilter, 2); Self.Image1.Picture.Bitmap.Assign(BMP1); Self.Image2.Picture.Bitmap.Assign(BMP2);
Diablement efficace et assez rapide.
Merci pour vous infos qui servirons surement plus tard.