Hallo!
Ich habe jetzt die MozillaBrowser Komponente installiert.
Ich möchte eine Webseite laden (Navigate('...')) und dann
anschließen Felder wie Login und Password ausfüllen lassen
ohne eine Taste gedrückt zu haben. Dies gelingt mir bis jetzt
nur bei der TWebBrowser Komponente (Internet Explorer).
Weiß jemand wie man die sogannte Fillform Procedure so umschreiben
kann das sie mit der Mozilla Komponente funktioniert?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
| function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
i, j: Integer;
FormItem: Variant;
begin
Result := False;
if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
begin
Exit;
end;
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
if FormItem.Item(j).Name = FieldName then
begin
FormItem.Item(j).Value := Value;
Result := True;
end;
except
Exit;
end;
end;
end;
end; |
Moderiert von 
Christian S.: Code- durch Delphi-Tags ersetzt.
