Webbrowser Element aus Edit1.Text ansteuern

[klaus9]

Hallo,

ich habe ein Text Feld : Edit1.Text in diesem stehen Werte, nun möchte ich gerne folgendes ansteuern

WebBrowser1.OleObject.Document.Forms.item(0).eleme nts.item(Edit1.Text).click;

Wenn ich WebBrowser1.OleObject.Doc... wie oben geschildert starte das er mir den Text aus dem Textfeld "Edit1.Text" in das Feld einfügt und mit diesem dann startet.
Nur irgendwie klappt es nicht.

Was mache ich falsch ?

Edit1.Text steht z.B. "Test"

und möchte das dieser Wert unter ....elemnt.item(test).click steht.

Gruß
Klaus

[jaenicke]

Hier funktioniert das absolut problemlos. Getestet an dieser Seite:
http://www.mediaevent.de/xhtml/form.html
In Edit1.Text steht der Text senden, da der Button dort so heißt. Und er wird auch korrekt mit dem Code geklickt.

Zitat:

Zitat von klaus9 (Beitrag 1143080)

Wenn ich WebBrowser1.OleObject.Doc... wie oben geschildert starte das er mir den Text aus dem Textfeld "Edit1.Text" in das Feld einfügt und mit diesem dann startet

Wie meinst du das? In deinem Code führst du einen Klick auf das Element mit dem Namen in Edit1.Text (im ersten Formular der Seite) aus, mehr nicht.

[klaus9]

Hi

Also ich habe in meinem textfeld edit1.Text einen Text oder Zahl stehen diese soll an die Stelle von
Webbrowser1.oleobject...Element.(...).click eingefügt werden. Aber irgendwie klappt es nicht. Delphi wirft immer wieder nen Fehler aus

[jaenicke]

Zitat:

Zitat von klaus9 (Beitrag 1143086)

Delphi wirft immer wieder nen Fehler aus

Und welchen? Sollen wir raten? :roll:

[klaus9]

Also habe folgenden Code

procedure TForm1.Button67Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.Forms.item(0).eleme nts.item(Edit7.Text).click;
end;

end.

Im Textfeld 'Edit7.Text' steht "23" auf meiner Webseite ist das der Okay Button.

Klicke ich diesen über

procedure TForm1.Button27Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.Forms.item(0).eleme nts.item(23).click;
end;

an, funktioniert es alles.

Ich hätte aber gerne das Feld mit der "Item(..)" als variable möglichkeit frei gehalten über ein Textfeld steuerbar, aber irgendwie klappt dies leider nicht.. Egal welche Buttons ich über das Textfeld ansteuere immer wieder Fehlermeldungen.

Im Project Project.exe ist eine Exception EAccessViolation aufgetreten. Meldung 'Zugriffsverletzung bei Adresse
00463233. Lesen von Adresse 0000000. Prozess angehalten...

[jaenicke]

Vergib einen richtigen Namen für das Element... Vermutlich versucht das Control intern das Element mit dem Namen 23 anzusprechen und das existiert nicht. Denn du gibst ja keine Zahl an, sondern den Text aus dem Editfeld, also einen String. Wenn du das Element mit dem Index 23 willst, musst du den Text vorher mit StrToInt in eine Zahl umbenennen (vermute ich).

Ich würde aber sofern möglich immer über den Namen des Elements gehen, damit es eindeutig ist auch wenn die Controls auf der Seite vertauscht werden.

[klaus9]

Hi vielen Dank für den tipp

muß ich dann in dem Textfeld

procedure TForm1.Edit7Change(Sender: TObject);

iVariable:=StrToInt(Edit7.text)
begin

end;

einfügen, nur dann wirft er mir auch wieder nen fehler aus

[jaenicke]

Delphi-Quellcode:

WebBrowser1.OleObject.Document.Forms.item(0).elements.item(StrToInt(Edit1.Text)).click;
// so vielleicht? (habs nicht getestet)

[klaus9]

Juhu, daran lag es.. :-)

Super Dankeschön.