TWebbrowser : Formular mit bestimmten Namen abschicken

[DelphiPeter]

Hallo Leute!

Sagt mal, hat wer eine Ahnung wie ich in der TWebbrowser Komponente ein Formular mit einem bestimmten Namen abschicken kann?

Gruß,
Peter

[Nop0x90]

Du wirst den Namen des zugehörigen Submit Buttons brauchen und diesen dann Clicken.

[DelphiPeter]

Der Button hat aber keinen Namen. Kann man das evtl. auch mit der Beschriftung des Buttons machen?

[Nop0x90]

ja klar, du gehst einfach alle buttons mit einer Abfrage if soundso.value = "aufschrift" then... durch.

[DelphiPeter]

Hi!

Kannst du mir vielleicht mal zeigen wie du das meinst? Kann mir gerade nicht vorstellen, wie ich das in Delphi umsetzen soll.

Gruß,
Peter

[DelphiPeter]

OK, habe es nun raus bekommen

Delphi-Quellcode:

...
function WbBtnClickByValue(WebBrowser: TWebBrowser; Value: string): Boolean;
var  
 ovElements: OleVariant;
 i: Integer;
 res: boolean;
begin
 res := false;
 ovElements := WebBrowser.OleObject.Document.forms.item(0).elements;
 for i := 0 to ovElements.Length -1 do
 begin
  if lowercase(ovElements.item(i).Value) = lowercase(value) then
  begin
   res := true;
   ovElements.item(i).Click;
   Result := res;
   break;
  end;
 end;
...