Appelé depuis intraweb un webservice

Version imprimable

10/12/2008, 15h17
Maglight

Appelé depuis intraweb un webservice
J'ai un GROS pb.
J'ai fait un webservice dont l'une des fonctions est de me retourner du texte afin de tester que cela fonctionne. Je souhaite envoyer à cette fonction du texte et en récupérer. J'ai le code suivant dans le webservice WS_Test.exe :
Code:

1 2 3 4 function TPlanning.TestMsg(const aMessage: string): string; begin Result := 'Demande du Web :' + aMessage + chr(13) + chr(13) + 'Réponse du WS : Coucou, je suis est là !!!'; end;
Mon pb est de savoir comment depuis mon projet intraweb appeler testmsg.
J'ai mis le code suivant sur un clic de bouton mais c'est vraiment bête car je lui demande d'aller à l'adresse en question au travers de la commande gotoURL avec le paramètre 'Test allez-retour' mais à aucun moment je ne récupère les données :
Code:

1 2 3 WebApplication.goToURL( 'http://nom_de_mon_serveur/webserv/WS_Test.exe?' + chr(13) + 'Test Allez-Retour...');
Help, je suis vraiment perdu.
Merci d'avance.
10/12/2008, 15h54
skywaukers

Bonjour,

Utilise les composants indy httpclient pour faire une requète à ton serveur en http et récupérer la valeur pour l'afficher.

@++
Dany

J'essai d'utiliser idHTTP1 qui est de type IdHTTP1: TIdHTTP
mais je n'y arrive pas.
J'ai le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 with IdHTTP1.Create(Application) do try try Get('http://nom_de_mon_serveur/webserv/WS_Test.exe/testmsg?Test Allez-Retour...'); except on e: Exception do iwlabel16.Caption := 'Erreur'; end; finally Free; end;
Avez-vous une idée de la syntaxe que je devrais utiliser?
:cry:

Je viens de modifier mon code en prenant exemple sur http://delphi.developpez.com/faq/?page=indy_idhttp
mais j'ai toujours le même pb :

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
procedure TMainForm.btnTestClick(Sender: TObject);
var Fs : TFileStream;
begin
  Fs := TFileStream.Create('c:\test.txt',fmCreate);
  try
DownloadHTTP('http://nom_de_mon_serveur/webserv/WS_Test.exe/testmsg?Allez-Retour...',TStream(fs));
  finally
    Fs.Free;
  end;
end;
 
procedure TMainForm.DownloadHTTP(const AUrl : string; out DestStream: TStream);
begin
  with TIdHTTP.Create(Application) do
  try
      try
        Get(AUrl,DestStream);
      except
        On e : Exception do
         WebApplication.ShowMessage('Erreur');
      end;
  finally
      Free;
  end;
end;

J'ai le message Erreur qui apparait. car lors du Get, je passe dans la gestion d'erreur. ma syntaxe doit être fausse (ça c'est sur) mais je ne trouve pas la bonne.
Mon fichier test.txt donne

Code:

1
2
3
4
5
...
<h1>La page est introuvable</h1>
Il se peut que la page que vous recherchez ait été supprimée, ait changé de nom ou soit momentanément indisponible.
<hr>
...

Help:cry:

11/12/2008, 08h18
Maglight

Cela "marche" maintenant. j'avais une erreur dans mon adresse.
Cela me met dans le fichier txt l'ensemble des procédures et fonctions de mon webservices.
Mais cela me pose un pb car c'est du téléchargement et pas de l'exécution.
Il me faut executer WS_Test.exe qui me renvoi du texte.
Soit je fais une erreur de syntaxe, soit je n'utilise pas le bon objet.
???:cry:
11/12/2008, 09h08
skywaukers

Bonjour,

ah, ok désolé j'ai lu trop vite, c'est un webservices que tu veux appeler, il faut donc utiliser les composants du panel webservices de Delphi 7 (à partir de la version pro). Pour les exemples je sais qu'il y a des projets démo fournis avec Delphi. Là je ne pourrais pas trop t'aider car perso j'utilise la suite RemObjects pour tout ce qui est webservices. J'avais essayé ces composants, mais il y a longtemps et de ce que je me souviennes ce n'est pas bien compliqué à mettre en œuvre.

@++
Dany
11/12/2008, 16h59
Maglight

J'ai réussi sous delphi6.
Je suis allé sur le web en saisissant l'adresse de mon webservice.
J'ai récupéré le WSDL de celui-ci et dans delphi, j'ai fait Fichier/Nouveau/ServicesWeb/ImportateurWSDL en sélectionnant mon fichier WSDL.
J'ai ensuite la syntaxe du type:

Code:

WebApplication.showmessage(GetITest(False, '').TestMsg('Test Allez-Retour...'));

et cela marche :yaisse2:
Merci de votre aide.