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 diese festlegen kann... Es wird standardmäßig immer
name.x=0 und
name.y=0 gesendet.
Geht es mit SetAttribute ?? (hab ich schon versucht, aber viell. hab ich ja was falsch gemacht)
Hat einer eine Idee?
Wenns es geht möchte ich das ganze ohne
Indy Komponenten lösen.
Viele Grüße
Julian
Delphi-Quellcode:
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;