Fórum TImage para banco de dados. #181180
10/09/2003
0
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.. alguem sabe como...
:arrow: Obs.: já consegui fazer com dbimage. mais quero usar timage.
:arrow: Obs.: já consegui fazer com dbimage. mais quero usar timage.
Linuxice
Curtir tópico
+ 0
Responder
Posts
10/09/2003
Mutz
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)