Xml-rpc

[Casimiro Noteví]

No tengo ni idea, nunca lo he usado

Puede que Dec o Seoane puedan ayudarte, Yo les enviaría un mensaje, por preguntar no pierdes nada.
Por cierto, la web de seoane es esta.

Siento no poder ayudar con esto, pero escapa casi por completo de mis conocimientos

[[gluglu]]

Por si a alguien le sirve alguna vez de ayuda ....

He encontrado esto : http://code.google.com/p/xmlrpc-test/ y he pinchado en esa página en el link de la Online Demo. Ahí funciona todo lo que pretendo, pero claro .... no es Delphi !

[mamcx]

xml-rpc no es un estandar fijo, es mas bien una idea de como se puede hacer. Osea, no existe un modelo preciso de como operarlo, al contrario de SOAP. Ademas, es mas popular entre los lenguajes script como python, ruby & php.

Con todo, xml-rpc es solo una capa SOBRE http. Hacer XML-RPC es cuestion de hacer HTTP, y luego parsear los XML. No es tan dificil como suena, y se puede hacer una implementacion cutre en un par de horas...

http://mail-archives.apache.org/mod_...l.gmail.com%3E

I don't believe we have explicitly tested Synapse with any XML-RPC
clients or services. However, XML-RPC is (as far as Synapse is
concerned) simply a POST of XML content to a URL. So Synapse will
treat this as a POX (plain old XML request). So the answer is yes.

Sin embargo, mira:

http://wiki.freepascal.org/Web_Service_Toolkit

De hacerlo a mano, lo haria con synapse. Es mucho mas facil con una libreria que NO es visual. Es el tipo de tareas donde RAD es mala idea.

Tambien puedes empezar a expandir tus horizontes y aprovecharte de tanto codigo que hay en *otros* lenguajes. A veces, simplemente lo mejor esta en otro lado .

Varias veces donde no he encontrado una solucion en X lenguaje, me pregunto en que lenguaje debe existir la solucion mas elegante, miro alli como lo hacen y luego me regreso a casa.

Por ejemplo, este es un cliente XML-RPC en python:

http://docs.python.org/library/xmlrpclib.html

Y codigo:

http://hg.python.org/cpython/file/2.7/Lib/xmlrpclib.py

P.D. Tambien podrias importar librerias de python usando http://mmm-experts.com/products.aspx?productid=3. Funciona muy bien, si no te importar desplegar la dll de python + archivos .py, o puedes encapsular el codigo en una linea de comandos e invocarlo en el background.


O sea, opciones es lo que hay!

[[gluglu]]

Bueno ....

Quiero escribir estas líneas adicionales para daros las gracias a todos los que habeis intervenido.

Finalmente conseguí enlazar con la librería RTC. No pongo el código porque al ser una librería específica no creo que tenga mucho sentido.

No contento con ello, me dije que tenía que ser posible hacer lo mismo con el componente TIdHTTP de las Indy que vienen con el propio Delphi.

Pues efectivamente, se puede y es INMEDIATO. Lo único que pasa, como siempre, es que hay que saber las dos o tres líneas que hay que poner para que funcione.

He hecho pruebas tanto con servidos http como con https y en el formulario de prueba tengo colocado el componente SSL de las Indy enlazado con el IdHTTP y en ambos casos funciona correctamente. Es decir, para página 'no SSL' no hace falta quitar expresamente el componente SSL.

El componente TIdHTTP lo coloco en el formulario, sin más, sin cambiar ninguna opción ni propiedad.

El misterio estaba en que existen varios métodos de hacer el Post con TIdHTTP. El que ahora mismo me está funcionando es el que hace uso de un StringStream, para que al parecer la conversión del código XML se realice adecuadamente.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  XMLRequest  : TStrings;
  XMLResponse : string;
  Strm        : TStringStream;
begin
 
  XMLRequest  := TStringList.Create;
  XMLRequest.Add('$?xml version="1.0"?$');
  XMLRequest.Add('$methodCall$');
  XMLRequest.Add('$methodName$procedure_al_que_quiero_llamar$/methodName$');
  XMLRequest.Add('$params$');
  XMLRequest.Add('$param$');
  XMLRequest.Add('$value$$string$valor$/string$$/value$');
  XMLRequest.Add('$/param$');
  XMLRequest.Add('$/params$');
  XMLRequest.Add('$/methodCall$');
 
  Strm := TStringStream.Create(XMLRequest.Text);
  XMLResponse := IdHTTP1.Post('https://nombre_servidor.com', Strm);

  XMLRequest.Free;
  Strm.Free;
 
end;

... y eso es todo.

... menudas vueltas que le tuve que dar !

Edito : Tengo que cambiar las etiquetas '<' y '>' de las líneas de código XML para que se vea algo en este hilo.

[Casimiro Noteví]

Me alegra que lo hayas conseguido

Estas cosas pasan a menudo, te tiras varios días o semanas para hacer algo y cuando lo acabas te dice el jefe: "¿y tanto tiempo para eso?, sin son 3 líneas".
Te dan ganas de mandarlo a... pero te aguantas

El problema es que no podemos saberlo TODO, hay que investigar, hacer pruebas, preguntar, etc. hasta encontrar el resultado.

Esta vez ha sido otro logro de tu parte, enhorabuena, y ahora a sacarle provecho

[[fjcg02]]

Buenas...
stoy intentando conectarme a una aplicación y no consigo entender del todo cómo conectarme.

Podrías indicarme cómo hacer lo siguiente?
llamar a la función "login" con los siguientes parámetros nombrebbdd, usuario, password

llamar a la función "execute" con los parámetros nombrebbdd, idconexion, password, parametro1,parametro2, parametro3

Sería algo así ?

Código Delphi [-]
  XMLRequest.Add('$methodName$login$/methodName$');
  XMLRequest.Add('$params$');
  XMLRequest.Add('$param$');
  XMLRequest.Add('$value$$string$bbdd$/string$$/value$');
  XMLRequest.Add('$/param$');
  XMLRequest.Add('$/params$');

  XMLRequest.Add('$params$');
  XMLRequest.Add('$param$');
  XMLRequest.Add('$value$$string$usuario$/string$$/value$');
  XMLRequest.Add('$/param$');
  XMLRequest.Add('$/params$');

  XMLRequest.Add('$params$');
  XMLRequest.Add('$param$');
  XMLRequest.Add('$value$$string$password$/string$$/value$');
  XMLRequest.Add('$/param$');
  XMLRequest.Add('$/params$');

  XMLRequest.Add('$/methodCall$');

  Strm := TStringStream.Create(XMLRequest.Text);
  XMLResponse := IdHTTP1.Post('https://nombre_servidor.com', Strm);

Gracias de antemano y un saludo