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