Warum funktioniert dieser Code nicht bei diesem Inputfeld?

[richard_boderich]

Hallo Delphianer!

Kann mir jemand sagen, warum sich in dieses Html Inputfeld kein Text eintragen lässt? Habe schon im Forum nachgeschaut und diverse Codesequenzen getestet - keiner hat funktioniert! bin momentan etwas ratlos.

mfG Richard

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  WB.Navigate('http://www.virustotal.com/de');
  while (WB.ReadyState <> READYSTATE_COMPLETE)
    and not (Application.Terminated) do
  begin
    Application.ProcessMessages;
    Sleep(0);
  end;
  WB.OleObject.document.forms.item(0).elements.item('archivo').value:='C:\test.txt';
  //WB.OleObject.document.forms.item(0).submit();

end;

[himitsu]

Weil man in ein Datei-upload-feld seitens Microsoft softwareseiteig keine Dateien mehr eintragen kann/darf ... wegen der Sicherheit.

Lösungen:
- über SendKeys den Namen dahinsenden (so hab ich's letztendlich gemacht, weil einfacher, nur muß dafür das Programm aktiv sein, also die Tastatureingae empfangen)
- Handle des Editfeldes rausbekommen und dann darüber mit SetText und Co. reinschreiben

[add]
irgendwo gibt's hier auch schon soein Thema von/mit mir, aber ich find es grad nichtmehr.
> http://www.delphipraxis.net/internal...t=%2Aupload%2A

[xaromz]

Hallo,

Zitat von himitsu:

- Handle des Editfeldes rausbekommen und dann darüber mit SetText und Co. reinschreiben

Ich dachte, UI-Controls im IE haben kein Handle. Die wurden doch vom IE-Team komplett nachgebaut (mit kleinen Fehlern übrigens), genau um eben kaum Systemressourcen zu verbrauchen.

Gruß
xaromz

[himitsu]

Zitat von xaromz:

Ich dachte, UI-Controls im IE haben kein Handle. ...

Dieses hatte mir mal jemand vorgeschlagen.

na dann kann ich ja froh sein damals nicht erst nach den Handles zu suchen
und den Einfachen Weg wählte (jedenfalls bei einem privatem und selten genutzten Programm stört sowas kaum)