Webbrowser (Tembbeded) - Unültige Variantenoperation

[sx2008]

Hier kommt etwas Code, mit dem du alle Form-Objekte im Browser in einem TreeView anzeigen kannst.
Das ist recht hilfreich bei der Fehlersuche und um die API des Webbrowsers besser zu verstehen:

Delphi-Quellcode:

procedure Browser2TreeView(WebBrowser: TWebBrowser; root:TTreeNodes);
var
  i,j, k :Integer;
  FormItem, Element, SubElement: OleVariant;
  child, child2, child3 : TTreeNode;
  s_type : string;
begin
   Assert(Assigned(WebBrowser));
   Assert(Assigned(root));

   root.Clear;

  //count forms on document
  for I:=0 to WebBrowser.OleObject.Document.forms.Length -1 do
  begin
    FormItem := WebBrowser.OleObject.Document.forms.Item(I);

    if VariantIsObject(FormItem.Name) then
       child := root.AddChild(nil, 'Form'+IntToStr(i)+': '+FormItem.Name.Name)
    else
       child := root.AddChild(nil, 'Form'+IntToStr(i)+': '+FormItem.Name);
    child.ImageIndex := 3;


    For j:= 0 to FormItem.Length-1 do
    begin
      try
         Element := FormItem.Item(j);
         child2 := root.AddChild(child, Element.Name+' = '+Element.Value);
         s_type := Element.Type;

         if s_type = 'submit' then
            child2.ImageIndex := 1
         else if s_type = 'text' then
            child2.ImageIndex := 0
         else if s_type = 'file' then
            child2.ImageIndex := 2
         else if s_type = 'hidden' then
            child2.ImageIndex := 4
         else if s_type = 'checkbox' then
            child2.ImageIndex := 5
         else if s_type = 'radio' then
            child2.ImageIndex := 6
         else if s_type = 'select-one' then
            child2.ImageIndex := 7
         else
            child2.ImageIndex := -1;

         child3 := root.AddChild(child2, 'Type='+s_type);
         child3.ImageIndex := -1;


         if s_type = 'text' then
         begin
            child3 := root.AddChild(child2, 'MaxLen='+IntToStr(Element.maxLength));
            child3.ImageIndex := -1;
         end
         else if s_type = 'select-one' then
         begin
            for k := 0 to Element.Options.Length-1 do
            begin
               SubElement := Element.Options.Item(k);
               child3 := root.AddChild(child2, SubElement.Text+ ' = <'+SubElement.Value+'>');
               child3.ImageIndex := -1;
            end;

         end;

      except
        on E:Exception do
         root.AddChild(child, E.Message);
      end;
    end;
  end;

   if root.Count > 0 then
      root.GetFirstNode.Expand(True);
end;

Der Aufruf dazu sieht so aus: Browser2TreeView(WebBrowser1, TreeView1.Items); Dem Treeview sollte eine Imagelist mit 8 Bildchen der Grösse 16 * 16 zugeordnet werden.
Du kannst den Code im Anhang in dein Clipboard kopieren und dann das Formular anklicken und in der IDE Bearbeiten->Einfügen wählen.

[gee21]

Hi SX

Danke vielmals für den Code.


if VariantIsObject(FormItem.Name) then

Er sagt: VariantIsObject UNdeklarierter Bezeichner. Wo / Als was kann ich das deklarieren? (Sorry bin noch ein Noob )

Das mit der TXT ist ja cool. Wusste ich gar nicht das dies so geht

[sx2008]

Zitat von gee21:

Er sagt: VariantIsObject UNdeklarierter Bezeichner.

Sorry, ich hatte vergessen die Funktion mitzugeben (einfach vor die Funktion Browser2TreeView() kopieren):

Delphi-Quellcode:

function VariantIsObject(const value:OleVariant):boolean;
begin
   result := (VarType(value) = varDispatch);
end;

[gee21]

Also habe mal folgendes gemacht

Mein Code läuft durch, dann kommt die Fehlermeldung mit Ungütige Variantenoperation Dann führe ich deine Funktion aus.

Dann steht in der Treeview nur: Form0:


Interessant ist, wenn ich den letzten Teil meines Codes der den Fehler auslöst deaktiviere, und dann dein Code per Button auslöse, kommt ebenfalls die Meldung: Ungütige Variantenoperation ?

[Volker Z.]

Hi gee21,

zeigt doch mal die Deklaration Deines TForm1, zumindest die Stelle an der der WebBrowser deklariert ist.

Gruß

[gee21]

Sooo also. Das ist der gesammte Code (Habe gerade erst angefangen mit dieser Form)
Ich weiss das die beiden Timer nicht gerade sehr optimal sind aber so lädt der Webbrowser zuerst 100% fertig bevor was versucht wird auszufüllen.

Obwohl ihr das sicher selber feststellt: Button1 läuft durch --> Timer1 --> Timer2 (Hier findet der Fehler statt)

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, ExtCtrls,
  ComCtrls, ImgList;

type
  TForm1 = class(TForm)
    webbrowser1: TEmbeddedWB;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    Label1: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    Edit7: TEdit;
    Label2: TLabel;
    TreeView1: TTreeView;
    ImageList1: TImageList;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

       function VariantIsObject(const value:OleVariant):boolean;
begin
    result := (VarType(value) = varDispatch);
end;


procedure Browser2TreeView(WebBrowser: tembeddedwb; root:TTreeNodes);
var
   i,j, k :Integer;
   FormItem, Element, SubElement: OleVariant;
   child, child2, child3 : TTreeNode;
   s_type : string;
begin
    Assert(Assigned(WebBrowser));
    Assert(Assigned(root));

    root.Clear;

   //count forms on document
   for I:=0 to WebBrowser.OleObject.Document.forms.Length -1 do
   begin
     FormItem := WebBrowser.OleObject.Document.forms.Item(I);

     if VariantIsObject(FormItem.Name) then
        child := root.AddChild(nil, 'Form'+IntToStr(i)+': '+FormItem.Name.Name)
     else
        child := root.AddChild(nil, 'Form'+IntToStr(i)+': '+FormItem.Name);
     child.ImageIndex := 3;


     For j:= 0 to FormItem.Length-1 do
     begin
       try
          Element := FormItem.Item(j);
          child2 := root.AddChild(child, Element.Name+' = '+Element.Value);
          s_type := Element.Type;

          if s_type = 'submit' then
             child2.ImageIndex := 1
          else if s_type = 'text' then
             child2.ImageIndex := 0
          else if s_type = 'file' then
             child2.ImageIndex := 2
          else if s_type = 'hidden' then
             child2.ImageIndex := 4
          else if s_type = 'checkbox' then
             child2.ImageIndex := 5
          else if s_type = 'radio' then
             child2.ImageIndex := 6
          else if s_type = 'select-one' then
             child2.ImageIndex := 7
          else
             child2.ImageIndex := -1;

          child3 := root.AddChild(child2, 'Type='+s_type);
          child3.ImageIndex := -1;


          if s_type = 'text' then
          begin
             child3 := root.AddChild(child2, 'MaxLen='+IntToStr(Element.maxLength));
             child3.ImageIndex := -1;
          end
          else if s_type = 'select-one' then
          begin
             for k := 0 to Element.Options.Length-1 do
             begin
                SubElement := Element.Options.Item(k);
                child3 := root.AddChild(child2, SubElement.Text+ ' = <'+SubElement.Value+'>');
                child3.ImageIndex := -1;
             end;

          end;

       except
         on E:Exception do
          root.AddChild(child, E.Message);
       end;
     end;
   end;

    if root.Count > 0 then
       root.GetFirstNode.Expand(True);
end;

function FillForm(WebBrowser1: tembeddedwb; FieldName: string; Value: string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  //no form on document
  if WebBrowser1.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    Exit;
  end;
  //count forms on document
  for I := 0 to WebBrowser1.OleObject.Document.forms.Length - 1 do
  begin
    FormItem := WebBrowser1.OleObject.Document.forms.Item(I);
    for j := 0 to FormItem.Length - 1 do
    begin
      try
        //when the fieldname is found, try to fill out
        if FormItem.Item(j).Name = FieldName then
        begin
          FormItem.Item(j).Value := Value;
          Result := True;
        end;
      except
        Exit;
      end;
    end;
  end;
end;


function FillForm2(webbrowser: TEmbeddedwb; const FieldName: string; Value: OleVariant): Boolean;
  var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  //no form on document
  if form1.WebBrowser1.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    Exit;
  end;
  //count forms on document
  for I := 0 to form1.WebBrowser1.OleObject.Document.forms.Length - 1 do
  begin
   FormItem := form1.WebBrowser1.OleObject.Document.forms.Item(I).elements;
    for j := 0 to FormItem.Length - 1 do
    begin
      try
        //when the fieldname is found, try to fill out
        if FormItem.Item(j).Name = FieldName then
        begin
          FormItem.Item(j).Value := Value;
          Result := True;
        end;
      except
        Exit;
      end;
    end;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin

 webbrowser1.Navigate('http://www.chesspoint.ch/admin/index.php?route=catalog/product&token=5184945becdf9423f277847b7489f08a&filter_model='+edit3.Text);

      repeat;
          Application.ProcessMessages;
          Sleep(0);
        until WebBrowser1.ReadyState=4;

   if FillForm(form1.WebBrowser1, 'username', edit1.text) = False then
    ShowMessage('Error. Field USERNAME not available or no Form found.');

       if FillForm(form1.WebBrowser1, 'password', edit2.Text) = False then
    ShowMessage('Error. Field PASSWORD not available or no Form found.');


     webbrowser1.oleobject.document.forms.item(0).submit;

    repeat;
          Application.ProcessMessages;
          Sleep(0);
        until WebBrowser1.ReadyState=4;


timer1.enabled:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Browser2TreeView(WebBrowser1, TreeView1.Items);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Set8087CW($133F);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

 repeat;
          Application.ProcessMessages;
          Sleep(0);
        until WebBrowser1.ReadyState=4;

webbrowser1.Navigate('http://www.chesspoint.ch/admin/index.php?route=catalog/product/update&token=5184945becdf9423f277847b7489f08a&product_id=312&filter_model='+edit3.Text);

      repeat;
          Application.ProcessMessages;
          Sleep(0);
        until WebBrowser1.ReadyState=4;

   if FillForm(form1.WebBrowser1, 'username', edit1.text) = False then
    ShowMessage('Error. Field USERNAME not available or no Form found.');

       if FillForm(form1.WebBrowser1, 'password', edit2.Text) = False then
    ShowMessage('Error. Field PASSWORD not available or no Form found.');




     webbrowser1.oleobject.document.forms.item(0).submit;

 timer2.enabled:=true;
timer1.Enabled:=false;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin

timer2.Enabled:=false;
      repeat;
          Application.ProcessMessages;
          Sleep(0);
        until WebBrowser1.ReadyState=4;


//   Deaktiviert da Fehler ausgelöst wird
//   if FillForm2(form1.WebBrowser1, 'quantity', edit7.text) = False then
//    ShowMessage('Error. Field QUANTITY not available or no Form found.');
//





end;

end.

[Volker Z.]

Hi gee21,

Zitat:

Button1 läuft durch --> Timer1 --> Timer2 (Hier findet der Fehler statt)

Es liegt nicht an den Timern.

Dein Problem liegt da:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    webbrowser1: TEmbeddedWB;
    [...]
  end;

procedure Browser2TreeView(WebBrowser: TWebBrowser; root:TTreeNodes); // Orginal von sx2008
procedure Browser2TreeView(WebBrowser: tembeddedwb; root:TTreeNodes); // Deine Variante

Du kannst nicht davon ausgehen, dass Code der für die TWebBrowser-Komponente geschrieben wurde mit dem TEmbeddeWB funktioniert. Leg doch mal eine TWebBrowser-Kombonente auf Dein Form bau die Parameterlisten wieder aufs Orginal (TWebBrowser) um und dann wirst Du sehen, die Sache läuft. Ansonsonsten musst Du den Code auf die TEmbeddedWB Komponente umschreiben.

Gruß

[Volker Z.]

Hi gee21,

und jetzt noch die Funktionen

Delphi-Quellcode:

function FillForm(WebBrowser1: tembeddedwb; FieldName: string; Value: string): Boolean;
function FillForm2(webbrowser: TEmbeddedwb; const FieldName: string; Value: OleVariant): Boolean;

so

Delphi-Quellcode:

function FillForm(WebBrowser1: TWebBrowser; FieldName: string; Value: string): Boolean;
function FillForm2(webbrowser: TWebBrowser; const FieldName: string; Value: OleVariant): Boolean;

Die Funktionen dann aufrufen (mit der TWebBrowser-Komponente) und es sollte funktionieren

Gruß