Tipy a triky v Delphi, díl 117. - automatické vyplňování formulářů v IE

Diskuze čtenářů k článku

abbe  |  19. 11. 2003 07:44  | 

Deklaraci
IDoc1: IHTMLDocument2;
to nebere...

Souhlasím  |  Nesouhlasím  |  Odpovědět
Jirka  |  19. 11. 2003 07:57  | 

já to v jednotce MSHTML.pas mám deklarovaný .... D5 profi.

 

 

Souhlasím  |  Nesouhlasím  |  Odpovědět
KinDR  |  21. 11. 2003 14:34  | 

pri splneni vsech potrebnych nastaveni jako registred as browser atd... to stejne vyhodi chybu acess viol. FFFFFFFF

a debuger zastavi na radku      "WB.Document.QueryInterface(IHTMLDocument2, iDoc1);"

takze vyledek je ze mi to proste v w98 nechodi poradi mi nekdo ?

Souhlasím  |  Nesouhlasím  |  Odpovědět
KinDR  |  26. 11. 2003 11:23  | 

%Titulek% ,ale proc proc to proste nechodi v win 9x ?? muye mi nekdo poradit pls

Budu moc vdecny

Souhlasím  |  Nesouhlasím  |  Odpovědět
KinDR  |  26. 11. 2003 11:23  | 

%Titulek% ,ale proc proc to proste nechodi v win 9x ?? muye mi nekdo poradit pls

Budu moc vdecny

Souhlasím  |  Nesouhlasím  |  Odpovědět
autor  |  27. 11. 2003 16:12  | 

Bohužel, netuším kde by mohla být chyba. Příklad jsem zkoušel právě pod Win98SE a bez sebemenších problémů. Zkusil bych přeinstalovat Internet Explorer nejnovější verzí s SP.

Souhlasím  |  Nesouhlasím  |  Odpovědět
KinDR  |  27. 11. 2003 18:08  | 

Hmm tak to se omlouvam ono mi to totiž nechce chodit ani v WinME

a asi sem prisel na to kde je chyba kdyz je spostene ICQ tak mi to napise "Server RPC nelze najit " to same kdyz to ladim

ale kdyz to pustim normalne tak to chodi v poho.

Ale stejne to porad nechapu prikladam zdrojak

prekopany sluzi k posilani sms na oskar

Procedure TForm1.FormCreate(Sender: TObject);

begin 

WebBrowser1.RegisterAsBrowser := True;
    Webbrowser1.Navigate('http://sms.oskarmobil.cz/s_main.php3?locale=cz&promen=');

end;

Procedure TForm1.Button2Click(Sender: TObject);
Var
  ShellWindow: IShellWindows;
  WB: IWebbrowser2;
  spDisp: IDispatch;
  IDoc1: IHTMLDocument2;
  Document: Variant;
  k, m: Integer;
  ovElements: OleVariant;
  i: Integer;
Begin
  ShellWindow := CoShellWindows.Create;
  For k := 0 To ShellWindow.Count Do
    Begin
      spDisp := ShellWindow.Item(k);
      If spDisp = Nil Then
        Continue;
      spDisp.QueryInterface(iWebBrowser2, WB);
      If WB <> Nil Then
        Begin
          WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
          If iDoc1 <> Nil Then
            Begin
              WB := ShellWindow.Item(k) As IWebbrowser2;
              Begin
                Document := WB.Document;
                For m := 0 To Document.forms.Length - 1 Do
                  Begin
                    ovElements := Document.forms.Item(m).elements;
                    For i := 0 To ovElements.Length - 1 Do
                      Begin
                        Try
                          If (CompareText(ovElements.item(i).tagname,
                            'TEXTAREA') = 0) And
                            (CompareText(ovElements.item(i).name, 'message') =
                            0) Then
                            ovElements.item(i).Value := Memo1.Lines.Text;
                        Except
                        End;
                        Try //INPUT maxLength=3 name=mypred1
                          If (CompareText(ovElements.item(i).tagname,
                            'INPUT') = 0) And
                            (CompareText(ovElements.item(i).name, 'mypred2') =
                            0) Then
                            ovElements.item(i).Value := edit1.Text;
                        Except
                        End;
                        Try //INPUT maxLength=8 name=mynumber
                          If (CompareText(ovElements.item(i).tagname,
                            'INPUT') = 0) And
                            (CompareText(ovElements.item(i).name, 'mynumber') =
                            0) Then
                            ovElements.item(i).Value := edit2.Text;
                        Except
                        End;
                        Try //INPUT maxLength=6 name=number
                          If (CompareText(ovElements.item(i).tagname,
                            'INPUT') = 0) And
                            (CompareText(ovElements.item(i).name, 'number') =
                            0) Then
                            ovElements.item(i).Value := edit3.Text;
                        Except
                        End;
                        Try
                          If (CompareText(ovElements.item(i).tagname,
                            'SELECT') = 0) And
                            (CompareText(ovElements.item(i).name, 'predcisli')
                            =
                            0) Then
                            ovElements.item(i).Value := ComboBox1.Text;
                        Except
                        End;
                        //input type=text name="sender" size=20 maxlength=30
                        Try
                          If (CompareText(ovElements.item(i).tagname,
                            'input') = 0) And
                            (CompareText(ovElements.item(i).name, 'sender')
                            =
                            0) Then
                            ovElements.item(i).Value := edit4.Text;
                        Except
                        End;

                        Try
                          If CheckBox1.Checked Then
                            Begin
                              If (CompareText(ovElements.item(i).tagName,
                                'BUTTON') = 0) And
                                (CompareText(ovElements.item(i).type, 'submit')
                                = 0)
                                And (ovElements.item(i).Value =
                                '&nbsp;&nbsp;&nbsp;Odeslat zprávu&nbsp;&nbsp;&nbsp;') Then
                                ovElements.item(i).Click;
                            End
                        Except
                        End;
                      End;
                  End;
              End;
            End;
        End;
    End

 End;

Souhlasím  |  Nesouhlasím  |  Odpovědět
Pavel Sala  |  08. 06. 2004 13:20  | 

prosim o pomoc,


provadeni se zastavi na radku  "WB.Document.QueryInterface(IHTMLDocument2, iDoc1);"
myslim si, ze je to tim ze v "Document"u neni zadna hotnota (ma hdonotu "nill")


mam WindowsXP Service pack 1, Internet Explorer 6.0...Delphi 5
  dekuji za odpoved

Souhlasím  |  Nesouhlasím  |  Odpovědět
karel  |  26. 07. 2005 21:46  | 

Místo

if WB <> nil then

napis

if WB.Document <> nil then

(je to hned na tím chybovým řádkem)

Souhlasím  |  Nesouhlasím  |  Odpovědět
Zasílat názory e-mailem: Zasílat názory Můj názor
Aktuální číslo časopisu Computer

Megatest 24 PC zdrojů

Jak využít umělou inteligenci

10 špičkových sluchátek s ANC

Playstation 5 vs Xbox Series X