ok, noch ein paar kleine Probleme: Wenn ich mit dieser Methode hier:
Delphi-Quellcode:
function TForm1.FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
i, j: Integer;
FormItem: Variant;
begin
Result := False;
//no form on document
if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
begin
showmessage('No Form found!');
Exit;
end;
//count forms on document
for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
begin
FormItem := WebBrowser.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 FormItem.Item(j).Name = FieldName then
begin
FormItem.Item(j).Value := Value;
Result := True;
end;
except
Exit;
end;
end;
end;
end;
Versuche, Ein Formular auszufüllen, dann geht das nur in einem Dokument ohne Frames. Bei einem Frameset, in dem nur ein Frame ein Eingabefeld enthält, findet er nichts. Wie kann ich in der Methode auch alle Frames durchsuchen?
Also ich würde das gerne komplett in der Webbrowser-Komponente laufen lassen, kann ich da denn auch zB. Klicks auf Submit-Buttons, etc. simulieren? Wie ginge das?
thx
-Hackyie-