Discussion :

[Bruno13]

Bonjour à tous,

Savez vous comment je peux intercepter les données qui sont envoyées lorsque
dans mon TWebBrowser je charge la page Google, je renseigne le champ mot-clé
et ensuite je clique sur Recherche.
Comment intercepter les données qui sont envoyées à ce moment là ?

Merci à tous

Bruno

[Bruno13]

Voici la réponse


procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
Edit1.Text := URL;
Cancel := True;
end;

[Bruno13]

J'ai maintenant un autre probleme, comment savoir si c'est une methode POST ou GET qui est envoyé ??

j'essaie d'afficher les POSTDATA mais hélas cela me plante une erreur.

je suis preneur pour une idée

Amitiés,
Bruno

[Bruno13]

Voici ce que j'ai trouvé et 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
function PostDataToString(const PostData: OleVariant): string;
var
  V: OleVariant;
begin
  V := Variant(TVarData(PostData).VPointer^);
  if VarType(V) = (varArray + varByte)
  then Result := PChar(TVarData(V).vArray.Data)
  else Result := '';
end;
 
procedure TMain.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
 
  if VarIsEmpty(PostData) or (VarToStr(PostData) = '') then exit;
 
  showmessage(PostDataToString(PostData));
 
//  Cancel := True;
end;