Delphi dicas

Função jpg

//biblioteca



Jpeg





// antes do implementation

var

Form1: TForm1;



Function JPG2Bmp(Arquivo: TFileName): TBitmap;







//if no button

if (OpenPictureDialog1.Execute) then

Image3.Picture.Assign(JPG2Bmp(OpenPictureDialog1.FileName));













// função  jpg

Function JPG2Bmp(Arquivo: TFileName): TBitmap;

var

Img: TPicture;



begin

        Img := TPicture.Create;

        Result := TBitmap.Create;



        try

        Img.LoadFromFile(Arquivo);



        Result.Height := Img.Height;

        Result.Width  := Img.Width;



        Result.Assign(Img.Graphic);

        finally

        Img.Free;

end;

end;