Ich habe hier schon einen Beitrag vefunden, wie man BMP zu JPG umwandelt. Ich benötige es aber anderes herum.

Code für BMP zu JPG:

markieren

Code:

with TJPEGImage.Create do
try
  Assign(BufferImage.Graphic);
  SaveToFile('C:\Test.jpg');
finally
  Free;
end;

Leider gibt es bei TBitmapImage nicht auch einfach die Funktion Assign... so weiß ich leider nicht, was zu tun ist...

Danke im vorraus...

zusammenfalten · markieren

Delphi-Quellcode:

uses
  JPEG;

procedure JPEGtoBMP(const FileName: TFileName);
var
  jpeg: TJPEGImage;
  bmp: TBitmap;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100; {Default Value}
    jpeg.LoadFromFile(FileName);
    bmp := TBitmap.Create;
    try
      bmp.Assign(jpeg);
      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
    finally
      bmp.Free
    end;
  finally
    jpeg.Free
  end;
end;

Vielen Dank...

das is auch gut:

zusammenfalten · markieren

Delphi-Quellcode:

uses axCtrls;

function LoadGraphic(const FileName: string): TBitMap;
var
  OleG: TOleGraphic;
  fs: TFileStream;
begin
  result := TBitMap.Create;
  OleG := TOleGraphic.Create;
  fs := TFileStream.Create(FileName, fmOpenRead or fmSharedenyNone);
  try
    OleG.LoadFromStream(fs);
    with result do
      begin
        Width := OleG.Width;
        Height := OleG.Height;
        Canvas.Draw(0,0,OleG);
      end;
  finally
    OleG.Free;
    fs.Free;
  end;
end;