JPG Farbverfälschung

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Hi,
ich will ein TImage als JPG speichern.
Das klappt auch so hervorragend:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  JPG: TJPEGImage;
.
.
.

      JPG := TJPEGImage.Create;
      JPG.Assign(Image.Picture.Bitmap);
      JPG.CompressionQuality := 90;
      JPG.SaveToFile(SaveDialog.FileName);
      JPG.Free;

Bis auf eine Kleinigkeit... Das JPG ist (teilweise?) farbverfälscht. Aus einem ganz normalem clRed wird eine Art Braun. Was kann ich dagegen tun?

Aya · Verfasst: Di 11.02.03 19:43

Hi,

versuch es mal so:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var 
  JPG: TJPEGImage; 
. 
. 
. 

      JPG := TJPEGImage.Create; 
      JPG.Assign(Image.Picture.Bitmap); 
      JPG.CompressionQuality := 90; 
      JPG.Compress;
      JPG.SaveToFile(SaveDialog.FileName); 
      JPG.Free;

Wenn das auchnich hilft einfach die Quality erhöhen

Au'revoir,
Aya~

_________________
Aya
I aim for my endless dreams and I know they will come true!

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Danke (Mal wieder

)
Funktioniert jedoch nicht.

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Also so sehen die Grafiken momentan aus, die erstellt werden. Das BMP ist, wie es sein soll...
www.philiplb.de/test.zip

torstenheinze · Beiträge: 461

das liegt halt an der kompression, da kann man nichts machen.

versuch mal das rot im orginalbild zu erhellen und comprimiere es dann mal, vieleicht klappt es

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme