Discussion :

[Maglight]

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 :

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

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 :

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

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.

[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

[Maglight]

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

Code :

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

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?

[Maglight]

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 :

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
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 :

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

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

[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.
???

[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

[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 :

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

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

et cela marche
Merci de votre aide.