unit jpeg2bitmap;

interface

Uses Graphics, JPEG;

procedure JpegToBitmap(Bild: String; Dest: TPicture); overload; //wandelt eine JPEG-Bild in ein Bitmap um, damit z.B. mit Canvas.Rectangle auf dem Bild gezeichnet werden kann
procedure JpegToBitmap(Source: TJPEGImage; Dest: TPicture); overload; //wandelt eine JPEG-Bild in ein Bitmap um, damit z.B. mit Canvas.Rectangle auf dem Bild gezeichnet werden kann

implementation

procedure JpegToBitmap(Bild: String; Dest: TPicture); overload;
var TempBild : TBitmap;
    TempJpeg : TJPEGImage;
begin
        TempJpeg := TJPEGImage.Create;
        TempJpeg.LoadFromFile(Bild);
        TempBild := TBitmap.Create;
        TempBild.Assign(TempJpeg);
        Dest.Assign(TempBild);
        TempBild.Free;
        TempJpeg.Free;
end;


procedure JpegToBitmap(Source: TJPEGImage; Dest: TPicture); overload;
var TempBild : TBitmap;
begin
        TempBild := TBitmap.Create;
        TempBild.Assign(Source);
        Dest.Assign(TempBild);
        TempBild.Free;
end;

end.