Hallo,
ich habe folgendes Problem: Ich möchte ein htmlInputImage mit vorher festgelegten koordinaten klicken.
Zur Zeit verwende ich die angehängte Methode zum klicken eines Images.
Das funktioniert auch alles.
Allerdings: Ich möchte gerne x und y festlegen die beim clicken submitted werden, kann allerdings keine Eigenschaft von HTMLInputImage finden wo ich das festlegen kann...
Geht es mit SetAttribute ?? (hab ich schon versucht zu testen, aber viell. hab ich ja was falsch gemacht)
Hat einer eine Idee?
Viele Grüße
Julian
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
| procedure ClickImage(WB: TEmbeddedWB; ImageName: string);
var
iDoc: IHtmlDocument2;
iDisp: IDispatch;
iColl: IHTMLElementCollection;
InputImage: htmlinputimage;
i: Integer;
begin
if WB.DocumentLoaded then
begin
if Supports(WB.document, IHTMLDocument2, iDoc) then
begin
iDisp := iDoc.all.tags('INPUT');
if Assigned(iDisp) then
begin
if Supports(iDisp, IHTMLElementCollection, iColl) then
begin
ImageName := AnsiUpperCase(ImageName);
for i := 1 to iColl.Get_length do
begin
iDisp := iColl.item(Pred(i), 0);
if Supports(iDisp, htmlinputimage, InputImage) then
begin
if Pos(ImageName, AnsiUpperCase(InputImage.src)) <> 0 then
begin
InputImage.Click;
end;
end;
end;
end;
end;
end;
end;
end; |
