Hallo Leute!

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

Gruß,
Peter

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

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

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

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

OK, habe es nun raus bekommen

zusammenfalten · markieren

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;
...