Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 28-01-2005
Loviedo Loviedo is offline
Miembro
 
Registrado: dic 2004
Posts: 214
Poder: 0
Loviedo cantidad desconocida en este momento
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;
Responder Con Cita
  #2  
Antiguo 28-01-2005
Loviedo Loviedo is offline
Miembro
 
Registrado: dic 2004
Posts: 214
Poder: 0
Loviedo cantidad desconocida en este momento
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;
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 17:12:02.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi