como gravar texto e imagem campo firebird

Firebird

21/05/2015

Estou fazendo um programa de dicas delphi.
Muitas dicas pego na internet.
Quando tem o que me interessa, seleciono o texto (que muitas vezes tem desenhos, fotos graficos, etc...) clico com o botão direito e Copiar.
Vou no meu sistema e quero Colar.
só que o que tem imagem, foto, desenho, etc.. não esta gravando do meu sistema.
Criei no banco de dados um campo blob, subtype Binary tamanho 80.
- Como faço para gravar esta seleção (texto e imagem)?
- Qual componente utilizo para visualizar/gravar?

Tentei utilizar tdbMemo e até mesmo o tmemo mas não consegui.

Att.Hintz
João Hintz

João Hintz

Curtidas 0

Respostas

Thiago Santana

Thiago Santana

21/05/2015

João posta seu código para tentarmos te ajudar!
O componente a ser utilizado deve ser o Image...
Para gravar vc vai ter que usar o campo da sua tabela e dependendo de como
o seu código está montado usar o loadFromFile.


if OpenDialog1.Execute then
   ShowMessage(OpenDialog1.FileName);
   try
     if OpenDialog1.FileName <> '' then
        CdsEmpresaLOGO.LoadFromFile(OpenDialog1.FileName)
   else
        CdsEmpresaLOGO.Clear;
   except
        CdsEmpresaLOGO.Clear;
        dmConexao.msg.MessageBox('Não foi possível carregar a imagem!','ATENÇÃO',MB_OK+MB_ICONERROR);
   end;
GOSTEI 0
João Hintz

João Hintz

21/05/2015

estou começando o sistema.
gerei a tabela com um campo blob, subtype Binary tamanho 80
tentei utilizar um TdbMemo para editar, pois preciso gravar TEXTO e IMAGEM e os exemplos
que eu vi, assim como o teu, é só para imagem.
Preciso algo parecido com o como o WORD, onde eu digito texto e posso
colocar junto imagens.

Att.: Hintz
GOSTEI 0
POSTAR