Mostrar imagem com edbImage no Firebird 2.1
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
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
Curtidas 0