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 

Atribuir Blob ao componente TImage

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


Registrado: Quinta-Feira, 22 de Abril de 2010
Mensagens: 383
Localização: Rio de Janeiro

MensagemEnviada: Sex Mar 08, 2013 9:27 am    Assunto: Atribuir Blob ao componente TImage Responder com Citação

Olá.

Pra enviar pro BD, estou fazendo o seguinte:
Código:
DMConexao.Query.ParamByName('CAPA').LoadFromFile(Dialogo.FileName, ftBlob);

Ótimo! Mas e pra ler uma imagem do blog e atribuí-la ao TImage?

PS: Não posso usar DBImage.

Um abraço!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Sex Mar 08, 2013 11:17 am    Assunto: Responder com Citação

Bom dia,

Experimente dessa forma:

Código:
var
  Jpg: TJPegImage;
  Bs: TStream;
begin
  Jpg := TJPegImage.Create;
  Bs  := dm.Query1.CreateBlobStream(dm.Query1.FieldByName('CAPA'), bmRead);
  try
      Jpg.LoadFromStream(Bs);
      Image1.Picture.Assign(Jpg);
  finally
      Bs.Free;
      Jpg.Free;
  end;


Espero que ajude.

_________________
Assinatura: http://www.imoveisemexposicao.com.br/imoveis-venda-são_paulo-residencial-sobrado
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
AndreZc
Membro Junior
Membro Junior


Registrado: Quinta-Feira, 22 de Abril de 2010
Mensagens: 383
Localização: Rio de Janeiro

MensagemEnviada: Sex Mar 08, 2013 11:30 am    Assunto: Responder com Citação

Olá amigo.

Não deu certo. Deu o erro:

JPEG error #51.

E outra: a minha imagem está no formato PNG.

Alguma sugestão?

Obrigado!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Sex Mar 08, 2013 11:40 am    Assunto: Responder com Citação

Que versão do Delphi você está utilizando?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
AndreZc
Membro Junior
Membro Junior


Registrado: Quinta-Feira, 22 de Abril de 2010
Mensagens: 383
Localização: Rio de Janeiro

MensagemEnviada: Sex Mar 08, 2013 11:41 am    Assunto: Responder com Citação

Delphi 2010
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: Sex Mar 08, 2013 11:51 am    Assunto: Responder com Citação

Então vc tem de utilizar a classe do png, seguindo os passos anteriores.



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
AndreZc
Membro Junior
Membro Junior


Registrado: Quinta-Feira, 22 de Abril de 2010
Mensagens: 383
Localização: Rio de Janeiro

MensagemEnviada: Sex Mar 08, 2013 11:54 am    Assunto: Responder com Citação

johnny-walker escreveu:
Então vc tem de utilizar a classe do png, seguindo os passos anteriores.



bye


Mas ai ficaria muito preso. O sistema aceita imagens para cadastro, independente do formato. Eu gostaria de algo genérico. Não é possível que seja tão complicado assim.

Ah, e não achei uma unit pra imagens do tipo PNG.

Mais alguma sugestão?

Muito obrigado!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Sex Mar 08, 2013 2:22 pm    Assunto: Responder com Citação

A unit do tipo TPngImage está na unit PngImage.

Sobre o tipo de imagem, acho que não tem jeito, acho que vai ser necessário utilizar código para identificar o tipo de imagem para utilizar a classe adequada.
Ou você converte as imagens para um determinado tipo específico antes de salvar no banco de dados.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
almir.jg
Novato
Novato


Registrado: Quarta-Feira, 3 de Março de 2004
Mensagens: 87

MensagemEnviada: Sáb Mar 23, 2013 1:11 pm    Assunto: Responder com Citação

E se a imagem for um BMP?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
CesarRocha
Mestre
Mestre


Registrado: Segunda-Feira, 30 de Mai de 2011
Mensagens: 794
Localização: São Paulo - SP

MensagemEnviada: Sáb Mar 23, 2013 1:25 pm    Assunto: Responder com Citação

almir.jg escreveu:
E se a imagem for um BMP?

Cria em um TBitmap...
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