Veja como é fácil converter uma imagem JPeg para Bitmap.

Inicialmente teremos que adicionar a unit "JPEG" na cláusula Uses. A função que faz esta conversão é esta: Function JPG2Bmp(Arquivo: TFileName): TBitmap;  var    Img: TPicture;  begin    Img := TPicture.Create;    Result := TBitmap.Create;    try      Img.LoadFromFile(Filename);      Result.Height := Img.Height;      Result.Width  := Img.Width;      Result.Assign(Img.Graphic);    finally      Img.Free;    end;  end;  Se tivermos um TImage no nosso formulário e suponhamos que num botão iremos carregar o arquivo FOTO.JPG para este TImage. No evento OnClick deste botão faríamos: begin   Image1.Picture.Assign(JPG2Bmp('C:\\FOTO.JPG')); end;

Quebra-Linha

Colaborador..: Marcelo Torres
Categoria(s).: Delphi;
Versão.......: 1.00
Data.........: 04/04/2005 15:26:30
Visualizado..: 4802 vezes
Fonte........: Marcelo Torres