ActiveDelphi

[Ralp]

Bom dia! Estou utilizando o código abaixo juntamente com o componente edbImage para salvar uma imagem no firebird 2.1 com dbexpress e Delphi 7:

procedure TfrmAuxiliar.SpeedButton1Click(Sender: TObject);
begin
if application.messagebox('Incluir Bandeira?',
'Bandeira',mb_yesno)=idyes then
begin
if (opdFoto.execute) then
d.cds_Estado.Edit;
dbiFoto.Picture.LoadFromFile(opdFoto.FileName);
d.cds_Estado.Post;
d.cds_Estado.ApplyUpdates(0)
end;
end;

Ao verificar no ibExpert, a imagem esta gravada. Porém, quando mando mostrar os dados no dbgrid com a função abaixo a imagem não aparece.

Queria que, ao clicar em um registro no dbgrid a imagem fosse mostrada no componente edbimage ou dbImagem.

Screen.Cursor:=crSqlWait;
//Mostra Estado dbGrid
With d.cds_Estado do
Begin
d.cds_Estado.Close;
CommandText:='Select * from Aux_Estado order by Abreviacao';
d.cds_Estado.Open;
dbGrid3.SetFocus
end;
Screen.Cursor:=crDefault;

O que poderia ser?

Grato

Ralp Alves
_________________
Ralp Alves Bezerra

[thomazs]

Basta vincular o EDBImage ao CDS através de um datasetprovider (o mesmo que está sendo usado na grid), e setar qual o campo que contém a imagem.
_________________
Suporte e Consultoria em Desenvolvimento de Sistemas
Bacharel em Sistemas de Informação
Especialista em Bancos de Dados
Desenvolvimento: Clipper, Delphi, PHP, Python/Django