Buchstaben an Internetexplorer senden

[nahpets]

Könntest Du statt des IEs auch den TWebBrowser innerhalb Deiner Anwandung nutzen?

Wenn ja, ließe sich die Eingabe programmintern lösen.

Weiß nicht mehr, wo ich das herhabe:

Delphi-Quellcode:

// ...HTML Formulare mit TWebBrowser automatisch ausfüllen lassen?
function  WBFillForm(wb: TWebBrowser; sFieldName: string; sValue: string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  //no form on document
  if wb.OleObject.Document.all.tags('FORM').Length = 0 then begin
    Exit;
  end;
  //count forms on document
  for I := 0 to wb.OleObject.Document.forms.Length - 1 do begin
    FormItem := wb.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 AnsiUpperCase(FormItem.Item(j).Name) = AnsiUpperCase(sFieldName) then begin
          FormItem.Item(j).Value := sValue;
          Result := True;
        end;
      except
        Exit;
      end;
    end;
  end;
end;

Ansonsten schau mal bitte hier: https://www.delphi-treff.de/tipps-tr...ern-ermitteln/

Dort ist beschrieben, wie Du an eine Instanz vom IE kommen kannst. Die bekommst Du dann als IWebbrowser2 (definiert in SHDocVw). Mit der so erhaltenen Instanz kannst Du dann alles machen, was die Schnittstelle zulässt.

Da der TWebBrowser in der gleichen Unit definiert ist, würde es mich wundern, wenn Du über einen so "gefundenen" IE nicht das Gleiche anstellen kannst, wie mit 'nem TWebBrowser.

[Markus Effenberger]

Zitat von nahpets:

Könntest Du statt des IEs auch den TWebBrowser innerhalb Deiner Anwandung nutzen?

Nein leider nicht. Die TWebbrowserkomponente führt die Seite nicht richtig aus (z.B. keine Javascripts).

[Der schöne Günther]

Nur als Hinweis: Der TWebBrowser kapselt standardmäßig einen uralten Internet Explorer 7. Du kannst ihn auch auf die jeweils neuste IE-Version einstellen, der kommt eigentlich mit allem klar.

http://www.delphipraxis.net/192748-i...ml#post1371666

[Redeemer]

Habe das gerade mal eben mit der Komponente TSendKeys (uralt, muss ich von Torry haben) an IE11 ausprobiert. Funktioniert einwandfrei.
(Ja, das ist eine Komponente, sie besitzt aber ausschließlich Methoden, die eigentlich Klassenmethoden sein müssten... Achtung bei Verwendung von Umlauten, da hohe Byte-Werte reserviert sind.)

[Bernhard Geyer]

Zitat von Markus Effenberger:

Zitat von nahpets:

Könntest Du statt des IEs auch den TWebBrowser innerhalb Deiner Anwandung nutzen?

Nein leider nicht. Die TWebbrowserkomponente führt die Seite nicht richtig aus (z.B. keine Javascripts).

Die TWebBrowser-Komponenten führt es schon aus. Du musst nur die bescheuerte Logik von MS abschalten das ohne Anpassungen der TWebbrowser initial im IE7-Modus läuft.
Such einfach mal nach FEATURE_BROWSER_EMULATION. Drt findest du genügend Beispiel wie man diese bescheuerte Maximalaltkompatiblität los wird.

[nahpets]

Wäre dashier eventuell ein Ansatz?

... den Internet Explorer über OLE-Automation steuern?

Prinzipiell müsste man den IE, ähnlich wie Word oder Excel, auch über Ole-Automatisation steuern können.

Hier in der Doku von MS InternetExplorer object findet man auch die Eigenschaft Document, über die man letztlich alles das machen kann, was man auch über den TWebBrowser erledigen kann. Eigentlich ist das auch logisch, da der TWebBrowser ja nichts anderes ist, als eine Kapselung des Internetexplorers.

Eine Beschreibung dessen, was man per JavaScript mit der Eigenschaft Document "anstellen" kann, ist hier zu finden: SelfHTML - JavaScriptavaScript/DOM/Document.

Man kommt an jedes Formular, an jedes Eingabefeld ... Das kann man analog auch auf Delphi übersetzen.

Einfach hier mal stöbern: SwissDelphiCenter.ch - Internet / LAN - Wie kann ich ....
Was dort zum TWebBrowser beschrieben ist, kann man analog auch mit dem IE per Ole-Automatisation machen.