Unknown picture file extension (.) ao tentar abri uma pasta

Delphi

02/10/2015

Boa Tarde!
no meu código 
  imgMiniatura.Picture.loadfromfile(opdAnexo.FileName);
Quando tento abrir uma pasta para ver as imagens da esse erro "Unknown picture file extension (.)" algum sabe com reparar isso?
(já coloque no " uses " "jpeg")
Eduardo Mendonça

Eduardo Mendonça

Curtidas 0

Melhor post

Eduardo Mendonça

Eduardo Mendonça

03/10/2015

Fuçando pelo fórum vi um post sobre [url:descricao=COPY COM POS DE TRÁS PRA FRENTE]https://www.devmedia.com.br/forum/copy-com-pos-de-tras-pra-frente/404311[/url] ai tive uma ideia para resolver meu problema.

procedure TfrmEnviaEmail.opdAnexoSelectionChange(Sender: TObject);
begin
  if opdAnexo.FileName <> '' then
    CID;
  imgMiniatura.Picture.LoadFromFile(opdAnexo.FileName); // O erro dava aqui quando clicava em uma pasta
  lblInfoImagem.Caption :=  ExtractFileName(opdAnexo.FileName);
end;


ai fiz asim
procedure TfrmEnviaEmail.opdAnexoSelectionChange(Sender: TObject);
var
  sDir : String;
begin
  if opdAnexo.FileName <> '' then
    CID;
  sDir  :=  ExtractFileName(opdAnexo.FileName);
  sDir:= ReverseString(sDir);
  delete(sDir,pos('.',sDir),length(sDir));
  sDir:= ReverseString(sDir);
  if (sDir = 'gif') or (sDir = 'jpg') or (sDir = 'jpeg') or (sDir = 'bmp') or
     (sDir = 'ico') or (sDir = 'emf') or (sDir = 'wmf') then
  begin
    imgMiniatura.Picture.LoadFromFile(opdAnexo.FileName);
    lblInfoImagem.Caption :=  ExtractFileName(opdAnexo.FileName);
  end;  
end;


pronto pode marcar como resolvido.
GOSTEI 1
POSTAR