Grabar richedit con formato en firebird

[chelard]

Hola amigos del foro:

Le estado dando vueltas por mucho tiempo y aun no logro hallar la forma de ingresar los datos de un richedit a un campo en firebird, aunque si logro recuperarlo con formato aun no logro guardarlo.

he intentado de varias formas a ver si alguien m ouede dar una mano
saludos y gracias

[chelard]

lo hice de la siguente manera para los que le pueda servir

sPrincipal := TMemoryStream.Create;
with dmDatos.qryModifica do begin

redDiagnostico.Lines.SaveToStream(sPrincipal);
sTemp:= getRTF(redDiagnostico);
if(sModo = 'Insertar') then begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO atenciones (HISTORIA, DOCTOR, FECHA,');
SQL.Add('PADECIMIENTO, EXPLORACION,TRATAMIENTO,');
SQL.Add('LABORATORIO, PENDIENTES, RECETA,');
SQL.Add('PRINCIPAL) VALUES(');

SQL.Add(txtHistoria.Text + ',' + InttoStr(iDoctor) +',''' + FormatDateTime('mm/dd/yyyy',txtFecha.Date) + ''',');
SQL.Add('''' + memPadecimiento.Text + ''',''' + memExploracion.Text + ''',''' + memTratamiento.Text + ''',');
SQL.Add('''' + memLaboratorio.Text + ''',''' + memPendientes.Text + ''',''' + redReceta.Text + ''',');
SQL.Add(':PRI )');


ParamByName('PRI').LoadFromStream(sPrincipal,ftBlob);


ExecSQL;

end;


Donde redDiagnostico es mi richedit.
Tambien tengo el campo a utilizara para el RICHEDIT de tipo BLOB segment size 80 y subtype 1.

[JosepGA]

hola,

y con un DBRichEdit tampoco te funciona sin tener que poner el código ?

[chelard]

No he intentado con un dbRichEdit, ya que todo lo estoy trabajando con codigo directamente. Aun no domino mucho el tema de los componenetes DBs

Gracias por la respuesta