Discussion :

[louay02]

Bonjour,

Je suis en train de tester la connexion via Web service vers une Platform qui fournit cette possibilité j’ai converti l’XML qui me permet d’utiliser les fonctions de la connexion et d’échange d’informations en unit sur Delphi mais j’ai pas pu fonctionné la première requête de m’application vers le server une erreur se produise « Acces violation at address…. »

J’ai fait la même chose sur l’utilitaire SoapUI et ca fonctionne parfaitement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ses="http://www.nortel.com/soa/oi/cct/types/SessionService" xmlns:typ="http://www.nortel.com/soa/oi/cct/types">
   <soapenv:Header/>
   <soapenv:Body>
      <ses:LogInToCCTServerRequest>
         <ses:authenticationLevel>
            <typ:username>My_User</typ:username>
            <typ:password>My_Password</typ:password>
            <typ:domain>My_Domain</typ:domain>
         </ses:authenticationLevel>
      </ses:LogInToCCTServerRequest>
   </soapenv:Body>
</soapenv:Envelope>

Quelqu’un a une aidé comment je peux régler cette anomalie ?

Cdt.

[ShaiLeTroll]

Le contenu du SOAP ne va pas nous être d'un grand secours pour le moment
Il faut commencer par générer le Wrapper à partir du WSDL, il fournit une interface et des objets TRemotable et l'instanciation du HTTPRIO (je suppose que c'est ce que vous appelez "j’ai converti l’XML en unit ")

Le problème est clairement l'utilisation incorrecte d'un objet
Soit non alloué
Soit une mauvais libération
Sans le code Delphi, je ne vois pas ce que l'on peut répondre à cela

[louay02]

le voici le code Delphi:

Code :

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

1
2
3
4
5
6
7
8
9
10
var
CCT_connect:LogInToCCTServerRequest;
resp:LogInToCCTServerResponse;
username,password,domain:string;
 
begin
CCT_connect.authenticationLevel.username:='My_User';
CCT_connect.authenticationLevel.password:='My_password';
CCT_connect.authenticationLevel.domain:='my_domain';
end;

[ShaiLeTroll]

CCT_connect n'est pas instancié ?
Surement une fonction GetLogInToCCTServerRequest qui doit être dans l'unité Wrapper généré

Je pense qu'il faudrait revoir d'abord les bases de Delphi sur le cycle de vie des objets et des interfaces (IRemotable) avant de vouloir utiliser un WebService

[louay02]

C'est la première fois que j'utilise le web service avec Delphi j'ai fait un changement sur mon code mais j'obtenu une erreur :

Code :

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

1
2
3
4
5
6
7
  aut:LogInToCCTServerRequest;
begin
 
  (HTTPRIO1 as UserService).LogInToCCTServer(aut);
  aut.authenticationLevel.username:='username';
  aut.authenticationLevel.password:='v';
  aut.authenticationLevel.domain:='domain';

l'erreur :

[ShaiLeTroll]

Dans le fichier PAS généré à partir du WSDL, il y a déjà une factory qui instancie un THTTRIO et retourne une interface prête à l'emploi
Votre problème n'est pas lié au WebService en Delphi mais à votre connaissance de base du langage Delphi
Vous n'avez toujours pas instancié l'objet utilisé, cela ne peut qu'échouer

Votre code devrait ressemble à quelque chose comme ça
Evidemment, n'ayant pas tous les éléments ma réponse ne peut être qu'approximative

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
 
var
  aut:LogInToCCTServerRequest;
  resp:LogInToCCTServerResponse;
begin
  aut := LogInToCCTServerRequest.Create();
  try
    aut.authenticationLevel.username:='username';
    aut.authenticationLevel.password:='v';
    aut.authenticationLevel.domain:='domain';
    resp := (HTTPRIO1 as UserService).LogInToCCTServer(aut);
    try
      // utilisation de resp
    finally
      resp.Free();
    end;
  finally
    aut.Free();
  end;
end;