delphi
procedure TExporta.BitBtn1Click(Sender: TObject); var BS: TStream; Graphic : TGraphic; BlobField : TBlobField; begin PvTAlumnos.Open; if not BlobField.IsNull then begin BS := CreateBlobStream(BlobField,bmRead); // Aqui me marca el error Graphic := TJPEGImage.Create; Graphic.LoadFromStream(BS); Image1.Picture.Graphic := Graphic; BS.Free; ADOTable1.Open; end; PvTAlumnos.Close; end; // [DCC Error] UfrmExportar.pas(49): E2003 Undeclared identifier: 'CreateBlobStream'
Gracias por su ayuda