TJPEGImage *jp = new TJPEGImage();
  try
  {
   Image2->Picture->LoadFromFile(FileListBox1->FileName);
   jp->Assign(Image2->Picture->Graphic);
   jp->CompressionQuality = 20;
   jp->Compress();
   jp->Smoothing = false;
   jp->Smoothing;
   Image2->Picture->Assign(jp);
  }
  __finally
  {
   delete jp;
  }

D.h. dein Image enthält vermutlich kein Bild oder ein nicht unterstützes Format.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
     TJPEGImage *jp = new TJPEGImage();

     try
     {
        Image1->Picture->Bitmap->LoadFromFile("d:\\Bilder\\Schnafzn.bmp");

        jp->Assign(Image1->Picture->Bitmap);
        jp->CompressionQuality = 20;
        jp->Compress();

        //Image1->Picture = NULL;
        Image2->Picture->Assign(jp);
        Image2->Height = jp->Height;
        Image2->Width  = jp->Width;
     }
     __finally
     {
              delete jp;
     }
}

der Fehler mit Image2, der verschwindet, wenn ein Bild schonmal geladen war hatte ich auch mal. Konnte ihn aber nicht reproduzieren, scheint aber an der Komponente TImage zu liegen.

Zum TJpegImage:

Ich verstehe die Methode Compress() laut der Borland Hilfe so, dass ein Bitmap zu einem JPEG komprimiert wird. Die Kompression sich so aber nicht in der Größe äußert...?!? Es hörte sich von dir so an, als ob du erwartest, dass sich die Größe ändert?!?

Ich werde aber auch mal rumprobieren, weil mich das Thema auch interessiert.

Gruß
Timmy

zu deinem letzten Thread:

Das Bild ist nicht unkomprimiert. Habe mal verschiedene CompressionQuality Werte ausprobiert. Du siehst es, wenn du das Bild aus Image2 als JPEG abspeicherst. In Abhängigkeit von CompressionQuality ändert sich die Dateigröße!

CompressionQuality hoch -> Datei groß und entsprechend.

Die Ausmaße vom Bild (

Image2->Height = jp->Height; 
Image2->Width  = jp->Width;

bleiben dann natürlich gleich. Es läuft halt nur ein Algorithmus über das geladene Bitmap und komprimiert dir ein JPEG draus.

Berichtige mich, wenn ich dir Blödsinn erzähle oder auf dem Holzweg bin...

Gruß
Timmy

Da ich das Bild explizit in einem JPEG-Objekt komprimieren lasse und dieses komprimierte Bild dann an ein TImage übergebe erwarte ich logischerweise eine Ausgabe/Anzeige des qualitativ schlechteren JPEG-Bildes. Tuts aber nicht, es zeigt statt dessen unerwarteterweise das verlustfreie Bitmap (?) an.

Habe nochmal ein wenig rumgesucht und probiert.

http://community.borland.com/article/0,1410,20164,00.html
http://community.borland.com/article/0,1410,15996,00.html

Der erste Link beschreibt, wie man mit TImage->Canvas->StretchDraw(...) arbeitet. Dabei kann man ein Bitmap (oder ist es intern ein Jpeg??) verkleinern und es mit der Komponente TImage anzeigen.

Der zweite Link zeigt anhand eines Delphi Beispiels, wie man nun ein TImage in ein Jpeg umwandeln kann (oder so ähnlich). Das denke ich, würde benötigt werden, um ein TJpegImage nach ->Compress mit einem TImage anzuzeigen(inklusive Verlust!). Anscheinend funktioniert das ganze nur, wenn man zwischendurch in einer Tempdatei speichert.

Auf jeden Fall kann ich mein Problem, dass automatische verkleinern von Jpegs (alà IrfanView Batchkonvertierung) damit lösen.

Sorry wenn ich eunch mit langen Geschwafel nerve, aber vielleicht kanns ja einer gebrauchen.

Schönen Gruß und viel Spaß weiterhin
Timmy

Habe ein Problem ein Jpeg zu Komprimieren. Bekomme immer den Fehler
JPEG-Fehler #41. Warum???

TJPEGImage *jp = new TJPEGImage();
  try
  {
   Image2->Picture->LoadFromFile(FileListBox1->FileName);
   jp->Assign(Image2->Picture->Graphic);
   jp->CompressionQuality = 20;
   jp->Compress();
   jp->Smoothing = false;
   jp->Smoothing;
   Image2->Picture->Assign(jp);
  }
  __finally
  {
   delete jp;
  }

BY BERRY