ActiveDelphi

[heliorios]

Bom dia. Não estou conseguindo fazer funcionar o OpenPictureDialog1 para buscar JPG e JPEG no Delhi 2010. No Delphi 6 funciona perfeitamente com o codigo abaixo.

If trim(EdtLocalFotos.Text)='' then EdtLocalFotos.Text:='C:\';
OpenPictureDialog1.Filter:=All (*.jpg;*.jpeg)|*.jpg;*.jpeg|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)
OpenPictureDialog1.InitialDir := trim(EdtLocalFotos.Text);
OpenPictureDialog1.Execute;
if OpenPictureDialog1.FileName <> '' Then
begin
image1.Picture.LoadFromFile(OpenPictureDialog1.Filename);
LblFoto1.Caption:=OpenPictureDialog1.FileName;
end;

Se clico no componente, a imagem é apresentada, mas apos compilar, quando clico na imagem não e apresentada na tela ao lado, ocorrendo a mensagem: UNKNOWM PICTURE FILE EXTENSION (.JPG).

obrigado

[gilsonnrodrigues]

adicione no uses de uma unit qq a unit Jpeg

exemplo:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Jpeg;

[heliorios]

Obrigado. Deu certo.