Problema con este truco jpg a image

[ascrnet]

holas

he estado tratando de poner mi jpg que tengo en la base de datos a un image1. para esto uso el siguiete

 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;

fuente : http://www.q3.nu/trucomania/truco.cgi?216&esp

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

[marcoszorrilla]

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.

[ascrnet]

Empezado por marcoszorrilla

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.

hay esta la cosa. entonces como lo cargo en el image1 solo he visto ejemplo de access y otras bd en el foro.

saludos y gracias por la respuesta.

[ascrnet]

Empezado por ascrnet

.... entonces como lo cargo en el image1

me respondo solo por si alguien tiene el mismo problema aqui esta la soluccion despues de unas buenas horas de busquedas y pruebas.

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;

saludos