[WIN32[[D7] Variables dans Url et problème de syntaxe

Version imprimable

22/11/2007, 04h32
hepha1970

[WIN32[[D7] Variables dans Url et problème de syntaxe

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:

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:

ShowMessage(Pseudo1);

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

j'ai bien tenté:

Code:

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

Code:

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
22/11/2007, 06h46
Qwazerty

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

Code:

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

A++
Qwaz
22/11/2007, 07h06
hepha1970

Merçi de ton aide Qwazerty :)

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

Encore Merçi

Amitiés Hepha1970

Code:

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:

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;

18/10/2010, 10h31
dacid

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

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.
18/10/2010, 10h45
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.

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

Code:

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.

18/10/2010, 10h54
dacid

Bonjour Paul,

Peux tu développer STP ?

Mon besoin est que l'utilisateur est sur son poste ou il n'y a ni apache ni IIS, qu'il valide un formulaire avec une mise en forme Web et que ses réponses soient sauvegardées dans un fichiers XML... Je ne vois pas d'autres solutions.

Sinon, est ce que quelqu'un sait Comment intercepter l'évènement "Validation d'un formulaire ?"
Y a pas un onFormSubmit, j'ai regardé. :lol:
18/10/2010, 11h12
Paul TOTH

Citation:

Envoyé par dacid

Bonjour Paul,

Peux tu développer STP ?

Mon besoin est que l'utilisateur est sur son poste ou il n'y a ni apache ni IIS, qu'il valide un formulaire avec une mise en forme Web et que ses réponses soient sauvegardées dans un fichiers XML... Je ne vois pas d'autres solutions.

Sinon, est ce que quelqu'un sait Comment intercepter l'évènement "Validation d'un formulaire ?"
Y a pas un onFormSubmit, j'ai regardé. :lol:

que je comprenne bien la question...

tu utilises un fichier HTML local pour créer un formulaire dont tu veux récupérer la saisie ?

c'est étonnant...mais pourquoi pas...

donc je vois deux approches à explorer
1) le composant www.pbear.com possède sans doute tout ce qu'il faut pour afficher le document HTML et les évènements qui vont bien...

2) créer un serveur web local (tant qu'on y est) pour recevoir la réponse du submit web :)
18/10/2010, 11h29
dacid

Paul,

En effet, tu as bien saisi le cas de figure.
Je n'ai pas la main sur le paramétrage du poste client, juste une appli qui doit en quelque sorte faire le taf d'un serveur web... Vu que le travail à faire n'est pas colossal, je devrais m'en tirer.

1) Qu'est ce que ce composant pourrait m'apporter de plus, vu que j'arrive maintenant à récupérer les valeurs postées ?

2) En effet, mais il existe une solution que j'envisageai en plan B: Un serveur apache portable: ZazouMiniWebServer C'est toujours bon à savoir que ça existe ;)

Merci pour ta participation. :ccool:
18/10/2010, 13h25
Paul TOTH

Citation:

Envoyé par dacid

Paul,

En effet, tu as bien saisi le cas de figure.
Je n'ai pas la main sur le paramétrage du poste client, juste une appli qui doit en quelque sorte faire le taf d'un serveur web... Vu que le travail à faire n'est pas colossal, je devrais m'en tirer.

1) Qu'est ce que ce composant pourrait m'apporter de plus, vu que j'arrive maintenant à récupérer les valeurs postées ?

pbear c'est du code 100% Delphi...avantage, ton exe fonctionnera quelque soit le navigateur du poste...inconvénient, il ne supportera "que" le code HTML au moment du build de ton executable.

Citation:

2) En effet, mais il existe une solution que j'envisageai en plan B: Un serveur apache portable: ZazouMiniWebServer C'est toujours bon à savoir que ça existe ;)

Merci pour ta participation. :ccool: