WebBrowser自动填充打开文件对话框

浏览数：48 / 时间：2015年06月09日

WebBrowser自动填充打开文件对话框

在使用WebBrowser编写自动表单填写软件的时候，不知道大家是否遇到国填写文件选择表单的情况。遇到这种情况的时候，无法直接队Html元素赋值，必须模拟手工选择的办法（是否有其它解决办法，不得而知），下面我们来说一下我的解决办法，如下：

1、先说一下正常表单的填写方式，在Delphi+WebBrowser的环境下，可采用如下代码：

WebBrowser.OleObject.document.all.item(‘XXX‘, 0).value :=xxx;

2、针对于文件选择表单，我们可以先模拟一下点击，打开文件选择对话框:

WebBrowser.OleObject.document.all.item(‘click‘, 0).value;

3、然后我们采用枚举子窗体的办法，找到文件输入位置，及"确定"按钮，以模拟选择文件：

//...
function EnumProc(Hwnd: THandle; LB: LongInt): Boolean; stdcall;
//...
function EnumProc(Hwnd: THandle; LB: LongInt): Boolean; stdcall;
var CName: array[0..255] of char;
  path: string;
  i: integer;
begin
  GetClassName(Hwnd, CName, 255);
  if CName = ‘Edit‘ then
  begin
    path := extractfilepath(Application.ExeName) + ‘检索\‘ + nameStr + ‘.bmp‘;
    for i := 1 to length(path) do
    begin
      PostMessage(Hwnd, WM_CHAR, WPAram(path[i]), 1);
    end;
    //次数模拟选择文件，就是将文件的位置填写到选择框内。
  end;
  if (TName = ‘打开(&O)‘) or (TName =‘确定‘) then
  begin
    PostMessage(Hwnd, WM_LBUTTONDOWN, 0, 0);
    PostMessage(Hwnd, WM_LBUTTONup, 0, 0);
    //此处模拟点击
  end;
 
  Result := True;
end;
//...
Procedure FindWin();//调用
var Hwnd:THandle;
begin
 hwnd := FindWindow(nil, Title);
 //Title为文件选择窗口标题
 if Hwnd <> 0 then
 begin
   EnumChildWindows(Hwnd, @EnumProc, lp);
 end;
end;