TWebBrowser et popup

Version imprimable

10/07/2007, 09h58
Ice-tea

TWebBrowser et popup

Bonjour a tous,
Est il possible d'afficher une popup dans le TWebbrowser, je m'explique : quand je click sur un lien qui pointe sur du javascript (ex href="javascript:popup('url' param) le Twebbrowser m'ouvre une page Internet Explorer, hors j'aimerais rester dans la fenetre principal.

J'ai essayer de passer l'url du popup dans le .navigate du Tweb, ca marche bien mais la page affiiché n'est pas exactement la meme que celle du popup.

Y'a t'il un moyen d'open un popup dans le TWebbrowser ??

c'est peut etre pas trés claire mais si quelqu'un pense pouvoir m'help j'réexpliquerais plus en detail

bonne prog a tous
10/07/2007, 10h15
ShaiLeTroll

tu peux dans onDocumentComplete, fait une modification du OleObject.Body.InnerText, avec un StringReplace tu change les lien type popup et lien simple ...
10/07/2007, 11h22
Ice-tea

est ce que ca reviendrais a faire un .navigate(url_popup) ?

En Gros ...

tient j'ai un truc pourri de ce genre

Code:

1
2
3
4
5
6
7
8
9
10
11
            HTMLStr := TWebBrowser(Sender).OleObject.Document.Body.InnerHTML;
            HTMLStr := StringReplace(HTMLStr, '<SCRIPT langage="Javascript">', '', [rfReplaceAll, rfIgnoreCase]);
            if CkbSupprimeEncombrantToutesImages.Checked then begin
               HTMLStr := StringReplace(HTMLStr, 'IMG', 'A', [rfReplaceAll, rfIgnoreCase]);
               HTMLStr := StringReplace(HTMLStr, 'src', 'href', [rfReplaceAll, rfIgnoreCase]);
            end;            
            try
               TWebBrowser(Sender).OleObject.Document.Body.InnerHTML := HTMLStr;
            except
               FichierLog('Except', 'CleanUp Doc', Exception(ExceptObject()).Message);
            end;

10/07/2007, 12h08
Ice-tea

jvais tester ta soluce se soir en rentran chez moi, mais jsuis pas sur quelle solutionne mon problème, le pb exactemnt n'est peut etre pas trés claire.

J'ai une url qui est afficher dans un popup qui me donne un certain resultat, d'un autre coté je navigue sur cette meme url avec le .navigate et la j'ai un autre résultat (simillaire sauf qu'il manque des infos qui sans elle, lors de la validation du formulaire, une erreur javascript et généré). En gros pour le moment si je click pas sur le lien j'ai pas la bonne page ...

J'avais lu ta premiére réponse mais pas percutter certaines choses, jpeux modifier le innerHTML comme ca ? déplacer, effacer des parties de code et le réafficher ? (pas de delphi au taff donc pas moyen de tester avt ce soir ... :( )

Bonne prog
10/07/2007, 12h09
Ice-tea

(jai poster mon avant dernier post avant d'avoir vu ta réponse)
10/07/2007, 12h19
Ice-tea

okayy jvoit le truc pour le replace dans le innerHTML jvasi tester ca ce soir, jsavais pas/ j'avais pas penser, qu'on pouvais modifier le innerHTML comme ca, ca m'aide enormément.

Merci good prog :)
10/07/2007, 15h48
Ice-tea

Relance, rebondissement Twebbrowser

Hey, j'ai peut etre une explication a mon problème mais j'ai rien pour compiler donc rien pour tester avant se soir :( , j'ai dit précedement que mon problème etait que quand je click sur un lien j'ai un page (dont l'url contien de parametres) qui s'affiche et quand je fait .navigate(url_du_lien) la j'ai pas le meme resultat il me manque des informations, et bien entendu ces informations sont les parametres passer dans lurl !!!! ne devrais je pas utiliser le parametre PostData de Navigate (dans lequelle je metterais les paramatres que j'ai dans l'url) ??? et ainsi j'aurais ma page qui s'afficherais dans mon TWeb avec toute les informations qu'il faut .

Tjrs bonne prog :)

Si tes params sont en Get, tu peux les poster sous la forme de URL?Param1=Truc&&Param2=Truc ...

Si tes params sont en Post, moi j'ai eu du mal, donc je génère un fichier HTML en Local, qui contient un formulaire comme ceci, qui me fait mon POST, car je n'ai pas réussi à mettre un string correct
Code:

1 2 3 4 5 6 7 8 9 10 11 <HTML> <HEAD> </HEAD> <BODY onLoad="Javascript:document.forms['FormAuto'].submit();"> <FORM action="http/command.php" name="FormAuto" method="POST"> <input type=hidden value="2" name="Param1"/> <input type=hidden value="25" name="Param2"/> <input type=submit value="Valider" name="Action"> </FORM> </BODY> </HTML>