Foros Club Delphi - DataSnap y XML

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Providers (https://www.clubdelphi.com/foros/forumdisplay.php?f=10)

- - DataSnap y XML (https://www.clubdelphi.com/foros/showthread.php?t=83610)

Hola Tengo el siguiente problema

estoy desarrollando varios métodos en DataSnap

y requiero que le parámetro sea un XML pero al parecer si yo coloco un cadena de String como PArametro y Otro String como Result y a este le asigno un XML el sistema me da error

Código Delphi [-]function GeneraDocumento(pXMLDocumento: String): String;

y si al llamarla le envio un XML

Cita:

<?xml version="1.0" encoding="UTF-8"?>
<PublishEDIInvoice xmlns:ns0="http://www.go2uti.com/canonical/nouns/20060605">
<IdeaSysHeader>
<InvoiceAcknowledge>
<InvoiceNumber>24024000005
</InvoiceNumber>
<InvoiceStatus>True
</InvoiceStatus>
</InvoiceAcknowledge>
</IdeaSysHeader>
</PublishEDIInvoice>

genera una exepcion

Hace falta información, tu solicitud es muy genérica, deberías poner algo de codigo (mas expliscito), para saber si tienes problemas en la asignación, o algo parecido.

Adicionalmente debes decirnos Cual es el mensaje de error y en que momento sale. Es un error en el cliente? en el servidor?

un salduo,

No genera ningún error. el código es tan simple como ese solo colocar un parámetro del tipo String en una funcion y al asignarle un texto XML el metodo simplemente se cierra no lo manda llamar

y si por el contrario regreso un texto XML la funcion no recibe el dato

en la siguiente funcion se pueden observar los dos detalles si le envias un texto XML y colocas un break point en vCadena := pIXMLDocumentoI; nunca se detenie y desde el navegador en Server Function Invoker simplemente se cierra la funcion
si por el contrario le mandas texto plano como "Hola" deberla de regresar el XML asignado al result y simplemente no regresa nada se cierra la funcion en Server Function Invoker

Cita:

function TServerMethodsI.GeneraDocumento(
pIXMLDocumentoI: String): String;
var
vCadena: String;
begin
vCadena := pIXMLDocumentoI;
Result := '<DocumentoI xmlns="http://www.go2uti.com/canonical/nouns/20060605"><Encabezado><Documento cFolio="12345"/></Encabezado><Detalle><DetalleDocumento cIdProdu01="25"/></Detalle></DocumentoI>';
end;

Saludos

Ok, tengo entonces la inquietud, ¿Como envias el XML?,

Lo lees desde un archivo? un stream?... lo cargas en un componente TXMLDocument...

Por un momento al ver tu codigo pense que estabas haciendo una asignación a la cadenade texto a partir de un Objeto io Interface tipo XMLDocument

Código Delphi [-]Cadena:= IXMLDocument

cuando deberías hacer una asignación algo asi como:

Código Delphi [-]Cadena:= IXMLDocument.XML

es solo una teoria, pues la definición de la función está bien...

El punto es que creo que debes estar teniendo un problema de tipos de datos... tambien es importante saber la versión de delphi por aquello de los cambios que tipos que hubo con Unicode a partir de la versión 2009

un saludo,

Delphi XE3

mira DataSnap genera una pagina de pruebas llamada "Server Function Invoker"

desde esa pagina puedes invocar los métodos

en este caso solo copio una cadena XML la del ejemplo y sucede lo que menciono

Claro que para llegar a una fncion tan sencilla primero a implementar completo la funcion dentro de delphi funciona la puedo asignar a un
IXMLDocument y trabajar con ella pero ya en el método no funcionaba fui quitando partes hasta llegar a lo mas basico

Saludos