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

Código Delphi [-]
 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