Discussion :

[bleuerouge]

Bonjour , j'ai écris un webservice avec visual studio 2008 en C#, depuis un navigateur le Web service fonctionne parfaitement.
Hors depuis mon application en PERL, bien que j'arrive effectivement à l'appeller (et a récuperer une reponse), je n'arrive pas a lui passer les paramettres, ceux-ci restent toujours desperement à la valeur NULL.

Mon code PERL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!c:/Perl/bin/perl
 
#
# Appel des librairies
#
use DBI();
use CGI;
use SOAP::Lite;
 
$service = SOAP::Lite
		->uri('http://localhost')
		->proxy("http://localhost:2897/cpam.asmx")
		->service('http://localhost:2897/cpam.asmx?WSDL');		
 
$test = "test";
print "test retour : ". $service->Test($test) ."<br/>";

Appelle cette méthode en c# :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
[WebMethod]
        public string Test(string test)
        {
            if (string.IsNullOrEmpty(test))
            {
                test = "vide";
            }
 
            return test;
        }

Me retourne désesperement vide.

[Gold.strike]

Tu as réussi finalement?
Je suis moi aussi "bloqué" avec mon code perl et mon web service.

J'ai suivi un tutoriel pour implémenter un web service en java, ca se fait comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
use SOAP::Lite;
$service = SOAP::Lite -> uri('urn:QuotationService')
		   -> proxy('http://10.45.X.X:8080/soap/servlet/rpcrouter');
$result = $service -> getAllQuotations() -> result();
$i = -1;
while ( ref $result->[++$i] )
{
print "$result->[$i]{'text'} ($result->[$i]{'author'})\n";
}

-> ca marche parfaitement bien!!!

Par contre, je ne vois pas comment implémenter mon web service en C#. Voici un extrait du code, pour simplifier au maximum :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
namespace CalcService
{
    [WebService(Namespace = "http://localhost/")]
    [WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]
    [ToolboxItem(false)]
    public class CalcService : System.Web.Services.WebService
    {
 
        [WebMethod (Description="WebMedhod Hello World")]
        public string HelloWorld()
        {
            return "Hello World";
        }
    }
}

J'essaie de reprendre l'implémentation de bleuerouge, pour mon webservice, dans le fichier perl :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
use SOAP::Lite;

$service = SOAP::Lite
		->uri('http://10.45.X.X')
		->proxy('http://10.45.X.X:3114/CalcService.asmx')
		->service('http://10.45.X.X:3114/CalcService.asmx?op=HelloWorld');

-> j'obtiens le message d'erreur suivant :

Service description 'http://10.45.X.X:3114/CalcService.asmx?op=HelloWorld' can't be loaded: 500 Can't connect to 10.45.X.X:3114 (connect: Connection refused)

Si j'enleve la ligne en gras, je n'ai plus de message d'erreur. C'est donc au niveau de l'implémentation du service en lui même que je bloque...

[Gold.strike]

Ce problème est en parti corriger, il s'agissait d'un problème sous IIS pour le Web Service.

Cependant, je suis maintenant confronté à un autre problème.
Mon Web Service est stocké sur un serveur web, et disponible via IIS à l'adresse :
http://monserveur.test.fr:901/CalcService.asmx

Mon script perl est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
use SOAP::Lite;
 
my $service = SOAP::Lite
	->uri('http://monserveur.test.fr/')
	->proxy('http://monserveur.test.fr:901/CalcService.asmx')
	->service('http://monserveur.test.fr:901/CalcService.asmx?WSDL');
 
print "retourne :". $service->HelloWorld() ."\n";

Quand je teste ce script sur mon poste local sous windows, j'obtiens bien :

retourne :Hello World

Cependant, lorsque je le teste sur un deuxième serveur sous linux, il ne semble pas accéder correctement au Web Service, car j'ai seulement :

retourne :

J'ai testé avec plusieurs ports, et cela ne change rien...
De même je pouvais accéder normalement à un Web Service Java depuis le serveur Linux...

[bleuerouge]

Bonjour, non je n'ai malheureusement pas réussit, si tu as des message à transmettre tu peut invoquer des méthodes sans paramètre. (j'arrive à traiter invoquer les méthode mais les paramètres sont toujours vide).

Si jamais tu trouves, n'hésite pas à m'expliquer ta démarche.

Bonne chance ...

[Gold.strike]

Non, je n'ai pas réussi à passer des paramètres à mes fonctions

[Gold.strike]

Nouveau problème...
Alors que ca marchait sans paramètres jusqu'a maintenant, j'ai une erreur quand je lance mon script précédent :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
my $service = SOAP::Lite
	->uri('http://localhost/')
	->proxy('http://localhost:3114/CalcService.asmx')
	->service('http://localhost:3114/CalcService.asmx?WSDL');
 
print "alors :". $service->HelloWorld() ."\n";

J'ai maintenant ce message :

C:\soap\perl>perl HelloWorld-localhot3114.pl
Service description 'http://localhost:3114/CalcService.asmx?WSDL' can't be loade
d: 503 Service Unavailable

Je ne comprends pas...