Postmessage an TWebbrowser

[wallwriht]

Hi Leute,
Habe in einem Programm einen Webbrowser. Nun hätte ich gern, das in diesen etwas in ein feld geschrieben wird, dass vorher eingegeben ist, was ich mal durch postmessage vorgesehen hatte.
2Fragen:
1. wie sage ich dem postmessage das ich das in den browserschreiben will(das Feld is schon aktiv)
2. geht das auch besser?

[shmia]

Zitat von wallwriht:

2. geht das auch besser?

Der Webbrowser hat umfangreiche Automatisierungsschnittstellen, mit den man fast alles machen kann.
Es ist kein Problem damit Webforms auszufüllen.

Mal so ganz grob:

Delphi-Quellcode:

var
  FormItem, Element : OleVariant;
  document : OleVariant;
begin
  document := WebBrowser.OleObject.document;

  //no form on document
  if document.all.tags('FORM').length=0 then
    exit;

  FormItem := document.forms.Item(0);  // 1. Webform

  Element := FormItem.Item(0);  // 1. Element auf Form
  Element.Value:= 'Hello World';

Was aber nicht geht ist einen Dateinamen für einen HTTP Upload von Aussen zu setzen.
Hier hat MS aus Sicherheitsgründen einen Riegel vorgeschoben.

[wallwriht]

Wenn ich das ausführen will kommt:
Record,object or class type required.
Die Zeile mit Fehler ist:
document := WebBrowser.OleObject.document;
weiß da jemand weiter?

[shmia]

Zitat von wallwriht:

...Record,object or class type required.

Du musst den Code schon an dein Programm anpassen.
Das WebBrowser-Objekt auf deinem Formular hat einen Namen; wenn du ihn nicht geändert hast lautet der WebBrowser1.

Dann muss der Code natürlich in einer Methode deines Formulars liegen.
Also ungefähr so:

Delphi-Quellcode:

procedure TForm1.MachWas_mit_dem_Browser;
var
  FormItem, Element : OleVariant;
  document : OleVariant;
begin
  document := WebBrowser1.OleObject.document;

[wallwriht]

Kann ich in diesem Editfeld dann mit Sendmessage gleich auch ein Return simulieren?
Ich möchte eigentlich nur dass der Browser dann merkt,dass die Daten eingegeben sind um zum login zu gehen dafür brauch ich einmal einen return druck

[toms]

Hallo

SendMessage/Postmessage ist nicht der richtige Weg. Den Webbrowser Feldern kannst du damit keine Nachricht senden, denn diese besitzen im Gegensatz zu den Windows Controls keine Handles.
Du kannst versuchen, das Formular abzuschicken (mit Submit) oder die Click-Methode des Submitbuttons aufzurufen.

Viele Beispiele findest du in der DP oder in Google mit diesen Stichworten: submit form TWebbrowser Delphi