Foros Club Delphi - Problema con este truco jpg a image

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)

- - Problema con este truco jpg a image (https://www.clubdelphi.com/foros/showthread.php?t=51670)

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;

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 :confused:

pd.: uso delphi 7 con Firebird.

saludos

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.

Cita:

Empezado por marcoszorrilla (Mensaje 254212)

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

saludos y gracias por la respuesta.

Cita:

Empezado por ascrnet (Mensaje 254216)

.... entonces como lo cargo en el image1 :confused:

me respondo solo por si alguien tiene el mismo problema :D 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;

saludos :D