[darkamerico]

Saludos a todos, he hecho una pequeña aplicacion donde los usuarios pueden grabar documentos de Word pegandolos en un componente TRXRichEdit, la primera parte de la aplicacion funciona perfectamente, sin embargo, deseo agregar la opcion que puedan editar y actualizar el campo blob. Pero al realizar la actualizacion luego ya no puedo ver el documento, al parecer lo borra.

La estructura de la tabla llamada: Borrador es la siguiente:

Código SQL [-]
CREATE TABLE `borrador` (
  `id_documento` int(11) NOT NULL,
  `anio` varchar(4) NOT NULL,
  `mes` varchar(2) NOT NULL,
  `asunto` varchar(60) NOT NULL,
  `identidad_fk` int(11) NOT NULL,
  `documento` longtext NOT NULL,
  `fecha_Gen` varchar(10) NOT NULL,
  PRIMARY KEY (`id_documento`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8;

El campo que contiene los datos del documento es documento.

Ahora veremos el codigo que he colocado para grabar en dicho campo y que si funciona:

Código Delphi [-]
procedure TForm4.btnGrabarBorradorClick(Sender: TObject);
var
  posPunto, idNuevoBorrador:integer;
  Contenido: TStringStream;
begin
  if (cboEntidad.Text<>'Seleccionar...') and (txtAsunto.Text<>'') then
  begin
    Contenido := TStringStream.Create('');
    try
      doc.Lines.SaveToStream(Contenido);
      q_CalcIDBorrador.Close;
      q_CalcIDBorrador.Open;
      if(length(q_CalcIDBorrador.FieldByName('NuevoIDBorrador').AsString)=0) then
        idNuevoBorrador:=1
      else
        idNuevoBorrador:=q_CalcIDBorrador.FieldByName('NuevoIDBorrador').AsInteger;

      q_INSBorrador.Close;
      q_INSBorrador.Params[0].AsInteger:=idNuevoBorrador;
      q_INSBorrador.Params[1].AsString:=copy(DateToStr(Date),7,4);
      q_INSBorrador.Params[2].AsString:=copy(DateToStr(Date),4,2);
      q_INSBorrador.Params[3].AsString:=trim(txtAsunto.Text);
      posPunto:=pos('.',cboEntidad.Text);
      q_INSBorrador.Params[4].AsInteger:=StrToInt(copy(cboEntidad.Text,1,posPunto-1));
      q_INSBorrador.Params[5].AsBlob:=Contenido.Bytes;
      q_INSBorrador.Params[6].AsString:=DateToStr(Date);
      q_INSBorrador.ExecSQL;
      doc.Lines.Clear;
      cboEntidad.Text:='Seleccionar...';
      txtAsunto.Text:='';
    finally
      Contenido.Free;
    end;
  end
  else
    ShowMessage('Dejo Campos Vacios!');
end;

Finalmente, veremos el codigo del actualizar que no funciona:

Código Delphi [-]
procedure TForm4.btnActualizarClick(Sender: TObject);
var
  Contenido: TStringStream;
begin
  Contenido := TStringStream.Create('');
  doc.Lines.SaveToStream(Contenido);
  q_ActualizarBorrador.Close;
  q_ActualizarBorrador.Params[0].AsBlob:=Contenido.Bytes;
  q_ActualizarBorrador.Params[1].AsInteger:=gridMisBorradores.DataSource.DataSet.Fields[0].AsInteger;
  q_ActualizarBorrador.ExecSQL;
end;

El componente q_ActualizarBorrador tiene la siguiente sentencia SQL:

Código SQL [-]
UPDATE borrador
SET documento=:Borrador
WHERE id_documento=:IDBorrador

Los parametros son:
:Borrador > BLOB IN
:IDBorrador > INTEGER IN

Gracias por la atencion amigos.

Un Abrazo