Danke für die antwort!
Aber ich peil das immernoch nicht wo ich den "free" button definieren muss
....
Das der bisherige code er funktioniert aber nicht was amche ich falsch
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text);
end;
procedure SubmitWebForm(webform:OleVariant);
var
i : Integer;
formitem : OleVariant;
itemtype, itemname : string;
begin
// Schleife über alle Items eines WebFormulars
For i:= webform.Length-1 downto 0 do
begin
formitem := webform.Item(i);
itemtype := UpperCase(formitem.Type);
itemname := UpperCase(formitem.Name);
// if it's a submit button: click it
if itemtype = 'SUBMIT' then
begin
formitem.Click;
Exit;
end
else if (itemtype='BUTTON') and (itemname='Free') then
begin
formitem.Click;
Exit;
end
end;
// try default submit Method
webform.submit;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
formitem : OleVariant;
itemtype, itemname : string;
begin
if (itemtype='BUTTON') and (itemname='Free') then
begin
formitem.Click;
Exit;
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
SubmitWebForm(WebBrowser1.OleObject.document.forms.Item(0));
end;
end.