JPEG em Timage

Delphi

24/09/2008

Estou tentando trabalhar com imagens no formato .JPEG e não estou conseguindo baixar para o IMage.
Image1.picture.loadfromfile(´c:\imagem.jpeg´)
dá erro.
Se for .bmp não dá o erro. Mas aê eu teria que converter toas as imagens do meu arquivo.

Valeu por qualquer ajuda.


Abelha

Abelha

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

24/09/2008

Estou tentando trabalhar com imagens no formato .JPEG e não estou conseguindo baixar para o IMage.
Image1.picture.loadfromfile(´c:\imagem.jpeg´)
dá erro. Se for .bmp não dá o erro. Mas aê eu teria que converter toas as imagens do meu arquivo. Valeu por qualquer ajuda.


Qual erro?
Basicamente você precisa declarar a Unit JPEG no Uses do seu formulário, assim:

...
interface

uses
  JPEG;
...

procedure TForm1.Button1Click(Sender: TObject);
begin
  with OpenPictureDialog1 do
    if Execute then
      Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;



GOSTEI 0
Abelha

Abelha

24/09/2008

Funcionou legal, mas tem como evitar usar o opendialog. Eu quero abrir as imagens automaticamente ao abrir o formulário.


GOSTEI 0
Abelha

Abelha

24/09/2008

Ops, foi mal ...o erro tava no diretório. Agora tá legal. Valeu pela ajuda.


GOSTEI 0
Abelha

Abelha

24/09/2008

Mais uma dúvida. Se eu usar o [b:f475d7b9cc]OpenDialogBox [/b:f475d7b9cc]tem como exibir as imagens abertas?


GOSTEI 0
POSTAR