bon voila le problème:
j'ai fait un logiciel sympa, qui applique un effet sur des images, tout ça en faisant des petits algorythmes simples sur des images, dont voici l'exemple pour faire un négatif:


for i := 0 to X do begin
for j := 0 to Y do begin
Image1.Canvas.Pixels[X,Y] := $FFFFFF - Image1.Canvas.Pixels[X,Y];
end;
end;

Voilà, le problème c'est qu'un Canvas, ça marche que pour les BMP... et moi je voudrais bien accéder aux propriétés Pixels[X,Y] de l'image, qu'elle soit JPG ou BMP!

J'ai regardé dans le forum "Graphique", j'ai trouvé 1 seul sujet qui aurait pu être intéressant :

uses jpeg...

Bmp := TBitmap.Create;
Pic := TPicture.Create;
Pic.LoadFromFile(etc.);
Bmp.Assign(Pic);
etc.

et avec la méthode Assign, Delphi me répond: Impossible d'assigner un type TPicture au type TBitmap (ou qqchose comme ça...)

quelqu'un à une idée? merci!!

ça doit être simple et intuitif, puisque personne n'en parle jamais!

WOOM réponse:
Tu as deux images. une originale: le JPEG; et une qui va te servir d'espace de travail: le BMP
ImBMP: TBitMap;
ImJPEG: TJPEGimage;

Un fois crées:
ImJPG:=TJEPGimage.create;
IMBmp:=TBitmap.create;

tu charges ton JPEG:
ImJPEG.LoadFromFile('monficiher.jpg');

Tu transfères la taille au bitmap:
ImBMP.Width:=ImJPG.Width;
ImBMP.Height:=ImJPG.Height;

Et tu dessines sur le canvas du bmp:
ImBMP.Canvas.Draw(0,0,ImJPG);

Et tu supprimes ton jpeg:
ImJPG.free;
Et tu utilises ton BMP pour la bidouille....

Le tour en joué. Je ne sais pas faire plus simple.
Woom
-------------------------------
Réponse au message :
-------------------------------

> bon voila le problème:
> j'ai fait un logiciel sympa, qui applique un effet sur des images, tout ça en faisant des petits algorythmes simples sur des images, dont voici l'exemple pour faire un négatif:
>
>
> for i := 0 to X do begin
> for j := 0 to Y do begin
> Image1.Canvas.Pixels[X,Y] := $FFFFFF - Image1.Canvas.Pixels[X,Y];
> end;
> end;
>
> Voilà, le problème c'est qu'un Canvas, ça marche que pour les BMP... et moi je voudrais bien accéder aux propriétés Pixels[X,Y] de l'image, qu'elle soit JPG ou BMP!
>
> J'ai regardé dans le forum "Graphique", j'ai trouvé 1 seul sujet qui aurait pu être intéressant :
>
> uses jpeg...
>
> Bmp := TBitmap.Create;
> Pic := TPicture.Create;
> Pic.LoadFromFile(etc.);
> Bmp.Assign(Pic);
> etc.
>
> et avec la méthode Assign, Delphi me répond: Impossible d'assigner un type TPicture au type TBitmap (ou qqchose comme ça...)
>
> quelqu'un à une idée? merci!!

je vais essayer...
ça m'a l'air fiable!

mais... après il te reste que le BMP! on peut donc pas sauvegarder en JPG!!???!!

argh,
Costello

WOOM

Mais oui
Si tu veux sauver en JPEG, tu procède comme cela:
tu crées une instance de JPEGimage
var
transfer : TJPEGImage;

begin
Transfer:=TJPEGImage.Create;

au cas ou il y aurait un problème tu protège ton code dans un bloc TRY .... Except
try

D'abord tu ajuste ton taux de compression
Transfer.CompressionQuality:=80;

Tu copies le Bitmap sur le JPEG (le assign fonctionne dans ce sens!)
Transfer.Assign(LeBitmap);

Tu sauves ton beau jpeg tout neuf
Transfer.SaveToFile(NomComplet);

Tu nettoies ton code
finally
Transfer.Free;
end;

Et hop inthepocket!
-------------------------------
Réponse au message :
-------------------------------

> je vais essayer...
> ça m'a l'air fiable!
>
> mais... après il te reste que le BMP! on peut donc pas sauvegarder en JPG!!???!!
>
> argh,
> Costello

oah, merci !!!
bon, ok, ct évident.

merci WOOM!


-------------------------------
Réponse au message :
-------------------------------

>
> WOOM
>
> Mais oui
> Si tu veux sauver en JPEG, tu procède comme cela:
> tu crées une instance de JPEGimage
> var
> transfer : TJPEGImage;
>
> begin
> Transfer:=TJPEGImage.Create;
>
> au cas ou il y aurait un problème tu protège ton code dans un bloc TRY .... Except
> try
>
> D'abord tu ajuste ton taux de compression
> Transfer.CompressionQuality:=80;
>
> Tu copies le Bitmap sur le JPEG (le assign fonctionne dans ce sens!)
> Transfer.Assign(LeBitmap);
>
> Tu sauves ton beau jpeg tout neuf
> Transfer.SaveToFile(NomComplet);
>
> Tu nettoies ton code
> finally
> Transfer.Free;
> end;
>
> Et hop inthepocket!
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > je vais essayer...
> > ça m'a l'air fiable!
> >
> > mais... après il te reste que le BMP! on peut donc pas sauvegarder en JPG!!???!!
> >
> > argh,
> > Costello
>

désolé, j'avais pas essayé.
le problème:

soit erreur (impossible d'assigner x à y)
soit erreur autre (erreur à l'adresse x, offset hxy)

t'as pas un exemple? je l'ai peut être mal fait...
(une petite source, c plus concret)

merci
cost

définitive:
c'est bon, ça marche!
j'ai vu la source sur le forum,
merci.