PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

Fórum Mostrar imagem com edbImage no Firebird 2.1 #60666

04/06/2009

0

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

Ralp

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar