Exception bei der JPEG Kompremierung

[CalganX]

Hi und herzlich Willkommen in der Delphi-PRAXiS!
Bitte umschließe deine SourceCodes mit den Delphi-Tags ([ delphi][ /delphi] ohne die " "). Dann sieht das ganze ein wenig besser aus.

Dein Source solltest du ein wenig umstellen (ich habe die Variable einfach umbenannt, dass meine ich aber nicht):

Delphi-Quellcode:

var
  aJPEG: TJPEGImage;
begin
  if OpenDialog1.Execute then begin  // wurde der Dialog mit OK bestätigt?
    aJPEG := TJPEGImage.Create;
    try  // Ressourcen sparen
      aJPEG.LoadFromFile(OpenDialog1.FileName);
      aJPEG.Smoothing := true; // Nimm einen eindeutigen Wert! Ich weiß, nicht ob das beim Laden automatisch gesetzt
      aJPEG.CompressionQuality := 5;
      aJPEG.Compress;
      Image1.Picture.Assign(aJPEG); // <-- hier wird der Fehler liegen! Du versuchst einem Bitmap ein JPEG zuzuweisen! Das wird nicht funktionieren!
    finally
      aJpeg.Free;
    end;
  end;
end;

Des Weiteren solltest du die JPEG-Unit in die Uses aufnehmen.

Chris