Folgender Code
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
ovElements: OleVariant;
i: Integer;
begin
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
for i := 0 to (ovElements.Length - 1) do
if {(ovElements.item(i).tagName = 'id') and}
(ovElements.item(i).type = 'submit') and
(ovElements.item(i).Value = 'Continue') then
ovElements.item(i).Click;
end;
Also hab jetzt das ganze noch auf VMWare mit WinXP SP3 und IE6 ausprobiert und dann klappt es. Wenn ich nun das auf meinem normalen Betriebssystem (Windows Server 2008 SP1 mit IE7) mein Programm ausführe, kommt beim Aufrufen der Seite folgender Fehler:
Zitat:
A Runtime Error has occured.
Do you wish to Debug?
Line: 18
Error: 'document.submition.link' is null or not an object'
Beim Versuch den Button mit dem obigen Code anzuklicken, kommt folgender Fehler:
Zitat:
A Runtime Error has occured.
Do you wish to Debug?
Line: 27
Error: Automation server can't create object