ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Verificar Formato da Imagem[RESOLVIDO]

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
popin
Novato
Novato


Registrado: Quarta-Feira, 9 de Novembro de 2011
Mensagens: 33

MensagemEnviada: Seg Dez 12, 2011 4:58 pm    Assunto: Verificar Formato da Imagem[RESOLVIDO] Responder com Citação

Ola...Como faço para verificar se o formato de uma imagem que vou carregar em um dbimagem esta no formato JPEG?

Editado pela última vez por popin em Ter Dez 13, 2011 12:40 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Ter Dez 13, 2011 9:13 am    Assunto: Responder com Citação

Amigo eu fiz esta função tem algum tempo, com ela atraves de BITMAPFILEHEADER vc pode saber qualquer gráfico que carregue no stream.
Código:

function IsJpeg(var Stream: TMemoryStream): Boolean;
var
  BmpFH: TBitmapFileHeader;
begin
     if Stream.Size = 0 then
        Exit;
     // Posiciona em zero para evitar
     // algum erro na leitura do cabeçalho
     Stream.Position := 0;
     Stream.ReadBuffer(BmpFH, Sizeof(BmpFH));
     Result := (BmpFH.bfType = $D8FF);
     // Retorna ao início novamente
     Stream.Position := 0;
end;

function IsBitmap(var Stream: TMemoryStream): Boolean;
var
  Bmfh: TBitmapFileHeader;
begin
     Stream.ReadBuffer(Bmfh, sizeof(Bmfh));
     Result := (Bmfh.bfType = $4D42);
     Stream.Position := 0;
end;


Vc pode pegar os formatos de outros gráficos através de Bmfh.bfType, assim vc pode saber se é bitmap, jpeg, png, gif e etc.

Eis um link que explica:
http://www.delphidabbler.com/tips/19


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
popin
Novato
Novato


Registrado: Quarta-Feira, 9 de Novembro de 2011
Mensagens: 33

MensagemEnviada: Ter Dez 13, 2011 12:39 pm    Assunto: Responder com Citação

Ola Johnny-walker ...resolvi o problema com base nesse link
http://programero.blogspot.com/2008/06/descobrir-tipo-do-arquivo-delphi.html

Vlw Pela Ajuda e OBG.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Antonov
Novato
Novato


Registrado: Quarta-Feira, 17 de Outubro de 2018
Mensagens: 1

MensagemEnviada: Qua Out 17, 2018 9:40 pm    Assunto: Verificar Formato da Imagem[RESOLVIDO] Responder com Citação

Olá johnny-walker

Você citou os bfType:

BmpFH.bfType = $D8FF // JPG
BmPFH.bfType = $4D42 // BMP

Como eu faço pra descobrir os códigos de outros tipos de imagem, ou, se você os tiver, quais são, para os tipos: PNG, GIF, ICO?
Rolling Eyes
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB