Discussion :

[hepha1970]

Bonsoir,

je tente d'envoyer par methode post mes identifiants (pseudo, et pass).
j'ai eu beau essayer de plusieures manières, je ne parvient pas à trouver
la syntaxe correcte.

Ceçi fonctionne...

Code :

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

WebBrowser1.Navigate('http://le_site.com/page.php?username=abcde&password=123456');

Mais...

j'aimerai remplacer "abcde" par le contenu d'une variable disons nomée "pseudo1"
et remplacer "123456" par le contenu d'une variable disons nomée "pass1".

Mes deux variables sont définies comme telles:
pseudo1 : String;
pass1 : String;

quand je teste le retour à l'aide de

Code :

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

ShowMessage(Pseudo1);

ou la valeur du pass.
Les valeurs contenues dans ces variables me sont retournées correctement.

j'ai bien tenté:

Code :

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

WebBrowser1.Navigate('http://le_site.com/page.php?username=(pseudo1)&password=(pass1)');

Code :

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

WebBrowser1.Navigate('http://le_site.com/page.php?username=('pseudo1')&password=('pass1')');

et d'autres methodes sans succès

j'en déduit donc que ma syntaxe ne doit probablement pas être correcte.

Un peu d'aide ne serait pas de refus, en vous en remerçiant d'avance.

Bonne soirée et Merçi à tous.

Amitiés Hepha1970

[Qwazerty]

SAlut
tu y etais presque c'est juste de la concatenation de chaine, je pense que comme cela ca fonctionnera

Code :

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

WebBrowser1.Navigate('http://le_site.com/page.php?username=' + pseudo + '&password=' + pass1);

A++
Qwaz

[hepha1970]

Merçi de ton aide Qwazerty

c'est exactement comme tu l'a indiqué, ça fonctionne a merveille

Encore Merçi

Amitiés Hepha1970

[Rayek]

Code :

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

WebBrowser1.Navigate('http://le_site.com/page.php?username=abcde&password=123456');

Ceci n'est pas un envoi en méthode Post des données, mais en méthode Get

Pour envoyer en méthode post il faut faire comme cela

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
26
27
28
29
 
var
  lst : TStringList;
  strPostData: string;
  URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
  i : integer;
begin
  lst := TStringList.Create;
  try
    lst.Add('username=' + Pseudo1);
    lst.Add('password=' + password);
    strPostData := '';
    for i := 0 to lst.Count -1 do
      strPostData := strPostData + lst.Strings[i] + '&';
    strPostData := Copy(strPostData,1,Length(strPostData) -1);
 
    PostData :=  VarArrayCreate([0, Length(strPostData) - 1], varByte);
    for I := 0 to Length(strPostData) -1 do
      PostData[I] := Ord(strPostData[i+1]);
 
    Url := 'http://le_site.com/page.php';
    Flags := 0;//EmptyParam;
    TargetFrameName := 0;//EmptyParam;
    Headers := 'Content-Type: application/x-www-form-urlencoded'#13#10;
 
    WebBrowser1.Navigate2(URL, Flags, TargetFrameName, PostData, Headers);
  finally
    lst.Free;
  end;

[dacid]

Super, c'est ce que je voudrait, mais dans l'autre sens...

Il y a moyen de récupérer les valeurs postées dans un formulaire du TWebBrowser ?

Mes recherches ne mènent à rien... Il faut dire que l'univers du oleVariant est un peu vastement flou.

[Paul TOTH]

encore une fois, il est inutile de passer par un TWebBrowser pour faire une requête HTTP, il y a des tas de composants qui le font très bien.

[dacid]

Bon, j'ai réussi à faire quelque chose qui a l'air un peu mac giver mais qui fonctionne.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
procedure TfrmMain.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
  function OleVariantToMemoryStream(OV: OleVariant): TMemoryStream;
  var Size: integer;
    Data: PByteArray;
  begin
    Result := TMemoryStream.Create;
    try
      Size := VarArrayHighBound (OV, 1) - VarArrayLowBound(OV, 1) + 1;
      Data := VarArrayLock(OV);
      try
        Result.Position := 0;
        Result.WriteBuffer(Data^, Size);
      finally
        VarArrayUnlock(OV);
      end;
    except
      Result.Free;
      Result := nil;
    end;
  end;
var ms: TMemoryStream;
  ss: TStringStream;
begin
  //ShowMessage('Coucou: '+WebBrowser1.OleObject.Document.forms.item(0).elements.item('txt2').value); //
  ss := TStringStream.Create('');
  try
    if Length(PostData) > 0 then begin
      ms := OleVariantToMemoryStream(PostData);
      ms.Position := 0;
      ss.CopyFrom(ms, ms.size);
      ss.Position := 0;
      ShowMessage(ss.DataString);
    end;
  finally
    ss.Free;
  end;
end;

Merci d'avance.