TImage para banco de dados.

Question

Tenho um sistema que trabalha com query(insert into... update set... delete from...) preciso jogar o conteudo de um Timage em um campo do banco de dados..

Mutz · Answer

crie um campo tipo blob no banco se for paradox ou interbase/firebird e para jogar a imagem para um campo fa�a: Funciona com Bitmaps.

var
imagem : tmemorystream;
begin
imagem := tmemorystream.create;
if TabelaIMAGEM.isBlob = 0 then
begin
image1.picture.bitmap.savetostream(imagem);
if (DataSourceTabela.State in [dsInsert, dsEdit])
then TabelaIMAGEM.loadfromstream(imagem);
end;
end;