Entwickler-Ecke
Internet / Netzwerk - Wie kann man ein BIld im TWebbrowser anklicken?
N1m3 - So 20.11.05 11:55
Titel: Wie kann man ein BIld im TWebbrowser anklicken?
Hi zusammen
Wie kann man ein Bild in einem Form anklicken?
Im HTML Code steht nur:
Quelltext
1:
| <input type="image" src="../images/okn.gif" border="0" width="122" height="23"> |
Gruss Nime
N1m3 - So 20.11.05 12:56
Hi
hab jetzt diesen Code gefunden, doch leider macht der so gut wie gar nichts:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| procedure TForm1.Button1Click(Sender: TObject);
var
i: Word;
Document: IHtmlDocument2;
str: string;
begin
for i := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
begin
Document := WebBrowser1.Document as IHtmlDocument2;
Str := (Document.Images.Item(i, 0) as IHTMLImgElement).Href;
if Pos('../images/okn.gif', str) <> 0 then
begin
((Document.Images.Item(i, 0) as IHTMLImgElement) as IHTMLElement).Click;
end;
end;
end; |
http://www.swissdelphicenter.ch/de/showcode.php?id=1645
Wie kann er denn das Bild jetzt finden?
toms - So 20.11.05 13:22
schreibe mal anstatt '../images/okn.gif' nur 'okn.gif'
N1m3 - So 20.11.05 13:27
Hab ich auch schon probiert.
Dann habe ich eine Mittelungsbox eingebaut:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| procedure TForm1.Button1Click(Sender: TObject);
var
i: Word;
Document: IHtmlDocument2;
str: string;
begin
for i := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
begin
Document := WebBrowser1.Document as IHtmlDocument2;
Str := (Document.Images.Item(i, 0) as IHTMLImgElement).Href;
showmessage(Str);
if Pos('../images/okn.gif', str) <> 0 then
begin
((Document.Images.Item(i, 0) as IHTMLImgElement) as IHTMLElement).Click;
end;
end;
end; |
Es gibt zwar alle enthalten Blder an, nur das 'okn.gif' Bild nicht, das heisst es wird gar nicht gefunden, keine Ahnug wie weiter jetzt.
toms - Mo 21.11.05 18:15
Vielleicht befindet sich das Bild in einem anderen Frame?
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!
TWEBBROWSER BILD KLICKEN IN DF