(Resolvido) Ler imagem do Banco Firebird (BLOB)

[robinhocne]

Pessoal gravei no meu banco firebird uma imagem do tipo JPG num campo blob, mas e agora como eu carrego ela na minha TImage atraves de uma consulta feita no banco ??

Editado Setembro 7, 2010 por robinhocne

[Jhonas]

Pesquise no forum

http://scriptbrasil.com.br/forum/index.php...ighlite=Tstream

abraço

[robinhocne]

Pesquise no forum

http://scriptbrasil.com.br/forum/index.php...ighlite=Tstream

abraço

Consegui resolver dessa maneira abaixo

procedure TFrmNovProdutos.LeImagem;
var
  jpgFoto: TJPEGImage;
  msFoto: TMemoryStream;
begin
  msFoto:=TMemoryStream.Create;
  jpgFoto:=TJPEGImage.Create;


  with DtmLoja.QryProdutos do
    begin
      close;
      Sql.Clear;
      Sql.Add('Select Codigo, Imagem From Produtos Where Codigo =' + QuotedStr(TxtCod.Text));
      open;
    end;

  if DtmLoja.QryProdutos.RecordCount = 0 then
    begin
      exit;
    end;

  TGraphicField(DtmLoja.QryProdutos.FieldByName('Imagem')).SaveToStream(msFoto);

  jpgFoto.LoadFromStream(msFoto);

  msFoto.Position:=0;
  jpgFoto:=TJPEGImage.Create;
  jpgFoto.LoadFromStream(msFoto);
  Foto.Picture.Graphic := jpgFoto;
  msFoto.Free;


end;