Si quieren conocer acerca de \u00e9ste producto, su licencia de uso y las\u00a0limitaciones propias de la versi\u00f3n, les proporciono una lista de enlaces que\u00a0me parecen muy interesantes.<\/p>\n
- \n
- – Preguntas y Respuestas.<\/a><\/strong><\/em><\/li>\n
- – Matriz de caracter\u00edsticas<\/a>.<\/strong><\/em><\/li>\n
- – Delphi \/ C++Builder Starter \u30c1\u30e5\u30fc\u30c8\u30ea\u30a2\u30eb\u30b7\u30ea\u30fc\u30ba \u30b7\u30fc\u30ba\u30f32<\/a>.<\/strong><\/em><\/li>\n<\/ul>\n
Quiero\u00a0mencionar que la intenci\u00f3n de \u00e9sta entrada es la de mostrar que con \u00e9sta versi\u00f3n podemos comenzar a desarrollar soluciones reales y no solo el famoso \u00abHola Mundo\u00bb<\/strong><\/em>. Por supuesto al ser un producto gratuito tiene algunas limitaciones pero nada que nos evite hacer uso de nuestras capacidades y dar forma a aplicaciones de alto rendimiento.<\/p>\n
Para \u00e9sta entrada les sugiero que descarguen el programa\u00a0soapUI<\/a><\/em><\/strong> el cual es open source<\/em>\u00a0 y que nos facilitar\u00e1 la vida al generar un cliente para el\u00a0consumo de Servicios Web as\u00ed como\u00a0descargar e instalar\u00a0Delphi 10.2 Tokio Starter<\/em><\/strong><\/a>.<\/p>\n
Una de las limitantes de la versi\u00f3n Starter<\/em> es que no cuenta con el asistente\u00a0para la importaci\u00f3n del archivo WSDL<\/em><\/strong> el cual genera la unidad\u00a0que implementa los m\u00e9todos del Servicio Web<\/em> para su consumo\u00a0y aunque \u00e9sta unidad se puede obtener v\u00eda l\u00ednea de comandos he querido hacerlo con una soluci\u00f3n alternativa a trav\u00e9s de un proyecto llamado cURL<\/a><\/strong><\/em>\u00a0el cual est\u00e1 orientado a la transferencia de archivos y que\u00a0soporta varios protocolos como\u00a0FTP, FTPS, HTTP, HTTPS, TFTP, SCP, SFTP, Telnet, DICT, FILE y LDAP<\/strong><\/em>\u00a0entre otros.<\/p>\n
Cabe mencionar que \u00e9ste proyecto lo conoc\u00ed hace unos a\u00f1os, para ser exactos el 14 de Marzo de 2011, cuando\u00a0nuestro\u00a0amigo\u00a0Domingo Seaone<\/a><\/em><\/strong>\u00a0\u00a0public\u00f3 en el foro delphiaccess punto com<\/a><\/em><\/strong> una implementaci\u00f3n de \u00e9sta biblioteca desarrollando una unidad\u00a0con Delphi y que me ha\u00a0permitido\u00a0dar soluci\u00f3n a\u00a0varios requerimientos de clientes a lo largo de \u00e9stos 6 a\u00f1os que han pasado.<\/p>\n
Pues bien, comenzaremos por obtener los archivos XML de Request y Response del Servicio Web a trav\u00e9s de la aplicaci\u00f3n soapUI<\/em><\/strong>, para ello usaremos el Servicio Web del Banco de M\u00e9xico<\/em> para\u00a0consultar el tipo de cambio del peso frente al D\u00f3lar, el Euro, la Libra Esterlina y el Yen. La url del servicio web es la siguiente:<\/p>\n
http:\/\/www.banxico.org.mx\/DgieWSWeb\/DgieWS?WSDL<\/a><\/em><\/strong><\/p>\n
Creamos un nuevo proyecto SOAP seleccionamos el m\u00e9todo tiposDeCambioBanxico<\/em><\/strong> y\u00a0enviamos la petici\u00f3n, el Servicio Web nos regresar\u00e1 la informaci\u00f3n en un archivo soap XML conteniendo los diferentes tipos de cambio como se muestra en la imagen siguiente:<\/p>\n
![\"\"](\"http:\/\/delphienmovimiento.mx\/wp\/wp-content\/uploads\/2017\/04\/Starter-01-1024x553.png\")
<\/p>\nLa versi\u00f3n Starter de Delphi tampoco incluye el asistente XML Data Binding<\/strong><\/em> por lo que tenemos que construir\u00a0el REQUEST<\/strong><\/em> y el RESPONSE<\/strong><\/em> de forma manual, bueno, no todo en la vida es f\u00e1cil, pero veamos la situaci\u00f3n como una buena oportunidad\u00a0para aprender algo nuevo.\u00a0\ud83d\ude42<\/p>\n
Ya estamos listos para comenzar nuestro tutorial, como primer paso vamos a crear una clase que generar\u00e1\u00a0la estructura del mensaje de petici\u00f3n\u00a0SOAP<\/strong><\/em> para enviarla a trav\u00e9s de cURL<\/em><\/strong> al servidor del Servicio Web y serializar la respuesta SOAP para obtener (en este caso) \u00a0los tipos de cambio disponibles del peso mexicano contra otras monedas.<\/p>\n
La clase contendr\u00e1\u00a0las propiedades, variables y m\u00e9todos necesarios para el\u00a0consumo del Servicio Web como se muestra a continuaci\u00f3n.<\/p>\n
TRequestResponse = class<\/strong><\/em><\/p>\n
type\n\n TRequestResponse = class\n private\n xmlArch: IXMLDocument;\n envelopeSOAP: IXMLNode;\n\n Curl: TCURL;\n curlResult: CURLcode;\n curlError: string;\n\n Stream: TMemoryStream;\n StreamOut: TMemoryStream;\n\n function creaRequest: IXMLDocument;\n function enviaRequest(url, Post: AnsiString; out Reply: AnsiString): Boolean;\n function RecursiveFindNode(ANode: IXMLNode; const SearchNodeName: string): IXMLNode;\n function buscaTC(xml: IXMLDocument): TStrings;\n\n public\n function ConsultaTipoDeCambio(endPoint: AnsiString): TStrings;\n\n end;\n<\/pre>\n
El m\u00e9todo creaRequest<\/strong><\/em> genera el mensaje de petici\u00f3n SOAP<\/strong><\/em> utilizando el objeto IXMLDocument<\/strong><\/em> el cual se encargar\u00e1 de dar el formato adecuado\u00a0para poder enviarlo al servidor donde est\u00e1 alojado el Servicio Web que queremos consumir.<\/p>\n
function TRequestResponse.creaRequest: IXMLDocument;<\/strong><\/em><\/p>\n
function TRequestResponse.creaRequest: IXMLDocument;\nbegin\n xmlArch := NewXMLDocument;\n xmlArch.Encoding := 'UTF-8';\n envelopeSOAP := xmlArch.AddChild('soapenv:Envelope');\n with envelopeSOAP do\n begin\n Attributes['xmlns:ws'] := 'http:\/\/ws.dgie.banxico.org.mx';\n Attributes['xmlns:soapenv'] := 'http:\/\/schemas.xmlsoap.org\/soap\/envelope\/';\n Attributes['xmlns:xsd'] := 'http:\/\/www.w3.org\/2001\/XMLSchema';\n Attributes['xmlns:xsi'] := 'http:\/\/www.w3.org\/2001\/XMLSchema-instance';\n AddChild('soapenv:Header');\n with AddChild('soapenv:Body') do\n begin\n with AddChild('ws:tiposDeCambioBanxico') do\n begin\n Attributes['soapenv:encodingStyle'] := 'http:\/\/schemas.xmlsoap.org\/soap\/encoding\/';\n end;\n end;\n end;\n Result := xmlArch;\nend;\n<\/pre>\nCon \u00e9ste c\u00f3digo se\u00a0genera el mensaje SOAP necesario para realizar la petici\u00f3n al Servicio Web y que ser\u00e1 enviado por medio de cURL.<\/p>\n
Por supuesto que habr\u00e1 formas m\u00e1s efectivas de hacer esto, sin embargo \u00e9sta me parece a mi la m\u00e1s simple y controlada.<\/p>\n
<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<soapenv:Envelope xmlns:xsi=\"http:\/\/www.w3.org\/2001\/XMLSchema-instance\" xmlns:xsd=\"http:\/\/www.w3.org\/2001\/XMLSchema\" \n xmlns:soapenv=\"http:\/\/schemas.xmlsoap.org\/soap\/envelope\/\" xmlns:ws=\"http:\/\/ws.dgie.banxico.org.mx\">\n\t<soapenv:Header\/>\n\t<soapenv:Body>\n\t\t<ws:tiposDeCambioBanxico soapenv:encodingStyle=\"http:\/\/schemas.xmlsoap.org\/soap\/encoding\/\"\/>\n\t<\/soapenv:Body>\n<\/soapenv:Envelope>\n<\/pre>\n
A continuaci\u00f3n agregaremos la unidad creada por mi amigo Domingo Seoane<\/a><\/strong><\/em> la cual encapsula el m\u00e9todo para enviar la petici\u00f3n al Servicio Web, dicha unidad se llama uCurl.pas<\/a><\/strong><\/em> la cual public\u00f3 en DelphiAccess.<\/p>\n
![\"\"](\"http:\/\/delphienmovimiento.mx\/wp\/wp-content\/uploads\/2017\/04\/Starter-02.png\")
<\/p>\nA continuaci\u00f3n agregamos la funci\u00f3n para realizar\u00a0la llamada a dicha\u00a0unidad y que\u00a0llamaremos\u00a0enviaRequest<\/strong><\/em>. En \u00e9sta funci\u00f3n\u00a0necesitaremos la URL<\/strong><\/em> del Servicio Web y el Request<\/em><\/strong>\u00a0que hemos creado con la funci\u00f3n creaRequest<\/em><\/strong>, dicha funci\u00f3n regresar\u00e1 dos valores, uno de tipo out<\/strong><\/em> donde obtendr\u00e9mos el Response<\/strong><\/em> del Servicio Web y un boolean<\/strong><\/em>\u00a0que nos indicar\u00e1 si la funci\u00f3n fu\u00e9\u00a0procesada correctamente o no.<\/p>\n
function TRequestResponse.enviaRequest(url, Post: AnsiString; out Reply: AnsiString): Boolean;<\/strong><\/em><\/p>\n
function TRequestResponse.enviaRequest(url, Post: AnsiString; out Reply: AnsiString): Boolean;\n\n\/\/******************************************************************************\n function ReadFromStream(Buffer: PAnsiChar; Size, Count: Integer;\n Stream: TStream): Integer; cdecl;\n begin\n Result:= Stream.Read(Buffer^,Size*Count) div Size;\n end;\n\n function SaveToStream(Buffer: PAnsiChar; Size, Count: Integer;\n Stream: TStream): Integer; cdecl;\n begin\n Result:= Stream.Write(Buffer^,Size*Count) div Size;\n end;\n\n function MemoryStreamToString(M:TMemoryStream): AnsiString;\n begin\n SetString(Result, PAnsiChar(M.Memory), M.Size);\n end;\n\n procedure ErrorCurl(const mensaje: string);\n begin\n raise Exception.Create(mensaje);\n exit;\n end;\n\/\/******************************************************************************\n\nbegin\n Result:= false;\n Curl:= curl_easy_init;\n if Curl <> nil then\n try\n if curl_easy_setopt(Curl, CURLOPT_VERBOSE, TRUE) <> CURLE_OK then\n ErrorCurl('No se pudo asignar CURLOPT_VERBOSE.');\n if curl_easy_setopt(Curl, CURLOPT_USE_SSL, CURLUSESSL_ALL) <> CURLE_OK then\n ErrorCurl('No se pudo asignar CURLOPT_USE_SSL.');\n if curl_easy_setopt(Curl, CURLOPT_SSL_VERIFYPEER, FALSE) <> CURLE_OK then\n ErrorCurl('No se pudo asignar CURLOPT_SSL_VERIFYPEER.');\n if curl_easy_setopt(Curl, CURLOPT_URL, PAnsiChar(url)) <> CURLE_OK then\n ErrorCurl('No se pudo asignar CURLOPT_URL.');\n if curl_easy_setopt(Curl, CURLOPT_POST, 1) <> CURLE_OK then\n ErrorCurl('No se pudo asignar CURLOPT_POST.');\n if curl_easy_setopt(Curl, CURLOPT_READFUNCTION, @ReadFromStream) <> CURLE_OK then\n ErrorCurl('No se pudo asignar CURLOPT_READFUNCTION.');\n if curl_easy_setopt(Curl, CURLOPT_WRITEFUNCTION, @SaveToStream) <> CURLE_OK then\n ErrorCurl('No se pudo asignar CURLOPT_WRITEFUNCTION.');\n\n Stream := TMemoryStream.Create;\n StreamOut := TMemoryStream.Create;\n\n try\n with TStringList.Create do\n try\n Add(unicodeString(Post));\n SaveToStream(Stream);\n finally\n Free;\n end;\n Stream.Position:= 0;\n if curl_easy_setopt(Curl, CURLOPT_INFILE, Stream) <> CURLE_OK then\n ErrorCurl('No se pudo asignar CURLOPT_INFILE.');\n if curl_easy_setopt(Curl, CURLOPT_POSTFIELDSIZE, Stream.Size) <> CURLE_OK then\n ErrorCurl('No se pudo asignar CURLOPT_POSTFIELDSIZE.');\n Header := nil;\n Header := curl_slist_append(Header, 'SOAPAction: \"\"');\n Header := curl_slist_append(Header, 'Accept-Encoding: gzip, deflate');\n Header := curl_slist_append(Header, 'Content-Type: text\/xml;charset=UTF-8;');\n Header := curl_slist_append(Header, 'User-Agent: Apache-HttpClient\/4.1.1 (java 1.5)');\n try\n if curl_easy_setopt(Curl, CURLOPT_FILE, StreamOut) <> CURLE_OK then\n ErrorCurl('No se pudo asignar CURLOPT_FILE.');\n if curl_easy_setopt(Curl, CURLOPT_HTTPHEADER, Header) <> CURLE_OK then\n ErrorCurl('No se pudo asignar CURLOPT_HTTPHEADER.');\n\n curlResult := curl_easy_perform(Curl);\n\n if curlResult = CURLE_OK then\n begin\n Reply := MemoryStreamToString(StreamOut);\n curlError := '';\n result := true;\n end\n else begin\n curlError := curl_easy_strerror(curlResult);\n result := false;\n end;\n\n finally\n curl_slist_free_all(Header);\n end;\n finally\n Stream.Free;\n StreamOut.Free;\n end;\n finally\n curl_easy_cleanup(Curl);\n end;\nend;\n<\/pre>\n - – Matriz de caracter\u00edsticas<\/a>.<\/strong><\/em><\/li>\n
![\"\"](\"http:\/\/delphienmovimiento.mx\/wp\/wp-content\/uploads\/2017\/04\/Starter-03.png\")
<\/p>\n![\"\"](\"http:\/\/delphienmovimiento.mx\/wp\/wp-content\/uploads\/2017\/04\/Starter-04.png\")
<\/p>\n![\"\"](\"http:\/\/delphienmovimiento.mx\/wp\/wp-content\/uploads\/2017\/03\/gone.png\")
<\/p>\n