7 replies to this topic

[jacapu]

Hola, tengo una tabla con filas que almacenan texto formateado en un dbrichedit y quería guardar las filas en un archivo de texto para poder importarlas desde otro ordenador, (compartir los datos de la tabla a nivel de registros).

En los campos normales ningun problema, pero el campo blob se me guarda en código de formato, un ejemplo:

 

{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 Verdana;}{\f1\fnil Verdana;}}

 

y lo que quiero es que al importar el registro de la tablaen otro ordenador vayan los datos del archivo de texto al campo blob manteniendo el formato que tenía al exportarlo.

¿Puede hacerse?. ¿Cómo?.

Gracias de antemano y saludos.

[Agustin Ortu]

Eh, no entiendo

 

Grabas el registro en un blob con el formato

 

Lees el registro y ya no tiene el formato?

 

No entiendo esta parte, podrias explicarlo mas claramente?

 

y lo que quiero es que al importar el registro de la tablaen otro ordenador vayan los datos del archivo de texto al campo blob manteniendo el formato que tenía al exportarlo.

 

 

[jacapu]

Hola Agustín,

Yo guardo el valor de cada campo de la fila en una línea del archivo de texto, ( Writeln(f,datocampo)  ), para el campo que contiene el valor del richedit igual.

Lo que se me guarda en la línea del archivo de texto es algo parecido al texto que muestro en el anterior mensaje en negrita, no el texto formateado tal como lo guarde en la tabla.

Lo que deseo es poder guardar el valor de los campos y el texto formateado en un archivo de texto para poder enviarlo vía internet, usb, etc. , como un archivo normal adjunto a un mensaje y importarlo posteriormente con el mismo texto formateado en la misma tabla, pero en otro ordenador que ya tiene la base de datos, ya que la aplicación debe permitir compartir registros de esta tabla vía internet.

Saludos.

[Agustin Ortu]

Ok ahora entiendo. Queres que al grabarlo en un archivo se vea con el formato de negrita, color, etc

 

En que tipo de archivo estas grabando?  Podes poner el codigo de grabado?

[jacapu]

Hola, lo que me interesa es que al importar el registro en otro ordenador el texto conserve el formato en el que estaba al guardarlo, negrita, color, etc.).

He hecho una prueba con un richedit en un proyecto a parte y al guardarlo si lo abro con WordPad el formato se mantiene y abriéndolo con el Bloc de Notas se ve el texto sin formato.

He probado pasando el texto a un dbrichedit, (invsiible en la aplicacion), y luego a un tmemorystream para asignarlo a un richedit, (tambien invisible), pero el texto del richedit se ve plano, se pierde el formato.

delphi

procedure TFCompartir.BExpEClick(Sender: TObject);
var
n,elemento:integer;
//contenido:TMemoryStream;
begin
     //contenido:=TMemoryStream.Create;
     SaveDialog1.Title:='Seleccionar la ruta del archivo del elemento a exportar';
     SaveDialog1.FileName:=ComboEl.Text;
     if SaveDialog1.Execute then
        begin
        Screen.Cursor:=crHourGlass;
        //archivo datos
        fichero:=SaveDialog1.FileName;
        AssignFile(f,fichero);
        //try
        ReWrite(f);
        WriteLn(f,' ');//linea en blanco
        WriteLn(f,'Versión 1.1.0.4');//programa
        WriteLn(f,' ');//linea en blanco
        WriteLn(f,DateToStr(Now));
        WriteLn(f,' ');//linea en blanco
        WriteLn(f,'DATOS');//datos elemento
        WriteLn(f,' ');//linea en blanco
        //datos elemento
        TElementos.First;
        if TElementos.FindKey([ComboAl.Text]) then
           begin
           WriteLn(f,IntToStr(TElementosCodigo.Value));
 
           .....
           .....
 
           WriteLn(f,FloatToStr(TElementosAZ2.Value));
           WriteLn(f,' ');//linea en blanco
           //medidas elemento
           QMedidas.Close;
           QMedidas.ParamByName('elemento').AsInteger:=TElementosCodigo.Value;
           QMedidas.Open;
           WriteLn(f,IntToStr(QMedidas.RecordCount));
           WriteLn(f,' ');//linea en blanco
           DM1.TMedidas.First;
           if QMedidas.RecordCount>0 then
              begin
              for n:=1 to QMedidas.RecordCount do
                 begin
                 //el valor del registro se calculara al importar
                 WriteLn(f,IntToStr(QMedidasElemento.Value));
 
                 ......
                 ......
 
                 WriteLn(f,IntToStr(QMedidasRef.Value));
                 QMedidas.Next;
                 end;//n
              end;//si QMedidas.RecordCount>0
           WriteLn(f,' ');//linea en blanco
           WriteLn(f,'FIN FICHERO');
           WriteLn(f,' ');//linea en blanco
           CloseFile(f);
           //gravar contenino dbrichedit prop en un archivo con el mismo nombre y extension prop
           try
           //DBRichEdit1.Lines.SaveToStream(contenido);
           //RichEdit1.Lines.LoadFromStream(contenido);
           //RichEdit1.Lines:=DBRichEdit1.Lines;
           fichero1:=ExtractFilePath(fichero)+ComboEl.Text+'_prop.txt';
           DBRichEdit1.Lines.SaveToFile(fichero1);//RichEdit1.Lines.SaveToFile(fichero1);        
           finally
           end;
           Screen.Cursor:=crDefault;
           end//si findkey elemento
        else
           ShowMessage('ERROR: No se ha encontrado el elemento seleccionado.');
        end;//savedialog1
end;

Te adjunto el código de guardado:

 

Attached Files

•  Codigo_01.txt   2.71KB   6 downloads

[enecumene]

Por lógica si lo abres en un notepad normal y corriente no te mostrará el formato, porque la misma es un editor sin formato, o sea, no es RTF como wordpad, office, openoffice, libreoffice y otros.

[Agustin Ortu]

No logro reproducirlo

delphi

{\rtf1\ansi\ansicpg1252\deff0\deflang11274{\fonttbl{\f0\fnil\fcharset0 Tahoma;}}
\viewkind4\uc1\pard\i\f0\fs16 RichEdit1\i0\par
\par
\strike RichEdit1\strike0\par
\par
\ul RichEdit1\ulnone\par
\par
}

Copia eso en un archivo .rtf y cargarlo en tu RichEdit a ver que pasa

El codigo que utilizo es 

delphi

procedure TForm1.FileOpen1Accept(Sender: TObject);
begin
  RichEdit1.Lines.LoadFromFile(FileOpen1.Dialog.FileName);
end;
 
procedure TForm1.FileSaveAs1Accept(Sender: TObject);
begin
  RichEdit1.Lines.SaveToFile(FileSaveAs1.Dialog.FileName);
end;

Puse un TRichEdit en el Form, un TActionList, cargo el TActionList con todas las acciones predefinidas para RichEdit (negrita, subrayado, etc)

 

Luego simplemente con invocar a RichEdit.Lines.Save/LoadFromFile el RichEdit siempre muestra con el formato correcto

[jacapu]

Hola Agustín, ya lo he solucionado.

Copié el texto que me indicaste en un RichEdit y salió tal como se muestra en tu mensaje.

He pasado de Streams y funciones de archivos y lo he resuelto con el método Assign de la propiedad Lines del RichEdit.

Parece ser que el DBRichEdit no pasa el formato al pasarlo a un RichEdit o a un archivo de texto.

Podría ser cosa de la base de datos, estoy usando AbsoluteDataBase y Delphi7. Tampoco me soporta el acceso al campo blob mediante la propiedad Value.

Básicamente lo que he hecho ha sido pasar el valor del campo blob a un RichEdit, (invisible al usuario), mediante el método Assign de su propiedad Lines y entonces lo he guardado en un archivo de texto mediante el método SavetoFile del RichEdit. Así he podido guardar el texto con el formato que tiene en la base origen.

Para importarlo simplemente cargar el archivo de texto en el mismo RichEdit mediante su método LoadFromFile y pasarlo al campo blob mediante el método Assign de su propiedad Lines. Ha ido perfecto y me ahorro contar las líneas del texto origen, que pueden variar según la fila y provocar error al leer el archivo origen en la importación.

No es muy técnico pero funciona.

De todos modos gracias por la ayuda.

Saludos.