delphi的embeddedwb这个怎么获取登录页面发送出去的数据啊？

Question

想利用embeddedwb去做一个自动登录的那种东西，前提是要先获取到页面中的登录框中的输入，。。这样要怎么做呢？

Answer 1

//下面是使用WebBrowser控件做的，和你的控件也差不多。
var
  PhotoStr:string;
  TxtPhotoStr :   IHTMLInputElement;
  ImgPhoto    :   IHTMLImgElement;
begin
  try
        //查找Web页面中存放图片Base64编码的文本框对象
        TxtPhotoStr := (WebBrowser.document as IHtmlDocument2).all.item('Txt_InspectPhotoStr', 0) as IHTMLInputElement;
        //查找Web页面中的Image对象
        ImgPhoto :=  (WebBrowser.document as IHtmlDocument2).all.item('Img_InspectPhoto', 0) as IHTMLImgElement;
        //如果文本框对象找到则赋值
        if TxtPhotoStr <> nil then
          TxtPhotoStr.value := PhotoStr;
        //如果Image对象找到则赋值
        if ImgPhoto <> nil then
        begin
          ImgPhoto.src := '';
          ImgPhoto.src := aImgFilePath;
        end;
      end;
  except on e:exception do
    TSysOper.writeLog('导入照片时失败,错误:' + e.Message);
  end;
end;