Ver Mensaje Individual
  #7  
Antiguo 04-12-2011
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Reputación: 20
movorack Va camino a la famamovorack Va camino a la fama
Hola a todos... tiempo sin reponder algún post...

El tipo de dato si es el correcto y no solo sirve para imágenes... lo he utilizado hasta para guardar reportes (como uso fastreport) cosa de tenerlos centralizados

Este código lo usé hace rato para guardar la imágen que obtenia de una camara digital a la base de datos... el objeto JPEG es solo un TGPEGImage... la misma imágen del TImage pero procesada en un JPEG para mejorar el rendimiento en la carga de las imágenes cuando se presentaba en la web.

Código Delphi [-]
procedure TFrmCarnet.BtnCapturaClick(Sender: TObject);
  var
    Stream : TStream;
begin
  if FrmMain.DlgFotoCapturaExecute = mrOK then
  begin
    With QryCliente do
    begin
      Edit;
  Stream := CreateBlobStream(FieldByName('cli_imag'), bmReadWrite);
        JPEG.SaveToStream(Stream); //Aquí ya estaba asignado a la base de datos
        DBImgPhoto.Picture.Assign(JPEG); //Aquí lo mostraba en el Image del formulario
        //Que la imagen estuviera asignada al value del campo no significaba que se deplegara
        //En el formulario.... por eso tenia que hacer el segundo paso.
        Post; //Eso era todo.
      Refresh;
    end;
  end;
end;

lastimosamente no encontré el código para cuando hacia la consulta y mostrar la foto... espero te ayude.
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita