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