Por favor active JavaScript en su navegador para ver este Centro de ayuda.

Centro de ayuda OfiPro

Navegación: Exportación de datos

Tratamiento de los datos con Delphi

 Scroll Anterior Inicio Siguiente Mas

 

Si Vd. trabaja con Delphi como lenguaje de programación, podrá manejar fácilmente, de forma externa a OfiPro, los ficheros XML exportados.

 

A continuación se muestra un ejemplo de tratamiento de datos de los ficheros XML en Delphi.

 

 

 

Notas sobre OfiPro

Proporcionamos estos ejemplos para que sirvan de guía a programadores externos para ayudarles en la tarea de tratar los datos exportados, pero no damos soporte sobre XML, Delphi, ni otros lenguajes o tecnologías de programación.

 

 

Para leerlo un fichero XML desde un programa en Delphi, utilice el componente TClientDataset:
 
ClientDataset.LoadFromFile('Articulos.xml');
 
 

 

Ejemplo de programa que lee el fichero Articulos.xml previamente exportado desde OfiPro, y graba los gráficos de los artículos en un fichero .jpg individual:

 
var
Path,
Referencia: string;
cds: TClientDataset;

fldReferencia: TField;
fldGrafico: TBlobField;

 
begin
 
// Sustituir Path por el adecuado...
Path := 'C:\Users\Administrador\Desktop\';
 
cds := TClientDataset.Create(nil);
try
 cds.LoadFromFile(Path+'Articulos.xml');
 
 fldReferencia := cds.FieldByName('REFERENCIA');

 fldGrafico := TBlobField(cds.FieldByName('GRAFICOS'));
 
 cds.First;
 while not cds.Eof do
  begin
   Referencia := fldReferencia.AsString;
 
   // No se ha tenido en cuenta que Referencia puede tener caracteres no validos como nombre de fichero
   // Sustituir la extension .jpg por la adecuada...
   fldGrafico.SaveToFile(Path + Referencia + '.jpg');
 
   cds.Next;
  end;
 
finally
 cds.Free;
end;
 
end;