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

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

Curtir t�pico + 0

Responder

Post mais votado

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.

Eduardo Mendon�a

Responder

Gostei + 1