TJPEGImage - Größe

DreadlockFilbert

HI

Ih ahb ein Bitmap und wandle es mit diesem Code in ein JPEGImage um.

TJPEGImage *jpg = new TJPEGImage();
    try
    {
     jpg->PixelFormat = jf8Bit;
     jpg->Assign(image);
     jpg->CompressionQuality = 50;
     jpg->Compress();
     jpg->SaveToStream(pic);
    }
    __finally
    {
     delete jpg;
    }

Doch trotz des Qualitätsverlustes ist die Datei noch 5,33 MB groß. ein BMP ist nur 5 MB groß.

was ist an dem Code falsch? Oder wie mache ich die Dateigröße von einem BMP kleiner?

DreadlockFilbert

sorry mein fehler.. hab vorher etwas in den stream geschrieben und ihn nicht wieder 'zurückgespuhlt' die Datei ist natürlich nur 33kb groß *g*