FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Visualizar BLOB
Este procedimiento funciona bien con tablas Paradox para visualizar Jpg con un Timage, pero con Firebird me sale el siguiente error:
'Invalid class Typecast'. Tengo creado el Campo Blob de Firebird como 'BLOB SUB_TYPE 0 SEGMENT SIZE 2048' tambien he probado con 'BLOB SUB_TYPE 0 SEGMENT SIZE 4096' el tamaño del Jpg es de 38KB Gracias anticipadas. procedure TForm1.Button3Click(Sender: TObject); var BS: TBlobStream; Graphic: TGraphic; begin if FDM.IBtable2foto.isnull then Image1.picture.graphic:=nil else begin BS:=TBlobStream.Create(FDM.IBtable2foto,bmread); try Graphic:= TJPEGImage.Create; try Graphic.LoadFromStream(BS); Image1.picture.graphic:=Graphic; Finally Graphic.Free; end; Finally BS.free; end; end; end; |
#2
|
|||
|
|||
Ya me funciona.
procedure TForm1.Button3Click(Sender: TObject); var BS: TStream; Graphic: TGraphic; begin if FDM.IBtable2FOTO.isnull then Image1.picture.graphic:=nil else begin BS := FDM.IBtable2.CreateBlobStream(FDM.IBTable2.FieldByName('FOTO'), bmRead); try Graphic := TJPEGImage.Create; try Graphic.LoadFromStream(BS); Image1.Picture := nil; Image1.picture.graphic := Graphic; Finally Graphic.Free; end; Finally BS.free; end; end; end; |
|
|
|