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:

zusammenfalten · markieren

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:

markieren

Code:

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

Smaraner

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.

Hallo,

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

markieren

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ß

Danke. Hat geklappt.