Eingabe in einem WebBrowser-Feld simulieren

[eddy]

Hallo Leute,

ich möchte die Tastatureingabe auf einer Internetseite von Delphi aus steuer.

So etwa in der Art:

Code:

  WebBrowser.Navigate('http://www.google.de');

Wenn dann die Seite komplett geladen ist steht der blinkende Cursor im Eingabefeld und statt das Suchwort (z.B.: TWebBrowser +Delphi) einzutippen soll dieses aus einem Edit-Feld genommen und in das Eingabefeld auf der Internetseite eingetragen werden.

WebBrowser und das Edit-Feld werden von meinem Programm verwaltet, aber wie kriege ich den Text in das Google-Eingabefeld?

mfg
eddy

[czapie]

Irgendwann reicht es ;-)

SUCHT!

SUCHE

Czapie.

[Kinimod8]

Klick!

[eddy]

Hallo czapie & Kinimod8,

danke für die superschnellen Antworten.
Ich habe mir die Links angesehen und folgendes daraus gemacht:

Code:

//  WebBrowser1.OleObject.Document.Frames.item('Name des Frames').
//                        Document.Forms.item('Name des Formulars').
//                        Elements.item('Name des Feldes').value := 'Irgendetwas'


procedure TFTermin.wbNavigateComplete2(Sender: TObject;const pDisp: IDispatch; var URL:OleVariant);
const
  url_google = 'http://www.google.de';
begin
  cbWeb.Text := lower(wb.OleObject.Document.Url);
  ShowMessage(cbWeb.Text + ' wurde geladen');
  if (cbWeb.Text = url_google) or (cbWeb.Text = url_google + '/') then begin

    wb.OleObject.Document.Forms.item('f').Elements.item('q').value := 'Irgendetwas';

  end;
end;

Sobald 'Irgendetwas' zugewiesen werden soll, erhalte ich nur eine Fehlermeldung:

Zugriffsverletzung bei Adresse ... im Modul ....

Was ist also nun noch verkehrt?

mfg
eddy



Nachtrag:

Problem wurde gelöst: Warten bis URL komplett geladen ist

mfg
eddy