Fórum Gravar e Ler campo de Imagem no Interbase. #165563

Caro amigo!

mande-me um e-mail que mandarei um exemplo!
salomaosoares@bol.com.br

Olha amigo eu te aconselho a gravar somente o path da imagem e gravar a imagem em uma pasta, e toda vez que o seu aplicativo for recupera-la basta seguir o caminho gravado no campo tipo string

Olá Ovidio.
No banco de dados, crie um campo tipo Blob, sub type 1, segment size 1.

No Delphi, no onclick de um botão, por exemplo, use o seguinte:
[b:5991a549be]var
Imagem: TFileStream;
begin
diagLocalizarImagem.Execute; // executa uma caixa de diálogo
Imagem := TFileStream.Create(diagLocalizarImagem.FileName, fmOpenRead or fmShareDenyWrite);
try
dmGeral.DadosDoClienteLogotipo.LoadFromStream(Imagem);
finally
Imagem.Free;
end;
[/b:5991a549be]

[i:5991a549be] onde:
[b:5991a549be]dmGeral: data module onde está a tabela;
DadosDoCliente: tabela IB dentro do Delphi;
Logotipo: nome do campo que receberá os dados[/b:5991a549be][/i:5991a549be]

Para exibir a imagem, é só colocar um DBImagem e lincar na tabela/campo que contém os dados da imagem.

Para somente exibir uma imagem, sem gravá-la, o procedimento é o mesmo.

Espero ter ajudado.
t+
dFran[/i][/b]

Olá Ovidio.
No banco de dados, crie um campo tipo Blob, sub type 1, segment size 1.

No Delphi, no onclick de um botão, por exemplo, use o seguinte:
[b:eb6973f4e5]var
Imagem: TFileStream;
begin
diagLocalizarImagem.Execute; // executa uma caixa de diálogo
Imagem := TFileStream.Create(diagLocalizarImagem.FileName, fmOpenRead or fmShareDenyWrite);
try
dmGeral.DadosDoClienteLogotipo.LoadFromStream(Imagem);
finally
Imagem.Free;
end;
[/b:eb6973f4e5]

[i:eb6973f4e5] onde:
[b:eb6973f4e5]dmGeral: data module onde está a tabela;
DadosDoCliente: tabela IB dentro do Delphi;
Logotipo: nome do campo que receberá os dados[/b:eb6973f4e5][/i:eb6973f4e5]

Para exibir a imagem, é só colocar um DBImagem e lincar na tabela/campo que contém os dados da imagem.

Para somente exibir uma imagem, sem gravá-la, o procedimento é o mesmo.

Espero ter ajudado.
t+
dFran