TWebBrowser : Intercepter les données envoyées

Version imprimable

01/06/2006, 14h27
Bruno13

TWebBrowser : Intercepter les données envoyées

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
01/06/2006, 15h04
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;
01/06/2006, 16h08
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

Voici ce que j'ai trouvé et qui fonctionne :

Code:

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;