Discussion :

[Higgins]

Bonjour,

J'utilise les comosants NetHTTPClient et NetHTTPRequest pour accéder à différents sites web.
Certains nécessitent une authentification via un formulaire, qui ne me pose pas de problème
Par exemple, pour le site 1, le formulaire est du type:

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
<form name="login" id="login" action="https://www.lesite1.com//login" method="post">
					<table><tr><td>Connexion&nbsp;:&nbsp;</td>
					<td>
						<input type="hidden" name="urlRedirection" id="urlRedirection" value="https://www.lesite1.com/">
					  	<div id="login">
						    <label for="login-field" class="label">E-mail</label>
						    <input id="login-field" type="text" name="login" title="E-mail" value=""  >
						</div>
						<div id="password">
						    <label for="password-field" class="label">Mot de passe</label>
						    <input id="password-field" type="password" name="password" title="Mot de passe" value="" >
						</div>
					</td>
					<td>
						<div id="submit">
						    <input type="submit" name="submit" value="Ok" tabindex="3" >
							<div>
						</div>
					</td></tr>
					</table>
				</form>

mon code qui fonctionne parfaitement a la forme suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
begin
  dummy:=tstringList.Create;
    dummy.AddPair('urlRedirection','https://www.lesite1.com') ;
    dummy.AddPair('login','XXXXXX');
    dummy.AddPair('password','YYYYY') ;
    response:= NetHTTPREquest1.post('https://www.lesite1.com/login',dummy);
 
     buffer:=response.ContentAsString;
end;

en revanche, pour un autre site, les propriétés "name" des input contiennent des crochets

Code :

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

1
2
3
4
5
6
7
8
9
 
<div class="form-field identifier">
 
				<input type="text" id="connection_login" name="connection[login]" required="required" placeholder="Identifiant" class="form-control white" />
			</div>
			<div class="form-field password">
 
				<input type="password" id="connection_password" name="connection[password]" required="required" placeholder="Mot de passe" class="form-control white" />
			</div>

et là, mon code semble ne plus fonctionner.
J'ai essayé

Code :

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

1
2
3
 
 dummy.AddPair('connection[login]','XXXXXX') ;
    dummy.AddPair('connection[password]','YYYYYY');

puis

Code :

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

1
2
3
 
 dummy.AddPair('connection_login','XXXXXX') ;
    dummy.AddPair('connection_password','YYYYYY');

et

Code :

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

1
2
3
 
 dummy.AddPair('login','XXXXXX') ;
    dummy.AddPair(password','YYYYYY');

mais sans succès. Est-ce qu'il y a une mise en forme particulière à faire?

[Paul TOTH]

y'a vraiment des gens qui ont des idées bizarres

je ne sais pas, mais pour ce genre de chose, tu peux regarder dans les outils de Chrome au niveau Réseau pour voir sous quelle forme c'est traité...car en fait je ne sais pas ce que ça donne

ensuite il faut voir comment le faire entrer dans Delphi, et pour ça j'utilise toujours un petit script PHP qui dump ce qu'il reçoit pour voir comment Delphi génère sa requête.

[Higgins]

Dans la partie "réseau" des outils , ces paramètres n'apparaissent pas dans la partie "headers". Je les vois dans la rubrique "Payload", sous la forme "connection[login] : XXXX' et sur l'URL brute, ils apparaissent aussi sous la forme connection%5Blogin%5D=XXXXX&connection%5Bpassword%5D=YYYYYY

J'ai essayé de remplacer les [] par %5B et %5D dans mes headers mais ça n'a rien changé
J'a bricolé une copie de la page de login en local pour que le "submit" pointe vers un de mes module web pour analyser les données dans l'évènement "WebModuleDefaultAction" mais Request.queryFields est vide (ce qui semble conforme à ce que je vois dans la partie "header" des outils réseau)

[pprem]

le coup des crochets, c'est probablement parce que la destination est en PHP qui gère ça à l'arrivée sous forme de tableau dans la réponse du $_POST "connexion"
(à la base ce truc était censé être utilisé pour les fichiers, pas pour faire n'importe quoi, mais bon, c'est le web...)

quand à gérer ça en Delphi, c'est probablement non pris en charge par l'encodeur de paramètres, m'est avis qu'un TODO sur QP sera le bienvenu, mais ça reste à vérifier

quoiqu'il en soit tes paramètres doivent s'appeler "connection[login]" et "connection[password]", tu n'as pas le choix, faut donc soit passer en direct le body (urlencodé) de la requête aux composants (qui ne le permettent peut-être pas), soit laisser en paramètres comme n'importe lesquels

[Paul TOTH]

ah tu dois passer par un content-type application/x-www-form-urlencoded

en regardant dans les sources de System.Net.HttpClient ça apparait dans THTTPClient.CreateFormFromStrings...qui n'est pas documenté

mais le code montre bien que les paramètres sont transformés sous la forme "nom1=value1&nom2=value2"

%5B et %5D c'est juste un encodage hexadécimal des [ ], Delphi est supposé le faire tout seul via TNetEncoding.URL.EncodeForm appelé justement dans CreateFormFromStrings

donc à priori tu dois passer ta StringList à la fonction CreateFormFromStrings pour avoir les paramètres à transmettre à cette version de Post()

Code :

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

1
2
function Post(const AURL: string; const ASource: TStream; const AResponseContent: TStream = nil;
      const AHeaders: TNetHeaders = nil): IHTTPResponse; overload;

[Higgins]

... à priori tu dois passer ta StringList à la fonction CreateFormFromStrings pour avoir les paramètres à transmettre à cette version de Post()

Code :

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

1
2
function Post(const AURL: string; const ASource: TStream; const AResponseContent: TStream = nil;
      const AHeaders: TNetHeaders = nil): IHTTPResponse; overload;

En fait, CreateFormFromStrings est appelée automatiquement par NetHTTPRequest.post et ça ne fonctionne pas. Du coup, je n'ai pas eu plus de succès en utilisant directement HTTPClient
Je vais laisser tomber ça pour l'instant, j'ai d'autres projets plus urgents.
Merci à tous les deux pour votre aide

[Paul TOTH]

ah oui bon ben je sais pas alors