[cyborgg4655]

WebBrowser загружает страницу html в которой есть <input type="file" /> как программно в этот input воткнуть нужный файл ?

[NumLock]

IHTMLInputFileElement

[cyborgg4655]

Сообщение от NumLock

IHTMLInputFileElement

Примерчик можно?

[cyborgg4655]

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  doc: IHTMLDocument2;
  i: Integer;
begin
try
  doc:=Wb.Document as IHTMLDocument2;
  for i:=0 to doc.all.length-1 do
  begin
      if (doc.all.item(i, 0) as IHTMLInputFileElement).name='image' then
      begin {1}
       //(doc.all.item(i, 0) as IHTMLInputFileElement).value:='c:\1.JPG';
         showmessage('1');
      end;{1}
  end;
except

end;
end;

Ругается, говорит Interface not Supported. в чем проблема?

[NumLock]

не любой элемент может вернуть интерфейс IHTMLInputFileElement. делай проверку.

[cyborgg4655]

До элемента я добираюсь, проверял Showmessage'ем.

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  doc: IHTMLDocument2;
  i: Integer;
begin
try
  doc:=Wb.Document as IHTMLDocument2;
  for i:=0 to doc.all.length-1 do
  begin
      if (doc.all.item(i, 0) as IHTMLElement).id='fld_images' then
      begin {1}
       (doc.all.item(i, 0) as IHTMLInputFileElement).value='c:\1.JPG';
        // showmessage('1');
      end;{1}
  end;
except

end;
end;

А вот файл туда впихнуть непоулчается((