Delphi TBitmap32 einem TJPEGImage zuweisen

Thema durchsuchen

Ansicht

Themen-Optionen

TBitmap32 einem TJPEGImage zuweisen

Ein Thema von Wheelie · begonnen am 19. Aug 2004 · letzter Beitrag vom 19. Aug 2004

Antwort

Wheelie

Registriert seit: 21. Okt 2003
Ort: Dresden
177 Beiträge

Re: TBitmap32 einem TJPEGImage zuweisen

19. Aug 2004, 17:57

Klappt nicht so richtig ...

markieren

Delphi-Quellcode:

			...

jpeg := TJPEGImage.Create;

bmp := TBitmap.Create;

bmp.Width := b.Width;

bmp.Height := b.Height;

b.DrawTo(bmp.Handle, b.BoundsRect, b.BoundsRect);  //b ist vom Typ TBitmap32

jpeg.Assign(bmp);

jpeg.CompressionQuality := 80;

jpeg.SaveToFile('d:\neu.jpg');

...

Das dabei erzeugte JPEG-File hat zwar die richtige Größe, ist aber nur weiß