Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Koordinaten bei Submit Image festlegen? (https://www.delphipraxis.net/128892-koordinaten-bei-submit-image-festlegen.html)

braini4c 8. Feb 2009 19:05


Koordinaten bei Submit Image festlegen?
 
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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:16 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz