Club Delphi  
    Paypal   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

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 15-02-2005
Avatar de Paoti
Paoti Paoti is offline
Miembro
 
Registrado: may 2003
Ubicación: Monterrey. N.L., México
Posts: 612
Poder: 24
Paoti Va por buen camino
usa un TImage

mirate este link ahi se muestra como guardar un jpg

y como mostrarlo despues


http://www.clubdelphi.com/foros/showthread.php?t=12174

y esta es la forma como lo implemente en un query, en el evento afterscroll

Código Delphi [-]
procedure TFrmCapturaDocumentos.QDocumentosAfterScroll(DataSet: TDataSet);
var bs : TStream; jp : TJpegImage; buff: Word;
begin
 bs := QDocumentos.CreateBlobStream(QDocumentosImagen,bmRead);
try
bs.Seek(0,soFromBeginning);
if bs.Read(buff,2) > 0 then
begin
  bs.Seek(0, soFromBeginning);
  case buff of
  $4D42: myImg.Picture.Bitmap.LoadFromStream(bs);
  $0000: myImg.Picture.Icon.LoadFromStream(bs);
  $0001,$CDD7: myImg.Picture.Metafile.LoadFromStream(bs);
  $D8FF: begin
  jp := TJpegImage.Create;
  jp.LoadFromStream(bs);
  myImg.Picture.Assign(jp);
  FreeAndNil(jp);
  end
  else myImg.Picture := nil;
end;
end;
finally
FreeAndNil(bs);
end;
end;
__________________
Estudia y anda en la calle.... que asi serás el doble de listo que los demás...

análisis de información
análisis y diseño de sistemas

Paoti Rios Reséndiz
Responder Con Cita
 


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 03:47:19.


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