Tbrowser capture d' url avant échange serveur
artaheranthares
Messages postés
3
Date d'inscription
jeudi 24 février 2005
Statut
Membre
Dernière intervention
9 novembre 2006
-
20 mai 2006 à 14:06
flo160fr Messages postés 157 Date d'inscription dimanche 19 novembre 2000 Statut Membre Dernière intervention 14 avril 2009 - 21 mai 2006 à 18:00
flo160fr Messages postés 157 Date d'inscription dimanche 19 novembre 2000 Statut Membre Dernière intervention 14 avril 2009 - 21 mai 2006 à 18:00
A voir également:
- "/Forumv2/g.php?url="
- Télécharger un fichier via le web ( a partir d'une url ) ✓ - Forum PHP
- Url precedent - Forum PHP
- Modifier une url apres clic - Forum PHP
- Url dynamique - Forum PHP
- Bloquer URL - Forum PHP
2 réponses
flo160fr
Messages postés
157
Date d'inscription
dimanche 19 novembre 2000
Statut
Membre
Dernière intervention
14 avril 2009
21 mai 2006 à 17:48
21 mai 2006 à 17:48
C'est tres simple,
dans l'évenement OnBeforeNavigate2 la variable URL contien l'adresse qui devrai etre envoyée, et la valeur Cancel qui peut enmecher la navigation vers cette URL...
Par exemple la procedure suivante récupere l'url, la copie dan un TEdit (TEdit1) et annule la naviguation :
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;
Ensuite, un TButton (Button1) envoi l'adresse contenue dans le TEdit (Edit1) quand on lui clique dessu... (adresse que tu poura donc modifier avant de cliquer sur le bouton) :
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text);
end;
(ici WebBrowser1 est le nom de ton TWebBrowser)
dans l'évenement OnBeforeNavigate2 la variable URL contien l'adresse qui devrai etre envoyée, et la valeur Cancel qui peut enmecher la navigation vers cette URL...
Par exemple la procedure suivante récupere l'url, la copie dan un TEdit (TEdit1) et annule la naviguation :
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;
Ensuite, un TButton (Button1) envoi l'adresse contenue dans le TEdit (Edit1) quand on lui clique dessu... (adresse que tu poura donc modifier avant de cliquer sur le bouton) :
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text);
end;
(ici WebBrowser1 est le nom de ton TWebBrowser)
flo160fr
Messages postés
157
Date d'inscription
dimanche 19 novembre 2000
Statut
Membre
Dernière intervention
14 avril 2009
21 mai 2006 à 18:00
21 mai 2006 à 18:00
A oui ^^' j'alai oublier.... pour le code dan l'évenement OnBeforeNavigate2... il faut fair en sorte de pouvoir le desactiver... pour pouvoir naviguer apres...
pour cela tu peut utiliser une variable globale
Var InterdirNav : Boolean;
{...}
procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
Edit1.Text := URL;
if InterdirNav = True then
Begin
InterdirNav := False;
end Else
Cancel := True;
end;
et pour le bouton tu met :
procedure TForm1.Button1Click(Sender: TObject);
begin
InterdirNav := False;
WebBrowser1.Navigate(Edit1.Text);
end;
(désolé pour cet oublie ^^')
si t'as des questions sur ce bout de code n'ésite pas a demander
pour cela tu peut utiliser une variable globale
Var InterdirNav : Boolean;
{...}
procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
Edit1.Text := URL;
if InterdirNav = True then
Begin
InterdirNav := False;
end Else
Cancel := True;
end;
et pour le bouton tu met :
procedure TForm1.Button1Click(Sender: TObject);
begin
InterdirNav := False;
WebBrowser1.Navigate(Edit1.Text);
end;
(désolé pour cet oublie ^^')
si t'as des questions sur ce bout de code n'ésite pas a demander
