Discussion :

[epeichette]

Bonjour,

Je suie en train de mettre en place un Web Service de type REST full. J'ai des connaisance minimal en ce qui concerne le protocole HTTP 1.1 pourriez vous m'éclairer sur ces points:

J'ai prévu de mettre des éléments d'identification a chaque requête dans l'en tête Authorization

en fait je compte données au client un login/password encoder en base64 du type :

cbzJJMDAwMDAwMDJtUGsyUDEwMDBQbWw5

y a t'il une longueur maximale de caractères a mettre dans cette en-tête?

Par ailleurs j'ai vu qu'il existait 2 méthodes d'authentification Basic et Digest (http://fr.wikipedia.org/wiki/HTTP_Authentification). A priori c'est la méthode basic que je vais employé mais

Authorization: Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ==

Mais je me demandais est ce qu'il faut obligatoirement que le mot "Basic" soit ecrite dans l'en tête et si oui pourquoi?

Merci de votre réponse

[ShaiLeTroll]

Pour ma part, j'ai aussi utilisé "Authorization: Basic", je pense que le mot clé Basic lui permet de savoir ce qu'il y aura ensuite ... j'aurais aussi tendance à dire qu'il est obligatoire ...

Sinon, tu utilise les Invokable\Remotable de Delphi généré à partir d'un WSDL ? ou tu vas tout faire à la main car ceci peut être à savoir :

Code :

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

1
2
3
4
5
6
7
procedure TFrm_Test_WS.HTTPReqResp_WSBeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
  s: string;
begin
  s := 'Authorization: Basic ' + EncodeLoginPW(HTTPReqResp.UserName, HTTPReqResp.Password);
  HttpAddRequestHeaders(Data, PChar(s), Length(s), HTTP_ADDREQ_FLAG_ADD);
end;

Code :

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

1
2
3
4
function TFrm_Test_WS.EncodeLoginPW(const ALogin, APW: string): string;
begin
  Result := EncdDecd.EncodeString(ALogin + ':' + APW);
end;

EncdDecd.EncodeString est en standard dans Delphi 7, bien caché mais disponible !

[VLDG]

j'ai sous Delphi 2010 le même problème

j'ai donc :
- importer mon wsdl
- poser un composant THTTPRIO
- lancer mon web service

Code :

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

  wsMCMS := GetMCMSPortType(False, edtURL.Text, HTTPRIO1);

- implémenter le beforepost de mon webnode qui est bien appeler comme tu l'as dit (je passe bien par l'évènement)

Mais j'ai toujours un beau message Authentication required

Y a t'il une feinte ?

[ShaiLeTroll]

C'est suprenant qu'en Delphi 2010 cela ne soit pas mieux qu'en D7 !

Ton serveur attend bien juste une Authentication basique, pas de certificat ou autre ?

par contre, GetMCMSPortType ne fait que créer l'interface, tu ne lance pas encore le webservice, c'est au moment d'apper une méthode de l'objet invokable récupéré que tu lance vraiment la requête

[VLDG]

je ne plante pas quand je fais le GetMCMSPortType mais quand je lance une methode

Code :

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

1
2
3
4
if wsMCMS.singleSms('', edtSMS.Text, mmText.Lines.Text, -1,-1,0) then
    ShowMessage('Oui')
  else
    ShowMessage('Non')