Exportacion a XML

[Wbarrantes]

Empezado por nejamube

Puedes utilizar una consulta en lugar de un DataSet ?

Creo tener idea de como corregir el problema, ¿ puedes poner el resultado que obtienes en el XML ?

¿Puedes poner los datos que son usados en el DataSet?

Gracias.

el resultado que me da el archivo XML es:

Código PHP:

< ? x m l   v e r s i o n = " 1 . 0 "   s t a n d a l o n e = " y e s " ? > < ! - -   G e n e r < M E T A D A T A < F I E L D   a t t r n a m e = " N o m b r e "   f i e l d t y p e = " < F I E L D   a t t r n a m e = " A p e l l i d o 1 "   f i e l d t y p e =< F I E L D   a t t r n a m e = " C e d u l a "   f i e l d t y p e = "< F I E L D   a t t r n a m e = " F U L L N A M E "   f i < / F I E< P A R A M S   D E F A U L T _ O R D E R = " 1 "   P R< / M E T A D A T A < R   N o m b r   A p e l l i d o 1 =   C e d u l a = " 0   F U L L N A M E = " A B C D E F G H / < R   N o m b r   A p e l l i d o 1 =   C e d u l a = " 1   F U L L N A M E = " A B C D E F G H / < R   N o m b r   A p e l l i d o 1 =   C e d u l a = " 1   F U L L N A M E = " A B C D E F G H / < R   N o m b r   A p e l l i d o 1 =   C e d u l a = " 1   F U L L N A M E = " A B C D E F G H / < R   N o m b r   A p e l l i d o 1 =   C e d u l a = " 1   F U L L N A M E = " A B C D E F G H / < R   N o m b r   A p e l l i d o 1 =   C e d u l a = " 1   F U L L N A M E = " A B C D E F G H / < R   N o m b r   A p e l l i d o 1 =   C e d u l a = " 2   F U L L N A M E = " A B C D E F G H / < R   N o m b r   A p e l l i d o 1 =   C e d u l a = " 9   F U L L N A M E = " A B C D E F G H / < R   N o m b r   A p e l l i d o 1 =   C e d u l a = " 9   F U L L N A M E = " A B C D E F G H / < / R O W D A T A > < / 


¿Puedes poner los datos que son usados en el DataSet?

a cuales datos te refieres?

el dataset ejecuta una consulta de la tabla Personas(para este ejemplo especifico), y contiene...

Código SQL [-]
SELECT [Nombre]
      ,[Apellido1]
      ,[Apellido2]
      ,[Cedula]
      ,[FULLNAME]
  FROM [Prueba].[dbo].[Persona]

pobre con los cambios de Neftali pero nada.. sigue igual... por cierto gracias por las prontas respuestas...

[Wbarrantes]

En cuanto a tu problema, es posible que esté a la hora de definir tipos de datos. Fíjate con no están ftWideString, ftLargeInt,...
He añadido esto al else:

Pues efectivamente no tengo contemplado el ftWideString, como podria agregarlo?

[Neftali [Germán.Estévez]]

Empezado por Wbarrantes

Pues efectivamente no tengo contemplado el ftWideString, como podria agregarlo?

En el Case:

Código Delphi [-]
  case fld.DataType of

Habría que ir añadiendo los que faltan; Por ejemplo, al final puedes poner:

Código Delphi [-]
    ftLargeInt: Result := '"i8"';
    ftWideString: Result := '"string" WIDTH="' + IntToStr(fld.Size) + '"';

[Wbarrantes]

ok, genial, ya agregue los valores que hacian falta, (por cierto de donde tomas la tabla equivalencia de los valores, podria serme util en un futuro...)...

Pero sigo teniendo el problema en el archivo generado... como que mete un espacio en blanco entre cada caracter, antes de escribir el archivo xml... y ademas lo corta...

por ejemplo la primera linea queda en el archivo

Código PHP:

< ? x m l   v e r s i o n = " 1 . 0 "   s t a n d a l o n e = " y e s " ? > < ! - -   G e n e r 


y deberia ser...

Código PHP:

<?xml version="1.0" standalone="yes"?><!-- Generated by SMExport -->

como pueden ver se corta en "Gener", no termina de escribir toda la sentencia "Generated by SMExport -->"... se que en esta linea esto no es importante, a exepcion de los reconocimientos de los creditos... pero es un ejemplo, pues hace lo mismo con el resto de lineas en el archivo...

[Neftali [Germán.Estévez]]

Empezado por Wbarrantes

...por cierto de donde tomas la tabla equivalencia de los valores, podria serme util en un futuro...

En mi caso de la ayuda de SQL Server, pero supongo que por internet si buscas deben estar.

En cuanto a los espacios no lo entiendo, porque eso lo añade esta línea que parece bastante "inofensiva".

  WriteString(Stream, '<?xml version="1.0" standalone="yes"?><!-- Generated by SMExport -->  ' +
                      '<DATAPACKET Version="2.0">');

[Wbarrantes]

si de echo alli tengo misdudas pues debugeando, la informacion entra nitida....

tengo office 2007 y windows XP, y Delphi 2010 (con licencia)... no veo que pueda estar fallando... y ya pobre el ejecutable en otras maquinas y nada...

WriteString

Código Delphi [-]
 
procedure WriteString(Stream: TFileStream; s: string);
begin
  StrPCopy(SourceBuffer, s);
  Stream.Write(SourceBuffer[0], StrLen(SourceBuffer));
end;

Write

Código Delphi [-]
function THandleStream.Write(const Buffer; Count: Longint): Longint;
begin
  Result := FileWrite(FHandle, Buffer, Count);
  if Result = -1 then Result := 0;
end;

de echo cuando trate de revisar el ejemplo para escribir en excell, tambien me dio este tipo de problemas... me ponia un caracter con signo de pregunta, entre cada caracter de la cadena del string, que deseabaguardar en una celda...

pero ya lo he probado, tambien en otras maquinas con configuraciones diferentes, lo que me lleva a pensar que podrian ser la unidades, mas bien...

[Neftali [Germán.Estévez]]

¿No estará relacionado con Unicode?
Lo digo por los 2 caracteres en lugar de 1.