Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

quinta-feira, 26 de novembro de 2015

DELPHI - Testar um arquivo JPG e BMP

Reações: 
// Uses Jpeg, Graphics  (testado em delphi6 - para versões mais novas consultar a unit correspondente)
procedure TForm1.Button1Click(Sender: TObject);
var
  B : TBitmap;
  J : TJPEGImage;
  F : Boolean;
begin
// Testa o arquivo bmp e o jpg mesmo se a extensão estiver alterada
  try
    FreeAndNil(J);
  except
  end;
  Image1.Picture.Assign(nil);
  if OpenPictureDialog1.Execute then
  begin
    B := TBitmap.Create;
    F := False;
    try
      try
      Label1.Caption := 'Imagem BitMap';
      B.LoadFromFile(OpenPictureDialog1.FileName);
      except
        Label1.Caption := 'Não é BitMap';
        F := True;
        Application.ProcessMessages;        
        Sleep(2000);
      end;
      if F then
      begin
        J := TJPEGImage.Create;
        try
          J.LoadFromFile(OpenPictureDialog1.FileName);
          B.Assign(J);
          Label1.Caption := 'Imagem JPG';
        except
          Label1.Caption := 'Não é JPG';
        end;
      end;
      if Assigned(B) then
        Image1.Picture.Assign(B)

    Finally
      FreeAndNil(B);
      if Assigned(J) then
        FreeAndNil(J);
    end;
  end;
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer