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
TTabla.Edit;
TTablaLogo.LoadFromFile(Dialogo.Filename);
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).