FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Problema con este truco jpg a image
holas
he estado tratando de poner mi jpg que tengo en la base de datos a un image1. para esto uso el siguiete Código:
procedure TForm1.Button2Click(Sender: TObject); var Jpeg:TJpegImage; Corriente:TMemoryStream; begin {Creamos un TJpegImage y una TMemoryStream} {Para uso temporal} {We crate a TJPejImage and a TMemoryStream} {To Temporal use} Jpeg:=TJpegImage.create; Corriente:=TMemoryStream.create; {Grabamos el campo binario a la stream} {Save the binary field in the stream} Table1Imagen.SaveToStream(Corriente); {Rebobinamos Ccorriente} {Rewind the stream} Corriente.Seek(0,soFromBeginning); {Cargamos Corriente en el TJpegImage} {Load the stream into the TJpegImage} Jpeg.LoadFromStream(Corriente); {y asignamos el TJPegImage al Image1 de la form} {Assign the TJpegImage to the Image1 of the form} Image1.Picture.Assign(Jpeg); {Liberamos cosas temporales} {Free the temporal things} Corriente.Free; Jpeg.Free; end; me da error en [Error] Unit1.pas(154): Undeclared identifier: 'Table1Imagen' la pregunta cual es ese componente Table1Imagen , dicen que es una tabla pd.: uso delphi 7 con Firebird. saludos |
#2
|
||||
|
||||
Es que el ejemplo funciona en Paradox, en Firebird habría que hacer la prueba, en cualquier caso Table1Image, significa que tienes una tabla aquí llamada Table1 y un campo llamado imagen, que se supone sera un Graphic o BloB.
De ahí el nombre Table1Imagen Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
|||
|
|||
Cita:
saludos y gracias por la respuesta. |
#4
|
|||
|
|||
me respondo solo por si alguien tiene el mismo problema aqui esta la soluccion despues de unas buenas horas de busquedas y pruebas.
Código:
var jpgFoto: TJPEGImage; msFoto: TMemoryStream; begin msFoto:=TMemoryStream.Create; IBQuery1.Close; IBQuery1.Sql.Clear; IBQuery1.Sql.Add('Select Foto FROM Tabela Where Codigo = 1'); IBQuery1.Open; TGraphicField(IBQuery1.FieldByName('Foto')).SaveToStream(msFoto); IBQuery1.Close; msFoto.Position:=0; jpgFoto:=TJPEGImage.Create; jpgFoto.LoadFromStream(msFoto); imgFoto.Picture.Graphic := jpgFoto; msFoto.Free; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
problema de image y base de datos | theguy | Gráficos | 3 | 02-12-2005 14:29:33 |
que problema hay con este comando | ElDioni | SQL | 5 | 14-07-2005 12:49:14 |
Como resuelvo este problema?? | danytorres | Varios | 7 | 26-04-2005 22:36:27 |
Como soluciono este problema que detallo a continuacion | tulio | Impresión | 3 | 29-03-2004 23:19:32 |
Orienteme con este problema de sockets | Ezecool | Varios | 0 | 26-01-2004 19:12:38 |
|