Campos Blob con MySQL

[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:

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:

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:

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:

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

[Casimiro Notevi]

Preguntas:
¿En mysql los campos blob se declaran como longtext?
`documento` longtext NOT NULL,

¿En la propiedad bytes está el contenido del stream?
q_INSBorrador.Params[5].AsBlob:=Contenido.Bytes;

[darkamerico]

En realidad todo el codigo que he colocado funciona, graba el documento en formato RTF, por eso es longtext, solamente encuentro el problema cuando deseo actualizar.

[darkamerico]

Para aquellos que les interese aqui esta el codigo fuente del proyecto. Estoy usando la libreria UNIDAC v4.5.9 para la conexion y consultas y he trabajado en Delphi 2010.

http://www.2shared.com/file/sURUWZT7/GestionDocumentos.html

Gracias aprecio la ayuda.

Americo