Webbrowser eingabefeld füllen und abschicken, java script

[BBoy]

Ich möchte uber den Twebbrowser automatisch ein Feld ausfüllen und den button klicken. Wie das mit normalem html code funktioniert weiß ich. In dem fall scheint es aber java zu sein. Gibt es dafür auch Möglichkeiten?
Hier mal der Code von der Seite:

Code:

  <script id="tmpl_CUpdate" type="text/x-jquery-tmpl">
            <div class="ccu-update" data-lat="${ll[0]}" data-lng="${ll[1]}">
                <h4 class="BottomSpacing">Justiere die Position</h4>
                <dl>
                    <dt>Original:</dt>
                    <dd>${ll_formatted} <a href="#" class="ccu-restore">Wiederherstellen</a></dd>
                </dl>
                <dl class="ccu-parse">
                    <dt>Ändern in:</dt>
                    <dd>
                        <input type="text" max="40" size="35" class="cc-parse-text">
                        <button class="ccu-button ccu-parse">Abschicken</button>
                    </dd>
                </dl>
                <dl class="ccu-parseverify" style="display:none;">
                    <dt>Ändern in:</dt>
                    <dd>
                        <span class="ccu-parseverify-coords">Number1, Number2</span>
                    </dd>
                    <dt>&nbsp;</dt>
                    <dd>
                        <button class="ccu-button ccu-parseverify-accept">Annehmen</button>&nbsp;<button class="ccu-button ccu-parseverify-cancel">Abbrechen</button></dd>
                </dl>
            </div>

    </script>

[Andreas L.]

Da das Eingabefeld <input type="text" max="40" size="35" class="cc-parse-text"> weder einen Namen noch eine ID hat, musst du es über das Class-Attribut ausfindig machen. Leider gibt es keine GetElementByClass-Methode. Du musst also mit GetElementsByTagName alle <input>-Felder ausfindig machen und solange durch iterieren bist du das Feld mit cc-parse-text als Class findest.

Funktioniert folgender Code bei dir?

Delphi-Quellcode:

var
  Document: IHTMLDocument2;
  Body: IHTMLElement2;
  Tags: IHTMLElementCollection;
  Tag: IHTMLElement;
  I: Integer;
begin
  Document := WebBrowser1.Document as IHTMLDocument2;
  Body := Document.Body as IHTMLElement2;
  Tags := Body.getElementsByTagName('input');
  for I := 0 to Tags.length - 1 do
  begin
    Tag := Tags.item(I, EmptyParam) as IHTMLElement;
    if Tag.className = 'cc-parse-text' then
    begin
      IHtmlInputElement(Tag).Value := 'Dein neuer Text';
    end;
  end;
end;

Absenden des Eingabefelds:
Ist der von dir gepostete JavaScript- + HTML-Code von einem <form>-Element umschlossen? Wenn ja kannst du einfach Submit des Forms aufrufen:
  WebBrowser1.OleObject.document.forms.item(0).submit; Falls nicht, wäre es ein Versuch wert wie bei dem Eingabefeld durch alle <button>-Element zu iterieren, bis du auf ClassName = 'ccu-button ccu-parse' (Abschicken-Button) oder ClassName = 'ccu-button ccu-parseverify-accept' (Annehmen-Button) stößt, den Button castest du dann auf IHtmlButtonElement statt IHtmlInputElement und hoffst das es eine Methode .Click oder .Submit gibt.

Eine weitere Möglichkeit die mir einfällt, wäre einen eigenen JavaScript-Code mittels TWebBrowser in der Seite auszuführen der den Submit des im HTML vorhandenen Scripts anstößt bzw. ihn nachahmt / simuliert.

[BBoy]

Das sieht eigentlich gut aus aber ich bekomme einen accessviolation write of adress xxx Fehler in der Zeile
IHtmlInputElement(Tag).Value := 'Dein neuer Text';

Das TAG wird gefunden aber sobald diese Zeile ausgeführt wird, kommt der Fehler.
Woran liegt das?

[Volker Z.]

Hallo,

(Tag as IHtmlInputElement).Value := 'Dein neuer Text';

Sollte es tun.
Der harte Cast IHtmlInputElement(Tag) funktioniert hier nicht. Der Cast liefert Dir zwar eine gültige Referenz, aber auf IHTMLElement, und die implementiert eben keine Eigenschaft value - folglich AV bei der Zuweisung.

Aus der OH Interface-Referenzen

Zitat:

Sie können auch eine normale (unsichere) Typumwandlung einer Interface-Referenz in ein Objekt vornehmen. Diese Methode löst keine Exceptions aus. Der Unterschied zwischen der unsicheren Objekt-in-Objekt-Typumwandlung in der unsicheren Interface-in-Objekt-Typumwandlung ist folgender: die erste Typumwandlung gibt bei inkompatiblen Typen einen gültigen Zeiger zurück, die zweite gibt nil zurück.

Gruß

[BBoy]

Das Input Feld kann ich nun ausfüllen.
Nun fehlt nur noch das ich den Button klicken kann
Das ganze ist zwar innerhalt einer Form aber ich kann das nicht mit
webbrowser1.OleObject.document.forms.item(0).eleme nts.item('ccu-button ccu-parse').click;
auch wenn ich die 0 durch 1 oder ähnliches ersetze, bringt das nichts.

Und die Sache mit dem IHtmlButtonElement funktioniert auch nicht.

Code:

 <button class="ccu-button ccu-parseverify-accept">Annehmen</button>&nbsp;<button class="ccu-button ccu-parseverify-cancel">Abbrechen</button></dd>

Wenn ihr da auch noch eine Lösung für mich hättet würde mich das sehr freuen

[Andreas L.]

Zitat von BBoy:

Nun fehlt nur noch das ich den Button klicken kann
Das ganze ist zwar innerhalt einer Form aber ich kann das nicht mit
webbrowser1.OleObject.document.forms.item(0).eleme nts.item('ccu-button ccu-parse').click;
auch wenn ich die 0 durch 1 oder ähnliches ersetze, bringt das nichts.

Klar, der Button hat genau wie das Eingabefeld keinen Namen (oder ID) sonder nur einen ClassName. Also selbes Problem wie beim input.

So müsste es gehen:

Delphi-Quellcode:

var
  Document: IHTMLDocument2;
  Body: IHTMLElement2;
  Tags: IHTMLElementCollection;
  Tag: IHTMLElement;
  Button: IHtmlButtonElement;
  I: Integer;
begin
  Document := WebBrowser1.Document as IHTMLDocument2;
  Body := Document.Body as IHTMLElement2;
  Tags := Body.getElementsByTagName('button');  // Nach <button> statt <input> Elementen suchen
  for I := 0 to Tags.length - 1 do
  begin
    Tag := Tags.item(I, EmptyParam) as IHTMLElement;
    if Tag.className = 'ccu-button ccu-parseverify-accept' then
    begin
      Button := Tag as IHtmlButtonElement;   // Nach IHTMLButtonElement casten
      Button.Click; // laut MSDN hat IHTMLButtonElement keine Click-Methode, ein Versuch ist es aber wert ;-)
      // Ansonsten auf das Form zugreifen:
      Button.Form.Submit;
    end;
  end;
end;

Du kannst auch versuchen das Formular direkt abzusenden (wie ich schon schrieb) also ohne Zugriff auf den Button:
webbrowser1.OleObject.document.forms.item(0).submit; // evtl. OleObject weglassen und/oder Document auf IHTMLDocument2 casten Wenn mehr als ein Formular im HTML-Code stehen, musst du die 0 ggf. anpassen.

Wenn das alles nicht funktioniert wäre der HTML-Code des Formulars hilfreich um eine Lösung zu finden....

Zitat:

Und die Sache mit dem IHtmlButtonElement funktioniert auch nicht.

Fehlermeldung?