URL,v:OleVariant;
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] 下一页 没有相关教程
|