[firebase-br] RES: Ref. OFF Salvar .ICO em campo BLOB

[Alysson Gonçalves de Azevedo]

olha, duas coisas

primeiro, TPicture suporta Icons...
segundo, se o objetivo é só carregar o arquivo (seja ico ou qq outra
extenção) use o memorystream direto, sem mexer com jpg ou bitmap... mesmo
que seja icones... mas ressalto, isso é pro caso de que vc só vai fazer load
e save do arquivo...


Alysson Gonçalves de Azevedo
(11) 8491-7730

(\(''^_^ )/)

"Pobre vive dizendo que não tem nada, mas quando vem a enchente, ele sai
gritando: -Perdi tudo!!!"




Em 6 de outubro de 2010 14:09, Omar Marques Haddad
<omarhaddadm em gmail.com>escreveu:

> Opa, Felix,
>
> Esta rotina trata também arquivos .ICO ou somente .JPG ?
>
> Queria uma que gravasse no BLOB a imagem em formato .ICO e depois eu
> pudesse
> recuperá-la.
>
> Obrigado
>
> Abraço
> Omar
>
> Em 6 de outubro de 2010 13:00, Felix <felix.sol em terra.com.br> escreveu:
>
> > Attribuir imagem a um campo?
> >
> > var
> >   MemoryStream : TMemoryStream;
> >   Jpg : TJpegImage;
> > Begin
> >   try // imagem eh do tipo jpg
> >      MemoryStream := TMemoryStream.Create;
> >      Jpg := TJpegImage.Create;
> >      (QLeitura.FieldByName( 'campo' ) as
> > TBlobField).SaveToStream(MemoryStream);
> >      MemoryStream.Position := OffsetMemoryStream;
> >      Jpg.LoadFromStream(MemoryStream);
> >      Image1.Picture.Assign(JPG);
> >   Except // imagem eh bmp
> >      Image1.Picture.Bitmap.Assign( TBlobField(QLeitura.FieldByName(
> 'campo'
> > )) );
> >   End;
> >   FreeAndNil(Jpg);
> >   FreeAndNil(MemoryStream);
> >
> > Fco. Felix
> > Desenvolvimento de Sistemas
> > www.soltecnologia.com.br
> >
> >
> > -----Mensagem original-----
> > De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br]
> > Em
> > nome de Omar Marques Haddad
> > Enviada em: quarta-feira, 6 de outubro de 2010 13:38
> > Para: FireBase
> > Assunto: [firebase-br] Ref. OFF Salvar .ICO em campo BLOB
> >
> > Salve amigos,
> >
> > Desculpem o meio OFF, mas salvar .ICO em campo BLOB, alguém já o fez.
> Estou
> > usando uma rotina em Delphi usando stream, mas não estou obtendo sucesso
> ao
> > atribuir a imagem ao campo.
> >
> > Se alguém puder entrar em contato comigo off, agradeço
> >
> > Obrigado
> >
> > Omar
> >
> > --
> > Att.
> > Omar Marques Haddad
> > Analista de Sistemas Sênior
> > ______________________________________________
> > FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> > Para saber como gerenciar/excluir seu cadastro na lista, use:
> > http://www.firebase.com.br/fb/artigo.php?id=1107
> > Para consultar mensagens antigas: http://firebase.com.br/pesquisa
> >
> >
> > ______________________________________________
> > FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> > Para saber como gerenciar/excluir seu cadastro na lista, use:
> > http://www.firebase.com.br/fb/artigo.php?id=1107
> > Para consultar mensagens antigas: http://firebase.com.br/pesquisa
> >
>
>
>
> --
> Att.
> Omar Marques Haddad
> Analista de Sistemas Sênior
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>