Exportacion a XML

[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.

[Wbarrantes]

pos la verdad, en este momento, ya no me queda piedra sin revisar... al menos hasta donde mi "malicia indigena" alcanza...

inicailmente pense que podria estar cortando la cadena por el tamano del

Código Delphi [-]
SourceBuffer := StrAlloc(1024);

por lo que lo triplique...

Código Delphi [-]
SourceBuffer := StrAlloc(4096);

pero el resultado es el mismo...

estoy en un 98% convencido que el problema viene dado por el Stream, lo que me tiene chichoso, es que el problema no parece tenerlo nadie mas en este foro... pero si cambio de equipo y lo intento de nuevo, yo sigo teniendo problemas...