HTMLDocument:ihtmldocument2;

begin

     try

        makehtml;

     except

         on e:exception do

        //showmessage(''''出错！''''+e.Message);

        //exit;

     end;

    HTMLDocument := (WebBrowser1.Document as IHTMLDocument2);

    v := VarArrayCreate([0, 0], varVariant);

    v[0] := htmlbody; // Here''''s your HTML string

    HTMLDocument.Write(PSafeArray(TVarData(v).VArray));

    HTMLDocument.Close;  

end;

然后模拟点击网页的提交按钮，提交表单数据：

表格 3

procedure TFrmMain.submitForm;

var

      obj:OleVariant;

      doc: ihtmldocument2;

begin

    doc:=(WebBrowser1 .Document as IHTMLDocument2);

        if doc <> nil then

            begin

                //RichEdit1.text:=doc.body.innerText;

                obj:=doc.all.item(''''sub'''',0);

                obj.click;

            end;

end;

设置代理服务器：

表格 4

function TFrmcheckproxy.ChangeProxy(const Proxy, Port,ByPass: string; const bEnabled: boolean = True): boolean;

var

  reg: Tregistry;

  info: INTERNET_PROXY_INFO;

  Fproxy:string;

begin

  Result := False;

  FProxy:=Format(''''%s:%s'''',[Proxy,Port]);

  reg := Tregistry.Create;

  try

    reg.RootKey := HKEY_CURRENT_USER;

    if reg.OpenKey(''''\Software\Microsoft\Windows\CurrentVersion\Internet Settings'''', True) then

    begin

      reg.Writestring(''''ProxyServer'''', Fproxy);

      reg.WriteInteger(''''ProxyEnable'''', integer(bEnabled));

      info.dwAccessType := INTERNET_OPEN_TYPE_PROXY;

      info.lpszProxy := pchar(proxy);

      info.lpszProxyBypass := pchar(ByPass);

      InternetSetOption(nil, INTERNET_OPTION_PROXY, @info, SizeOf(Info));

      InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);

//      InternetSetOption(nil, INTERNET_OPTION_REFRESH, nil, 0);

//      Sendmessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);

      Result:=True;

    end

  finally

    reg.CloseKey;

    reg.free;

  end;

end;

上一页  [1] [2] [3] [4]  下一页