Ver Mensaje Individual
  #5  
Antiguo 18-01-2007
LuCkY_007 LuCkY_007 is offline
Miembro
 
Registrado: dic 2005
Posts: 23
Reputación: 0
LuCkY_007 Va por buen camino
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).

Última edición por LuCkY_007 fecha: 18-01-2007 a las 12:09:16.
Responder Con Cita