Client Soap VB

Version imprimable

Client Soap VB

Bonjour,

Je souhaite faire un client SOAP avec Visual Basic, et appeler des services de mon serveur soap développé en Python avec un serveur http CherryPy.

Voici le code de mon client :

Code:

1
2
3
4
5
6
7
8
9
10
 
Dim client As MSSOAPLib.SoapClient
client = New MSSOAPLib.SoapClient
client.ClientProperty("ServerHTTPRequest") = True
client.mssoapinit("http://192.168.99.155:9001/ir_model/wsdl")
Try
  Console.Write(client.fields_get())
Catch ex As Exception
  Console.Write(ex)
End Try

Je reçois l’erreur

Citation:

System.ArgumentException: La valeur n'est pas comprise dans la plage attendue.

Le serveur soap reçoit bien la demande et renvoie la réponse !

Le wsdl:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
  <?xml version="1.0" encoding="utf-8" ?> 
- <definitions xmlns:plnk="http://schemas.xmlsoap.org/ws/2003/05/partner-link/" xmlns:tns="soapserver.soapwebservice.Ir_model" xmlns:typens="soapserver.soapwebservice.Ir_model" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns="http://schemas.xmlsoap.org/wsdl/" targetNamespace="soapserver.soapwebservice.Ir_model" name="Ir_model">
- <types>
- <schema targetNamespace="soapserver.soapwebservice.Ir_model" xmlns="http://www.w3.org/2001/XMLSchema">
  <xs:element name="fields_getResponse" type="tns:fields_getResponse" /> 
- <xs:complexType name="fields_get">
  <xs:sequence /> 
  </xs:complexType>
- <xs:complexType name="fields_getResponse">
- <xs:sequence>
  <xs:element name="fields_getResult" type="xs:string" /> 
  </xs:sequence>
  </xs:complexType>
  <xs:element name="fields_get" type="tns:fields_get" /> 
  </schema>
  </types>
  <message name="fields_get" /> 
- <message name="fields_getResponse">
  <part name="fields_getResponse" element="tns:fields_getResponse" /> 
  </message>
- <portType name="Ir_model">
- <operation name="fields_get" parameterOrder="fields_get">
  <documentation /> 
  <input name="fields_get" message="tns:fields_get" /> 
  <output name="fields_getResponse" message="tns:fields_getResponse" /> 
  </operation>
  </portType>
- <plnk:partnerLinkType name="Ir_model">
- <plnk:role name="Ir_model">
  <plnk:portType name="tns:Ir_model" /> 
  </plnk:role>
  </plnk:partnerLinkType>
- <binding name="Ir_model" type="tns:Ir_model">
  <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http" /> 
- <operation name="fields_get">
  <soap:operation soapAction="fields_get" style="document" /> 
- <input name="fields_get">
  <soap:body use="literal" /> 
  </input>
- <output name="fields_getResponse">
  <soap:body use="literal" /> 
  </output>
  </operation>
  </binding>
- <service name="Ir_model">
- <port name="Ir_model" binding="tns:Ir_model">
  <soap:address location="http://192.168.99.155:9001/ir_model/wsdl" /> 
  </port>
  </service>
  </definitions>

Merci d’avance pour votre aide.

29/04/2011, 16h22
Nathanael Marchand

Ca serait pas du VBA ou VBS?
Sinon, pourquoi ne pas passer par WCF plutot que par une librairie qui n'est plus supportée?
02/05/2011, 11h47
Delnir
Bonjour,

je tente avec une autre méthode pour appeler les webservices
Code:

1 2 3 4 5 Dim service As New ServiceReference1.SoapServerClient Dim res As String res = service.test Console.Write(res)
Mais voilà le problème :

Citation:

Avertissement: Au moins l'un des arguments pour 'ISAXXMLReader.getBaseURL' ne peut pas être marshalé par le marshaleur runtime. Ces arguments seront passés en tant que pointeur et peuvent nécessiter la manipulation de code unsafe.

comment régler ce problème ?
02/05/2011, 12h00
Pol63

Citation:

Envoyé par Nathanael Marchand

Sinon, pourquoi ne pas passer par WCF plutot que par une librairie qui n'est plus supportée?

wcf fait partie du framework 3 et permet d'utiliser la norme SOAP
02/05/2011, 12h33
Bluedeep

Citation:

Envoyé par Pol63

wcf fait partie du framework 3 et permet d'utiliser la norme SOAP

Ben, c'est en substance ce que lui répondait Nathanael : qu'il n'y avait pas lieu d'utiliser les librairies MSSOAPLib quand WCF fait ça très bien.
02/05/2011, 13h16
Pol63

Citation:

Envoyé par Bluedeep

Ben, c'est en substance ce que lui répondait Nathanael : qu'il n'y avait pas lieu d'utiliser les librairies MSSOAPLib quand WCF fait ça très bien.

en substance oui, mais j'ai explicité ^^
02/05/2011, 13h32
Bluedeep

Citation:

Envoyé par Pol63

en substance oui, mais j'ai explicité ^^

Remarque que vu l'ambiance ces derniers jours y'a en effet interêt à explicationner :D
02/05/2011, 14h29
Delnir

WCF si j'ai bien comprit, ne correspond pas à ce que je recherche car celui ci nécessiterai de retoucher le serveur et de connaitre à l'avance les services du côté client via une interface.

Je cherche à avoir un équivalent de la bibliothèque suds pour python en .NET .

Pouvez vous me dire à quoi est dût ce problème?

Citation:

Avertissement: Au moins l'un des arguments pour 'ISAXXMLReader.getBaseURL' ne peut pas être marshalé par le marshaleur runtime. Ces arguments seront passés en tant que pointeur et peuvent nécessiter la manipulation de code unsafe.
02/05/2011, 14h33
Bluedeep

Citation:

Envoyé par Delnir

WCF si j'ai bien comprit, ne correspond pas à ce que je recherche car celui ci nécessiterai de retoucher le serveur et de connaitre à l'avance les services du côté client via une interface.

Non, SOAP étant standardisé et, par essence, destiné à l'interopérabilité entre systèmes hétérogènes (interopérabilité qui se paye d'ailleurs cher en terme de ratio payload sur charge de protocole), le choix d'une techno coté client n'a aucun impact coté serveur et inversement.

Citation:

Je cherche à avoir un équivalent de la bibliothèque suds pour python en .NET .

Connais pas.

Merci pour l'aide !

Code:

1
2
3
4
5
6
7
8
9
Imports System.ServiceModel
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_OK.Click
        Dim service As New ServiceReference1.SoapServerClient
        Console.Write(service.test())
    End Sub
End Class

J'ai bien l'appel sur mon serveur mais je n'ai rien côté client ...

02/05/2011, 15h45
Nathanael Marchand

Citation:

Envoyé par Delnir

du code

Ben euh oui mais tu as un projet winform et tu écris dans la console? C'est soit un projet console et tu écris dans la console ou un projet winform et tu écris dans un composant (textbox par exemple)

Oui c'est juste un test qui me permet de voir le retour dans la fenêtre de sortie.

Si tu préfère:
Code:

1 2 3 4 5 6 7 8 9 10 Imports System.ServiceModel Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_OK.Click Dim service As New ServiceReference1.SoapServerClient TXT_VALUE.Text = service.test service.Close() End Sub ...
le problème c'est qui ne reconnait pas le type de retour de service.test qui est String et impossible de le convertir avec ctype en string.

Si je le convertit en objet puis en string ou que je fais une MsgBox il affiche la fenêtre sans rien.

02/05/2011, 23h16
Nathanael Marchand

Si tu regardes l'explorateur d'objet de Visual Studio, tu peux voir quel tête à le Proxy qui a été généré. C'est ici que tu peux vérifier les paramètres et types de retour des méthodes de ton service.
03/05/2011, 15h31
Delnir

Voilà ce que renvoie le serveur au client une fois la méthode appelée:

Code:

<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"><SOAP-ENV:Body><testResponse><testResult xsi:type="xs:string">coucou</testResult></testResponse></SOAP-ENV:Body></SOAP-ENV:Envelope>

mais impossible de récupérer les données (ici "coucou") malgré que nous ayons l'accès aux différentes composantes de la méthode ...

Toujours une erreur à la réception du message:

Citation:

erreur : Le type de contenu text/xml du message de réponse ne correspond pas au type de contenu de la liaison (application/soap+xml; charset=utf-8). Si vous utilisez un codeur personnalisé, vérifiez que la méthode IsContentTypeSupported est implémentée correctement. Les premiers 749 octets de la réponse étaient : « <SOAP-ENV:Envelope xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance" xmlns:plnk="http://schemas.xmlsoap.org/ws/2003/05/partner-link/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"><SOAP-ENV:Body><SOAP-ENV:Fault><faultcode>Server</faultcode><faultstring>'NoneType' object has no attribute 'startswith'</faultstring><detail>Traceback (most recent call last): File "/usr/lib/pymodules/python2.6/soaplib/wsgi_soap.py", line 224, in __call__ if methodname.startswith('"') and methodname.endswith('"'): AttributeError: 'NoneType' object has no attribute 'startswith' </detail></SOAP-ENV:Fault></SOAP-ENV:Body></SOAP-ENV:Envelope> ».

comment régler ce problème?

voilà le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Imports System.ServiceModel
 
Module Module1
 
    Sub Main()
        Dim epAddress As New EndpointAddress("http://192.168.99.185:8080?wsdl")
        Dim Client As New SoapServerClient(New WSHttpBinding(System.ServiceModel.SecurityMode.None), epAddress)
        Client.test()
 
    End Sub
 
End Module

app.config

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
<?xml version="1.0" encoding="utf-8"?>
<configuration>
    <system.diagnostics>
        <sources>
            <source name="System.ServiceModel.MessageLogging" switchValue="Warning, ActivityTracing">
                <listeners>
                    <add type="System.Diagnostics.DefaultTraceListener" name="Default">
                        <filter type="" />
                    </add>
                    <add name="ServiceModelMessageLoggingListener">
                        <filter type="" />
                    </add>
                </listeners>
            </source>
            <source name="System.ServiceModel" switchValue="Warning, ActivityTracing"
                propagateActivity="true">
                <listeners>
                    <add type="System.Diagnostics.DefaultTraceListener" name="Default">
                        <filter type="" />
                    </add>
                    <add name="ServiceModelTraceListener">
                        <filter type="" />
                    </add>
                </listeners>
            </source>
        </sources>
        <sharedListeners>
            <add initializeData="h:\documents and settings\n.bailly\mes documents\visual studio 2008\projects\consoleapplication1\consoleapplication1\app_messages.svclog"
                type="System.Diagnostics.XmlWriterTraceListener, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
                name="ServiceModelMessageLoggingListener" traceOutputOptions="Timestamp">
                <filter type="" />
            </add>
            <add initializeData="h:\documents and settings\n.bailly\mes documents\visual studio 2008\projects\consoleapplication1\consoleapplication1\app_tracelog.svclog"
                type="System.Diagnostics.XmlWriterTraceListener, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
                name="ServiceModelTraceListener" traceOutputOptions="Timestamp">
                <filter type="" />
            </add>
        </sharedListeners>
    </system.diagnostics>
    <system.serviceModel>
        <diagnostics>
            <messageLogging logEntireMessage="true" logMalformedMessages="true"
                logMessagesAtServiceLevel="true" logMessagesAtTransportLevel="true" />
        </diagnostics>
        <bindings>
            <basicHttpBinding>
                <binding name="SoapServer" closeTimeout="00:01:00" openTimeout="00:01:00"
                    receiveTimeout="00:10:00" sendTimeout="00:01:00" allowCookies="false"
                    bypassProxyOnLocal="false" hostNameComparisonMode="StrongWildcard"
                    maxBufferSize="65536" maxBufferPoolSize="524288" maxReceivedMessageSize="65536"
                    messageEncoding="Text" textEncoding="utf-8" transferMode="Streamed"
                    useDefaultWebProxy="true">
                    <readerQuotas maxDepth="32" maxStringContentLength="8192" maxArrayLength="16384"
                        maxBytesPerRead="4096" maxNameTableCharCount="16384" />
                    <security mode="None">
                        <transport clientCredentialType="None" proxyCredentialType="None"
                            realm="" />
                        <message clientCredentialType="UserName" algorithmSuite="Default" />
                    </security>
                </binding>
            </basicHttpBinding>
        </bindings>
        <client>
            <endpoint address="http://ip:port/?wsdl" binding="basicHttpBinding"
                bindingConfiguration="" contract="SoapServer" name="SoapServer" />
        </client>
    </system.serviceModel>
</configuration>

06/05/2011, 12h59
Nathanael Marchand

C'est une erreur sur le serveur python:

Citation:

File "/usr/lib/pymodules/python2.6/soaplib/wsgi_soap.py", line 224, in __call__ if methodname.startswith('"') and methodname.endswith('"'): AttributeError: 'NoneType' object has no attribute 'startswith'
06/05/2011, 14h07
Delnir

voilà ce que reçois le serveur (sous forme de dictionnaire python):

Code:

{'wsgi.multiprocess': False, 'CONTENT_TYPE': 'application/soap+xml; charset=utf-8', 'wsgi.multithread': True, 'SERVER_SOFTWARE': 'CherryPy/3.2.0 Server', 'SCRIPT_NAME': '', 'HTTP_VSDEBUGGERCAUSALITYDATA': 'uIDPo0afCPIKlHFLlRIENMxKewIAAAAAp6lXdzt+CUetF8SQP3sH789ETjtJ/ZhCoW7E5CFc0T0ACQAA', 'ACTUAL_SERVER_PROTOCOL': 'HTTP/1.1', 'wsgi.input': <cherrypy.wsgiserver.KnownLengthRFile object at 0x93f9c8c>, 'REQUEST_METHOD': 'POST', 'HTTP_HOST': '192.168.99.68:8080', 'PATH_INFO': '/', 'SERVER_PROTOCOL': 'HTTP/1.1', 'QUERY_STRING': 'wsdl', 'wsgi.version': (1, 0), 'HTTP_EXPECT': '100-continue', 'REQUEST_URI': '/?wsdl', 'CONTENT_LENGTH': '711', 'HTTP_CONNECTION': 'Keep-Alive', 'SERVER_NAME': u'service1', 'REMOTE_PORT': '2721', 'wsgi.run_once': False, 'wsgi.errors': <open file '<stderr>', mode 'w' at 0xb77a10d0>, 'REMOTE_ADDR': '192.168.99.52', 'wsgi.url_scheme': 'http', 'SERVER_PORT': '8080'}

En fait, le serveur dialogue en 'text/xml' alors que le client VB s'attend à une réponse en 'application/soap+xml'.

Est-il possible de modifier sur VB le 'CONTENT_TYPE' pour l'adapter au serveur ? Et si oui comment ?

PS1: avec SUDS, SOAPLIB (bibliothèques SOAP python) et SOAPUI cela marche ...
PS2: Si tu veux je peux te passer mon adresse MSN ou Skype en privé
06/05/2011, 15h33
Nathanael Marchand

Malheureusement c'est pas dans ce sens qu'il faut traffiquer!
La norme SOAP impose que le Content-Type retourné par une réponse SOAP doit être: Content-Type: application/soap+xml; charset=utf-8WCF respecte la norme, pas ton serveur apparament!
06/05/2011, 16h03
Delnir

Ok merci beaucoup pour ton aide !

Citation:

Envoyé par Bluedeep

Non, SOAP étant standardisé et, par essence, destiné à l'interopérabilité entre systèmes hétérogènes (interopérabilité qui se paye d'ailleurs cher en terme de ratio payload sur charge de protocole), le choix d'une techno coté client n'a aucun impact coté serveur et inversement.

je vois que ce n'est pas le cas :cry:, savez vous s'il est possible d'appliquer la norme WCF sur cherrypy ?