Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   MySQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=21)
-   -   ¿Como Guardar un Bmp/Jpg en un campo BLOB desde Delphi? (https://www.clubdelphi.com/foros/showthread.php?t=39344)

LuCkY_007 17-01-2007 18:17:18

¿Como Guardar un Bmp/Jpg en un campo BLOB desde Delphi?
 
Bueno no puedo ser mas explicito en el titulo :D

Neftali [Germán.Estévez] 17-01-2007 18:23:37

Revisa este hilo.
Una búsqueda en los foros seguro que te da más soluciones.

LuCkY_007 17-01-2007 18:46:00

Pues me he quedao igual... :confused:

Neftali [Germán.Estévez] 17-01-2007 19:34:00

Código Delphi [-]
  TablaCampoBlob.LoadFromFile(archivo.jpeg);


Guardar en un campo BLOB un JPG desde un fichero en Delphi.
Repito: Lee el hilo, Busca en los foros, Busca en la ayuda.

Método LoadFromFile, de la clase TBlobField (que es la que corresponde a un campo BLOB de tu tabla)

:confused::confused::confused:

LuCkY_007 18-01-2007 12:05:26

Ok ya lo tengo! Aqui pongo un ejemplo pa si alguien lo leyera mas tarde

Código Delphi [-]
procedure TFmconfiguracionprincipal.ImagenClick(Sender: TObject);
var
  Grafico : TGraphic;
  bS  : TStream;
Begin
  If Dialogo.Execute Then
  Begin
    // GUARDAR LOGO EN BD
    TTabla.Edit;
    TTablaLogo.LoadFromFile(Dialogo.Filename);
    // CARGAR LOGO EN IMAGEN
    try
      bS := TTabla.CreateBlobStream(TTablaLogo,bmread);
      Grafico := TJPEGImage.Create;
      Grafico.LoadFromStream(bS);
      Imagen.Picture.Graphic := Grafico;
      Grafico.free;
      bS.Free;
    except
      Grafico.free;
      bS.free;
    End;
  End;
end;

Gracias x la ayuda ! :)

PD: Por cierto el campo de la tabla lo ideal es que sea LONGBLOB, por que al principio me comi la cabeza por que la imagen me salia a medias y luego vi que el campo tenia muy poco tamaño (mb).


La franja horaria es GMT +2. Ahora son las 01:36:51.

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