TWebBrowser - FramesRésolu

Question

J'ai un petit probl&#232;me avec le TWebBrowser. D'abord deux fonctions que j'utilise

{Function recherchant le frame pour travaux ult&#233;rieurs}
function GetFrame(WebBrowser:TWebBrowser;FrameName:String):OleVariant;
var I:integer;
Begin
  if Webbrowser.OleObject.Document.Frames.Length <> 0 then
  begin
  for I:= 0 to WebBrowser.OleObject.Document.frames.Length -1 do
    begin
       if FrameName=WebBrowser.OleObject.Document.frames.item(I).name then
          Begin
            Result:=WebBrowser.OleObject.Document.frames.item(I).Document;
            Exit;
          End;
    End;
  End Else ShowMessage('NoFrames');
End;

{Function test : essaye d'afficher l'url  Rq:  Les trois lignes prises une &#224; une ont &#233;t&#233;s test&#233;es,
   aucune ne marche}
function LinkClick(Page:OleVariant):Boolean;
var I:Integer;
Begin
  {For I: =0 to Page.Document.links.Length-1 do
    Begin
         showmessage(Page.Document.links.Items(I).Href);
    End;}// = Text d'origine
    ShowMessage(Page.Script.Document.URL);
    ShowMessage(Page.Document.URL);
    ShowMessage(Page.URL);
End;

Appel: LinkClick(GetFrame(WebBrowser,'Index'));
         
   Je recois le message : "Op&#233;ration de Variant Incorrecte"
J'aimerai r&#233;cuper&#233;r la frame puis simuler diff&#233;rentes action : click, remplissage de form etc..
le probl&#232;me c'est que je n'arrive pas &#224; passer la frame en parametre (Page:OleVariant).

Si quelqu'un pouvait m'aider pour la fonction LinkClick.  Merci

gengiskhan1985 · Accepted Answer

C'est r&#233;gl&#233; : Je suis un imbecile ; ce n'etait pas LinkClick(GetFrame(WebBrowser,'Index')); mais LinkClick(GetFrame(WebBrowser,'Inhalt'));

Si on pouvait n&#233;anmoin me dire comment faire pour que le TWebBrowser ne charge pas les images (Je fait un programme qui navigue tout seul et il s'en fiche pas mal de savoir si il y a des belles images).

Q: Est-il possible de modifier un post que l'on a mis sois-m&#234;me sur le forum ? si oui comment ? Merci.

cs_Delphiprog · Answer

Il n'est pas possible de modifier un post apr&#232;s envoi.
Ton probl&#232;me est r&#233;gl&#233; et tu as m&#234;me apport&#233; la r&#233;ponse, c'est tr&#232;s bien.

Si tu veux avoir une chance d'obtenir une r&#233;ponse &#224; ta nouvelle question, je te recommande de cr&#233;er une nouvelle question dans l'entr&#233;e du forum.
Cordialement 

<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.pourflorenceethussein.org

TWebBrowser - Frames

2 réponses

Votre réponse

Discussions similaires