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

02/10/2015

27

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

Responder

Post mais votado

03/10/2015

Fuçando pelo fórum vi um post sobre COPY COM POS DE TRÁS PRA FRENTE 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

Eduardo Mendonça
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar