1 respuesta en este tema

[cesarfgt]

Hola foreros.

Tengo el problema de no poder leer una imagen almacenada en un campo lonblob de MySQL y que se visualize en un cambpo TDBImage o TImage, solo usando instrucciones SQL, es decir sin usan directamente los componentes TTable a continuacion coloco el codigo que me permite guardar la imagen en el campo longblob en MySQL, el campo que almacena la imagen es el campo IMAGEN.

Alguien tiene idea de como resolver este problema, la idea es que pulsando un boton muestre la imagen almacenada

delphi

procedure TFormSalidaXVale.BitBtnGuardaEnBlobClick(Sender: TObject);
Var
   xSQl:String;
   xIDAlmacen:Integer;
  myYear, myMonth, myDay : Word;
  DFormat : String;
begin
    xIDAlmacen:=0;
    DecodeDate(DateTimePicker1.Date, myYear, myMonth, myDay);
    DFormat:=IntToStr(myYear)+'-'+IntToStr(myMonth)+'-'+IntToStr(myDay);
 
    with DM1.QueryDM do
   begin
      Close;
      SQL.Clear;
      xSQL := ' Insert into repositorio (IDAlmacen,Anio,NoFacReq,Titulo,Imagen) ';
      xSQL := xSQL + ' Values ('+IntToStr(0)+',"'+IntToStr(myYear)+'","'+EditNumSalida.Text+'","bella",:xDocumento)';
      SQL.Add(xSQL);
      ParamByName('xDocumento').DataType := ftBlob;
      ParamByName('xDocumento').LoadFromFile('F:\SAyM\Series\65ca57.jpg', ftBlob);
      ExecSQL;
   end;
end;

[Wilson]

Yo colocaría un TImage y agregaría esta línea de código al final del procedimiento.

delphi

  image1.Picture.LoadFromFile('F:\SAyM\Series\65ca57.jpg');

Quedaría así:

delphi

procedure TFormSalidaXVale.BitBtnGuardaEnBlobClick(Sender: TObject);
Var
   xSQl:String;
   xIDAlmacen:Integer;
  myYear, myMonth, myDay : Word;
  DFormat : String;
begin
    xIDAlmacen:=0;
    DecodeDate(DateTimePicker1.Date, myYear, myMonth, myDay);
    DFormat:=IntToStr(myYear)+'-'+IntToStr(myMonth)+'-'+IntToStr(myDay);
 
    with DM1.QueryDM do
   begin
      Close;
      SQL.Clear;
      xSQL := ' Insert into repositorio (IDAlmacen,Anio,NoFacReq,Titulo,Imagen) ';
      xSQL := xSQL + ' Values ('+IntToStr(0)+',"'+IntToStr(myYear)+'","'+EditNumSalida.Text+'","bella",:xDocumento)';
      SQL.Add(xSQL);
      ParamByName('xDocumento').DataType := ftBlob;
      image1.Picture.LoadFromFile('F:\SAyM\Series\65ca57.jpg');//AQUI
      ParamByName('xDocumento').LoadFromFile('F:\SAyM\Series\65ca57.jpg', ftBlob);
      ExecSQL;
   end;
end;

PD: Incluso podrías valerte de un TOpenDialog para escoger la imagen.