10 2011 档案

判断WebBrowser是否加载完成.
摘要：FirstpDisp:IDispatch;//全局变量；ChkOpen,ChkOk:Boolean;//全局变量；FirstpDisp:=nil;//浏览URL之前赋nil；procedureTForm1.FormCreate(Sender:TObject);beginChkOpen:=true;ChkOk:=false;end;procedureTForm1.WebBrowser1BeforeNavigate2(Sender:TObject;constpDisp:IDispatch;varURL,Flags,TargetFrameName,PostData,Headers:OleVarian 阅读全文

posted @ 2011-10-26 11:41 jxgxy 阅读(378) 评论(0) 推荐(0)

idHTTP使用代理IP
摘要：procedure TForm1.btn1Click(Sender: TObject);var Http:TIdHTTP;begin Http := TIdHTTP.Create(nil); Http.ProxyParams.ProxyServer := '91.211.141.249'; //代理IP Http.ProxyParams.ProxyPort := 8080; Http.ProxyParams.ProxyUsername := ''; Http.ProxyParams.ProxyPassword := ''; //百度和GG屏蔽了i 阅读全文

posted @ 2011-10-10 11:05 jxgxy 阅读(442) 评论(0) 推荐(0)

导航