[firebase-br] RES: Ref. OFF Salvar .ICO em campo BLOB
Felix
felix.sol em terra.com.br
Qua Out 6 14:00:31 -03 2010
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
Mais detalhes sobre a lista de discussão lista