Jpeg Zu Bitmap Fehler

[merlin17]

evtl. so von Jpeg zu BMP:

Delphi-Quellcode:

 var
  Bitmap: TBitmap;
  Stream: TFileStream;
 begin
    Bitmap := TBitmap.Create;
    try
      Bitmap.LoadFromFile(ParamStr(1));
      with TJPEGImage.Create do
      try
        Assign(Bitmap);
       if ParamCount > 1 then
          CompressionQuality := StrToIntDef(ParamStr(2),100);
        Stream := TFileStream.Create(ChangeFileExt(ParamStr(1),'.JPG'),fmCreate);
        try
          SaveToStream(Stream)
        finally
          Stream.Free
       end
      finally
        Free
      end
    finally
      Bitmap.Free
    end;
  end;