Filebutton im TWebbrowser anklicken

[Smaraner]

Hallo,

ich habe versucht mit dem unten veränderten Quelltext einen Button anzuklicken. Das hat auch funktioniert. Wenn ich das gleiche mit einem "Hochladebutton" mache funktioniert es nicht. Mein Quelltext:

Delphi-Quellcode:

procedure TFormEinlesung.Button3Click(Sender: TObject);
var
  ovElements: OleVariant;
  i: Integer;
begin
  ovElements := WebBrowser1.OleObject.Document.Forms.item(0).elements;
  for i := 0 to (ovElements.Length - 1) do
    if (ovElements.item(i).tagName = 'userfile') and
      (ovElements.item(i).type = 'file')then
      ovElements.item(i).Click;
end;

hier der HTML Code:

Code:

<input name="userfile" type="file" size="40" value="Select file">

Smaraner

[zeras]

Ich habe das auch mal versucht mit dem IE. Meines Wissens ist das aus Sicherheitsgründen nicht erlaubt. Das war aber der Stand von vor einigen Monaten.

[Volker Z.]

Hallo,

mir ist kein HTML-Tag bekannt, das "userfile" heißt. Du kannst es aber mal so versuchen

Delphi-Quellcode:

procedure TFormEinlesung.Button3Click(Sender: TObject);
var
  ovElements: OleVariant;
  i: Integer;
begin
  ovElements := WebBrowser1.OleObject.Document.Forms.item(0).elements;
  for i := 0 to (ovElements.Length - 1) do
    if (ovElements.item(i).name = 'userfile') and (ovElements.item(i).type = 'file') then
      ovElements.item(i).Click;
end;

dann sollte es auch klappen.

Gruß

[Smaraner]

Danke. Hat geklappt.