18 respuestas en este tema

[ginkaku]

Muy buenas a todos, recientemente logre configurar el iis y mi webservice creado con delphi, todo marcha de maravilla cuando hago una aplicacion cliente consume el webservice sin complicaciones. Pues bien ahora me gustaria llevar mi aplicacion cliente a otra PC dentro de mi red pero que ya no va a ser la pc servidor local y el iis. Brevemente lei sobre habilitar los puertos, el firewall, ect., pero no tengo conocimiento de esto y les agradeceria si me explicaran de la misma forma que sus tutoriales anteriores referentes a webservice. Un saludo gente! y gracias de antemano

[poliburro]

Bueno, será necesario lo siguiente:

Desde los equipos remotos deberás referenciar al webservice por el dsn del servidor o la ip.
en el servidor deberás habilitar en el firewall los puertos por los que atiende tu webservice.

[egostar]

Muy buenas a todos, recientemente logre configurar el iis y mi webservice creado con delphi, todo marcha de maravilla cuando hago una aplicacion cliente consume el webservice sin complicaciones. Pues bien ahora me gustaria llevar mi aplicacion cliente a otra PC dentro de mi red pero que ya no va a ser la pc servidor local y el iis. Brevemente lei sobre habilitar los puertos, el firewall, ect., pero no tengo conocimiento de esto y les agradeceria si me explicaran de la misma forma que sus tutoriales anteriores referentes a webservice. Un saludo gente! y gracias de antemano

Eso es fácil, te muestro una porción del tutorial Consumir WebService con acceso a Base de Datos en el Capí­tulo 4. Crear la aplicación Cliente donde se explica como habilitar una aplicación cliente para que funciones desde otros equipos.

 

Por último vamos a modificar nuestra unidad IwsClientes1 para que podamos modificar en tiempo de ejecución los valores de nuestro WSDL y la URL de nuestro Web Service lo cual nos será muy útil para ejecutar nuestra aplicación cliente desde otras computadoras ya sea en la Red Local o en Internet.

Cuando nuestra unidad IwsClientes1 nos generó las constantes mencionadas de esta forma:

delphi

function GetIwsClientes(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): IwsClientes;
const
  defWSDL = '[url]http://localhost/WSClientes/wsClientes.dll/wsdl/IwsClientes';[/url]
  defURL  = '[url]http://localhost/WSClientes/wsClientes.dll/soap/IwsClientes';[/url]
  defSvc  = 'IwsClientesservice';
  defPrt  = 'IwsClientesPort';

Lo que vamos a hacer es "convertir" las constantes defWSDL y defURL a variables para poder modificarlas en tiempo de ejecución y asignarlas a través de la lectura de un archivo INI y agregar varias unidades en el uses

delphi

uses SysUtils, IniFiles, Forms;
 
var
  IniFile: TIniFile;
  defWSDL,defURL : widestring; //Extraemos estas constantes para convertirlas
                               //en variables y poder manipularlas en tiempo de ejecución

Agregamos el código necesario para leer el archivo INI y para asignar los valores a dichas variables como se indica a continuación:

delphi

  IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'conf.ini');
  defWSDL := IniFile.ReadString('CONFIGURACION','WSDL','');
  defURL  := IniFile.ReadString('CONFIGURACION','URL','');
  IniFile.Free;

Esto deberá agregarse a la función:

delphi

function GetIwsClientes(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): IwsClientes;

Y finalmente la función deberá quedar de la siguiente forma:

delphi

implementation
 
uses SysUtils, IniFiles, Forms;
 
var
  IniFile: TIniFile;
  defWSDL,defURL : widestring; //Extraemos estas constantes para convertirlas
                               //en variables y poder manipularlas en "runtime"
 
function GetIwsClientes(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): IwsClientes;
const
  defSvc  = 'IwsClientesservice';
  defPrt  = 'IwsClientesPort';
var
  RIO: THTTPRIO;
begin
  IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'conf.ini');
  defWSDL := IniFile.ReadString('CONFIGURACION','WSDL','');
  defURL  := IniFile.ReadString('CONFIGURACION','URL','');
  IniFile.Free;
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as IwsClientes);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;

Para que esto funcione correctamente necesitaremos crear un Archivo INI de nombre conf.ini en el directorio de nuestra aplicación y deberá contener lo siguiente:

delphi

[CONFIGURACION]
WSDL="http://localhost/WSClientes/WSClientes.dll/wsdl/IwsClientes"
URL="http://localhost/WSClientes/WSClientes.dll/soap/IwsClientes"

Compilamos y ejecutamos nuestra aplicación cliente y si todo se ha realizado correctamente ya tenemos nuestra aplicación funcionando y consumiendo las funciones del Web Service.

 

Saludos

[ginkaku]

Gracias por las respuestas poliburro y egostar.... Haciendo esos pequeños cambios la aplicación cliente de prueba corre de maravilla en todas mis computadoras. Quisiera añadir para futuras consultas a este tipo de problemas que es muy importante manejar la teoria y conceptos que pocas veces leemos(soy de esos), si hubiera utilizado el nombre del servidor desde un comienzo todo hubiera sido mejor. he aqui un poco de mi codigo de prueba:
[cpp]namespace NS_ISumita {

_di_ISumita GetISumita(bool useWSDL, System::String addr, Soaphttpclient::THTTPRIO* HTTPRIO)
{
  static const char* defWSDL= "http://ginkaku:8850/.../wsdl/ISumita";
  static const char* defURL = "http://ginkaku:8850/.../soap/ISumita";
  static const char* defSvc = "ISumitaservice";
  static const char* defPrt = "ISumitaPort";
  if (addr=="")
    addr = useWSDL ? defWSDL : defURL;
  Soaphttpclient::THTTPRIO* rio = HTTPRIO ? HTTPRIO : new Soaphttpclient::THTTPRIO(0);
  if (useWSDL) {
    rio->WSDLLocation = addr;
    rio->Service = defSvc;
    rio->Port = defPrt;
  } else {
    rio->URL = addr;
  }
  _di_ISumita service;
  rio->QueryInterface(service);
  if (!service && !HTTPRIO)
    delete rio;
  return service;
}[/cpp]
Ya utilizando el nombre del servidor y el puerto previamente habilitado no queda mas nada por hacer como explicaba egostar en tutoriales pasados. Me parece excelente la sugerencia de usar un carchivo config.ini lo hare en este momento
Por si acaso añadire estos pasos para habilitar un puerto(en mi caso windows 7 y 8).-

1. te vas a inicio y escribis “firewall windows” y accedes a donde te muestra “firewall de windows”.
2. cuando se abre la ventana te dirigis hacia ” configuracion avanzada” ( a la izda en la barra).
3. se te abrira otra ventana y a la derecha marcas “reglas de entrada” y seleccionas la casilla ” nueva regla”.
4. ahora seleccionas “puerto” y das a siguiente.
5. después te dará a elegir entre el puerto tcp o udp ( estos puertos debes conocerlos y saber cual tenes que abrir para seguir) y en “puertos locales específicos” pones el puerto que deseas abrir.
6. le das a “permitir la conexión” y seguis.
7. ahora tenes que elegir el modo en el que queres que se aplique la regla, en la mayoría de los casos debe de ser privado.
8. por último, das un nombre y descripción del puerto que has abierto.

Sin nada mas que agradecrles rotundamente me despido, voy a seguir urgueteando WebServices que me facino rotundamente

[egostar]

Hola

Una de las ventajas de usar un archivo externo (por ejemplo un .INI) es que si el servicio web cambia de ubicacion por cualquier razón, sólo cambias la url del INI y todo funciona sin tener que echar mano de recompilaciones.

Digo, soy muy flojo y busco la manera de trabajar lo menos posible

Saludos

[egostar]

Ahora me he dado cuenta que estas usando C++, bueno, al final lo importante son los conceptos no el lenguaje

Saludos

[ginkaku]

ah si la prueba estaba echa en c++  , recien termine unos ABM hechos en delphi, sigo mas feliz que nunca. Como programo en 3 capas, aumentarle una capa mas para el Webservices no es nada, si puedo cuando termine podria subir un tuto de como implementar un ABM en 3 capas + la nueva capa Webservices  .
No quiero comenzar un nuevo tema dentro de un mismo hilo pero ahora los hare los clientes en delphi XE5 mobile con android; leyendo en la comunidad ya pensabas talves hacer un tuto de esto no egostar? jeje perdona la insdiscrecion jeje creo q muchos estamos anciosos de ver algo asi. Comentare los resultados mas adelante esperado la ayuda de la comunidad como lo han estado haciendo mcuhas gracias.

[egostar]

.......leyendo en la comunidad ya pensabas tal ves hacer un tuto de esto no egostar? jeje perdona la insdiscrecion jeje creo q muchos estamos anciosos de ver algo asi. Comentare los resultados mas adelante esperado la ayuda de la comunidad como lo han estado haciendo mcuhas gracias.

Estoy en eso , aunque hay algunos detalles que no he podido solventar y no he podido atender por algunos asuntos urgentes que se han presentado.

Saludos

[ginkaku]

Bueno al final del dia me complace decir que las pruebas fueron un exito!! Acabo de desarrollar una aplicación Cliente que consume Web Service en Delphi XE5 en android, usando Firemonkey Mobile Application. Siguiendo los pasos de tutoriales de "egostar", todo el procedimiento es el MISMO, esto se debe a la gran ventaje de XE5 de programar en delphi nuestras app android, sin llegar a hacer algun tipo de propaganda publicitaria, funciona perfectamente en mis dispositivos android. Actualmente hice un servicio de prueba de suma,resta,multiplicación y en android corre lo mas normal del mundo  . Me gustaria compartir imagenes o realizar un pequeño Tutorial (aunque por el momento no encontre la opcion de subir imagen o documento jejeje) pero vuelvo a recalcar que el procedimiento es el mismo explicado en tutos anteriores.
Lo unico nuevo que hice fue crear mi proyecto Firemonkey Mobile Application, con edits, botones, etc y posteriormente añadir un WSDL Importer, asignandole:
[html5]http://192.168.0.2:8850/Operaciones.dll/wsdl/IOperacion[/html5]
Tenga en cuenta que deben asignar el ip del servidor, intente con el nombre pero desde un dispositivo movil es necesario el ip. Y bueno asi funciona mi app cliente desde mi tablet y celular desde mi red LOCAL.

[apicito]

ginkaku y egostar, gracias por la información.
Una pregunta: ¿Como implementais la seguridad?. Yo tengo algún web service utilizando https con contraseña que hice siguiendo un tutorial de Danysoft, pero me pregunto si podría implmentarse utilizando certificados digitales y si alguien ha probado esto.
y otra: ¿No sería mejor utilizar para esto servicios REST con datasnap. Yo no conozco DataSnap y no sé cuales son las ventajas y desvantajas entre uno y otro.
Un saludo.

[egostar]

ginkaku y egostar, gracias por la información.
Una pregunta: ¿Como implementais la seguridad?. Yo tengo algún web service utilizando https con contraseña que hice siguiendo un tutorial de Danysoft, pero me pregunto si podría implmentarse utilizando certificados digitales y si alguien ha probado esto.
y otra: ¿No sería mejor utilizar para esto servicios REST con datasnap. Yo no conozco DataSnap y no sé cuales son las ventajas y desvantajas entre uno y otro.
Un saludo.

Que tal apicito

Nunca he creado un webservice bajo https, pero no debe ser diferente, incluso nada tiene que ver el webservice ya que sólo se está añaddiendo la capacidad de seguridad de SSL / TLS para las comunicaciones HTTP estándar.

Puedes ver una comparativa entre SOAP y REST aquí

Saludos

[poliburro]

Nunca he creado un webservice bajo https, pero no debe ser diferente, incluso nada tiene que ver el webservice ya que sólo se está añaddiendo la capacidad de seguridad de SSL / TLS para las comunicaciones HTTP estándar.

Has dicho bien amigo, recien acabo de liberar un desarrollo que corre bajo ssl y te confirmo que la seguridad no la implementa el recurso. La ecncriptación la hace el servidor y por tanto toda referencia que se haga a https hará que el servidor encripte todas las comunicaciones.

[egostar]

Bueno al final del dia me complace decir que las pruebas fueron un exito!! Acabo de desarrollar una aplicación Cliente que consume Web Service en Delphi XE5 en android, usando Firemonkey Mobile Application. Siguiendo los pasos de tutoriales de "egostar", todo el procedimiento es el MISMO, esto se debe a la gran ventaje de XE5 de programar en delphi nuestras app android, sin llegar a hacer algun tipo de propaganda publicitaria, funciona perfectamente en mis dispositivos android.

Que bien, un caso más de éxito que bien puede documentarse para futuras consultas

Actualmente hice un servicio de prueba de suma,resta,multiplicación y en android corre lo mas normal del mundo  . Me gustaria compartir imagenes o realizar un pequeño Tutorial (aunque por el momento no encontre la opcion de subir imagen o documento jejeje) pero vuelvo a recalcar que el procedimiento es el mismo explicado en tutos anteriores.

Lamento ésta limitación, pero es una regla de seguridad que implementamos para evitar la inyección de código de parte de un usuario recién ingresado, pero llegando a 10 mensajes ya tendrás acceso.

Lo unico nuevo que hice fue crear mi proyecto Firemonkey Mobile Application, con edits, botones, etc y posteriormente añadir un WSDL Importer, asignandole:
[html5]http://192.168.0.2:8850/Operaciones.dll/wsdl/IOperacion[/html5]
Tenga en cuenta que deben asignar el ip del servidor, intente con el nombre pero desde un dispositivo movil es necesario el ip. Y bueno asi funciona mi app cliente desde mi tablet y celular desde mi red LOCAL.

Un tip muy bueno, gracias

Saludos

[apicito]

Nunca he creado un webservice bajo https, pero no debe ser diferente, incluso nada tiene que ver el webservice ya que sólo se está añaddiendo la capacidad de seguridad de SSL / TLS para las comunicaciones HTTP estándar.

Gracias por constestar.
No me refería a https sino a la utilización de una clave de acceso como sistema de autentificación.
Mi pregunta es si alguien ha trabajado con certificados digitales en vez de contraseña en web services.
En lo que respecta a REST le hechare un vistazo al enlace que me pones pero me refería más a la utilización de datasnap, tecnología que desconozco, pero con la que entiendo que se accede directamente al servidor datasnap de acceso a datos y no a un servicio como seria el caso en SOAP.
Un saludo.

[egostar]

Nunca he creado un webservice bajo https, pero no debe ser diferente, incluso nada tiene que ver el webservice ya que sólo se está añaddiendo la capacidad de seguridad de SSL / TLS para las comunicaciones HTTP estándar.

Gracias por constestar.
No me refería a https sino a la utilización de una clave de acceso como sistema de autentificación.
Mi pregunta es si alguien ha trabajado con certificados digitales en vez de contraseña en web services.
En lo que respecta a REST le hechare un vistazo al enlace que me pones.
Un saludo.

Hola

Yo sólo he trabajado con autenticación a nivel del Header del SOAP, nunca con certificados.

Saludos

[g_ferrada]

Estimado Egostar

Agradeceré de antemano si puedes ayudarme.
Tengo una aplicación cliente que se conecta a un webservice para entregar un archivo XML. Era la primera vez que lo hacía, así que en una primera etapa, después de mucho indagar por los foros y tras muchas (muchas) horas de prueba y error, lo logré utilizando HTTPRIO.

En la segunda etapa, el administrador ha cambiado de http a https, solicita usuario y clave en el header, y ha modificado la estructura del webservice. Ocurre que ya no fue posible lograrlo con HTTPRIO, seguramente hago algo mal, pero me aparece una ventana de windows que me pide la clave y usuario para el ws. Después de horas de indagar en la red, encontré un ejemplo que utiliza HTTPReqResp, en el cual, todo lo que hago es:

delphi

var
  HTTPReqResp: THTTPReqResp;
  Stream: TMemoryStream;
  XMLEnvio: WideString;
begin
  XMLDocument1.Active:= True;
  XMLEnvio:= XMLDocument1.XML.Text;
 
  Stream := TMemoryStream.Create;
  Stream.Clear;
  HTTPReqResp := THTTPReqResp.Create(nil);
  HTTPReqResp.InvokeOptions := [];
  HTTPReqResp.Agent := 'Borland SOAP 1.2';
  HTTPReqResp.URL := 'https://<url del webservice>';
  //envias xmlEnvio y recibes un Stream:TMemoryStream
  HTTPReqResp.Execute(xmlEnvio,Stream);
  //Aquí tratas el stream
  SetString(XMLEnvio, pchar(Stream.Memory), Stream.size);
  MemoRespuesta.Lines.Add(#13#10 + FormatDateTime('dd-mm-yyyy hh:mm:ss',Now) + XMLEnvio);
  //****************************
  HTTPReqResp.Free;

Me pareció demasiado simple para ser verdad, pero lo cierto es que funcionó. El usuario y la clave están definidos en el XML. Con esto logro conectarme y recibir una respuesta apropiada a través del Stream (llevado a texto), la misma que recibo cuando pruebo el ws mediante SOAPUI... Con esto, ya estoy salvando mi pellejo.

Ahora bien, si pruebo enviando una clave incorrecta, en lugar de obtener el mensaje correspondiente via Stream, me aparece nuevamente la dichosa ventanita de windows, y, para peor, aun colocando los datos correctos, no me deja avanzar y vuelve a aparecer; la unica opción que queda es cancelar, con lo que aparece el mensaje:

Unauthorized (401) - 'https://<url del webservice>'

¿Sabes cómo puedo controlar el evento y mostrar mi propio mensaje evitando que aparezca la ventana de windows, o en su defecto, hacer que tome los valores que ingreso y completar la operación?

Y, tal vez algo más complicado... ¿Cómo es que HTTPReqResp me permite consumir el ws sin hacer referencia a ningun procedimiento ni función, como debe hacerse con HTPPRIO? De seguro que hago algo mal, pero me gustaría, si te interesa, revisar cuál sería la forma de hacerlo en HTPPRIO.
Cualquier información que necesites, solo indícalo.

Saludos y gracias.

[egostar]

Que tal, ¿tu hiciste el Servicio Web (Servidor) ?

Si es así necesitas agregar un evento que obtenga los datos del encabezado y actúes en consecuencia regresando algún mensaje.

Algo así

delphi

function ChecaUsuarioPassw(const encabezado: THeaderSecurity): wideString;
var
  vEncabezado: THeaderSecurity;
begin
  vEncabezado := THeaderSecurity.create;
  vEncabezado := encabezado;
 
  if ValidaUsuario(vEncabezado.Usuario, vEncabezado.Passw) then
  begin
    result := 'Bienvenido';
  end
  else begin
        result := 'Usuario o Contraseña incorrecta';
  end;
end;

Obviamente debes crear la función para validar el usuario ya sea que utilices alguna base de datos o datos fijos, asimismo debes de declarar la función ChecaUsuarioPassw() en la unidad de Interface. Asumo que creaste una clase donde incluiste los valores para el usuario y la contraseña mas o menos como lo estoy haciendo yo.

Si puedes proporcionarme la url de tu webService te podría ayudar mejor, claro, si eso fuese posible.

Saludos

[g_ferrada]

Egostar,
El webservice no lo construí yo, y tampoco tengo atribuciones sobre él. Sin embargo, cuando consumo el XML mediante SOAPUI, con una clave incorrecta en el header, sí recibo un mensaje apropiado (por SOAPUI). El tema es que cuando lo hago a través de mi aplicación cliente, ocurre lo que te explicaba en el post anterior (la ventana de windows, que me pide usuario y clave). Ni siquiera se disparan los eventos OnBeforePost, OnPostingData, OnReceivingData ni WSDLView (éste último ni siquiera imagino para qué sirve), estos eventos se disparan sólo una vez que logra la conexión (con usuario y clave correctos en el header del xml). A continuación copio el código que devuelve (por SOAPUI) el webservice ; el primer párrafo corresponde a la respuesta utilizando clave correcta, el segundo utilizando clave incorrecta.

delphi

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
   <soapenv:Header>
      <wsse:Security soapenv:mustUnderstand="1" xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
         <wsu:Timestamp wsu:Id="Timestamp-257" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
            <wsu:Created>2014-06-24T13:36:23.188Z</wsu:Created>
            <wsu:Expires>2014-06-24T13:41:23.188Z</wsu:Expires>
         </wsu:Timestamp>
      </wsse:Security>
   </soapenv:Header>
   <soapenv:Body>
      <Returns xmlns="http://www.intellego.com/sernapesca/">
         <Codigo>0</Codigo>
         <Descripcion>Recibido OK</Descripcion>
      </Returns>
   </soapenv:Body>
</soapenv:Envelope>
 
 
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
   <soapenv:Header>
      <wsse:Security soapenv:mustUnderstand="1" xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
         <wsu:Timestamp wsu:Id="Timestamp-256" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
            <wsu:Created>2014-06-24T13:35:49.012Z</wsu:Created>
            <wsu:Expires>2014-06-24T13:40:49.012Z</wsu:Expires>
         </wsu:Timestamp>
      </wsse:Security>
   </soapenv:Header>
   <soapenv:Body>
      <soapenv:Fault xmlns:axis2ns72="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
         <faultcode>axis2ns72:FailedAuthentication</faultcode>
         <faultstring>The security token could not be authenticated or authorized; nested exception is: 
	javax.security.auth.callback.UnsupportedCallbackException: Check failed : System error</faultstring>
         <detail/>
      </soapenv:Fault>
   </soapenv:Body>
</soapenv:Envelope>

Cuando uso clave correcta desde mi aplicación cliente, puedo manipular el contenido del mensaje que recibo desde el ws, pero con la clave incorrecta no alcanzo a llegar a ese punto. La URL del ws es:

https://pess.sernape...esembarque?wsdl

No sé si ahora expliqué mejor mi problema.
Si alguien puede darme cualquier sugerencia, se agradecerá.

[egostar]

Hola

Ya entendí el problema, ahora veré que es lo que hace enviando datos incorrectos y te comento los resultados, lo podré hacer en casa, por ahora estoy en el trabajo y no me es posible.

Saludos