Twebbrowser type=image anklicken

[n000b]

Hallo,
Erstmal vielen einen Lob an den größten Delphi Forum =]

Mein problem... :-)
Es gibt ein button welchen ich gerne per Twebbrowser anklicken würde.
Der Code in HTML.

Zitat:

<input width="102" type="image" height="22" border="0" accesskey="S" value="klickmich" name="action" src="blablabla.gif"/>

so nun habe ich das mit

Zitat:

WebBrowser1.OleObject.document.forms.item(0).eleme nts.type('action').click

mein complimieren kommt kein Fehler doch beim anklicken kommt einer..

Zitat:

Project Project1.exe raised exception class EOleError with message 'Method 'type' not supported by automation object'.

Hat jemand einen Tip?
danke, mfg

[Pfoto]

Hallo und willkommen n000b!

ich kann zwar nicht den Grund des Fehlers erklären, aber
dir einen Workaround vorschlagen -- falls der Fehler
weiterhin nicht zu lösen ist.

Du könntest einen normalen Button mit CSS formatieren,
also quasi unsichtbar machen und nur das Bild anzeigen,
beispielsweise:

Delphi-Quellcode:

<input type="button"  style="background: url(...) no-repeat center center; width: 100px; height: 100px;" />

Gruß
Pfoto

[marabu]

Hallo,

hast du es schonmal so probiert?

Delphi-Quellcode:

 WebBrowser1.OleObject.document.forms.item(0).elements.item('action').click

elements.type('action') dürfte nicht funktionieren ...

Freundliche Grüße

[n000b]

Zitat:

Zitat von marabu

Hallo,

hast du es schonmal so probiert?

Delphi-Quellcode:

 WebBrowser1.OleObject.document.forms.item(0).elements.item('action').click

elements.type('action') dürfte nicht funktionieren ...

Freundliche Grüße

Oh tut mir leid tippfehler, ja genau das habe ich versucht (mit item) geht nicht...

Kann ich vielleicht einer art POST befehl direkt im twebbrowser ausführen?

Mfg

[toms]

Hallo,

Probiere mal meine WB_ClickImage() Funktion:

Delphi-Quellcode:

procedure WB_ClickImage(WB: TWebbrowser; ImageSRC: string);
var
  iDoc: IHtmlDocument2;
  i: Integer;
  iDisp: IDispatch;
  iColl: IHTMLElementCollection;
  InputImage: HTMLInputImage;
begin
  if Assigned(WB.Document) then
  begin
    WB.Document.QueryInterface(IHTMLDocument2, iDoc);
    if Assigned(iDoc) then
    begin
      iDisp := iDoc.all.tags('INPUT');
      if Assigned(iDisp) then
      begin
        iDisp.QueryInterface(IHTMLElementCollection, iColl);
        if Assigned(iColl) then
        begin
          ImageSRC := AnsiUpperCase(ImageSRC);
          for i := 1 to iColl.Get_length do
          begin
            iDisp := iColl.item(Pred(i), 0);
            iDisp.QueryInterface(HTMLInputImage, InputImage);
            if Assigned(InputImage) then
            begin
              if Pos(ImageSRC, AnsiUpperCase(InputImage.src)) <> 0 then
              begin
                InputImage.Click;
              end;
            end;
          end;
        end;
      end;
    end;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  WB_ClickImage(Webbrowser1, 'blablabla.gif');
end;

[n000b]

Hey, vielen Dank für die Hilfe!
Delphi zeigt paar fehler an ...kann es nicht complieren..

Delphi-Quellcode:

Z.B. bei:
iDoc: IHtmlDocument2;

undeclered idintifer IHtmlDocument2...
muss da noch was bei "uses:" hin oder wieso geht es nicht?
Mfg


PS: Frohe OSTERN!!

[toms]

Delphi-Quellcode:

uses 
  MSHTML;

[n000b]

Vielen Dank^^