Discussion :

[heid]

Bonsoir,
situation
Je souhaite pouvoir envoyer automatiquement un formulaire post via un twebbrowser. J'utilise donc un navigate ou j'envoi les postdada: un olevariant.

problème
Quand je sauvegarde cet olevariant via beforenavigate dans une autre variable olevariant déclarée en globale jarrive a renvoyer ce formulaire. Mais je ne sais pas comment sauvegarder cette valeure pour une utilisation future sans être obligé de naviguer avant.

question
Comment sauvegarder cet olevariant dans la source de mon code ou dans un fichier.



Merci d'avance.
D7 entreprise.

[rbag]

Je ne sais pas si ce code répond à ta solution mais ça permettrais de sauvegarder les valeurs à passer en PostData en chaîne...

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
 
var
 URL: WideString;
 Flags: OleVariant;
 TargetFrameName: OleVariant;
 PostData: OleVariant;
 Headers: OleVariant;
 tempStr: string;
 i: Integer;
begin
 Flags := 12;           // Do not use the cache
 TargetFrameName := ''; // Not '' to open a new browser window
 URL := 'https://dodaac.wpafb.af.mil/results.cfm?requesttimeout=1000';
 
 tempStr := 'Param1Name=value1&Param2Name=value2';
 PostData := VarArrayCreate([0, Length(tempStr) - 1], varByte);
 
  { copy the ordinal value of the character into the PostData array}
 for i := 1 to Length(tempStr) do
    PostData[i-1] := Ord(tempStr[i]);
 Headers := 'Content-Type: application/x-www-form-urlencoded' + #10#13;
 
WebBrowser1.Navigate (URL, Flags, TargetFrameName, PostData, Headers);

[heid]

Cela a solutioné mon problème et je t'en remercie .