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

[Felix]

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