2012年11月5日
Delphi操作UTF-8转码HTTPEncode
摘要： 引用单元 ;HttpAppprocedureTForm1.Button1Click(Sender:TObject);varStr:WideString;http:AnsiString;beginStr:=Memo1.Text;http:=HTTPEncode(UTF8Encode(Str));Memo2.Text:=http;end;procedureTForm1.Button2Click(Sender:TObject);varStr:WideString;http:AnsiString;beginStr:=Memo2.Text;http:=UTF8Decode(HTTPDecode(Str) 阅读全文
posted @ 2012-11-05 11:46 i努力i 阅读(1458) 评论(1) 推荐(1)
2012年7月17日
如何判断WebBrowser中的页面加载完成
摘要： 如何判断WebBrowser中的页面加载完成WebBrowser.OnDocumentComplete:=wb1DocumentComplete;1procedureTForm1.wb1DocumentComplete(ASender:TObject;constpDisp:IDispatch;2constURL:OleVariant);3begin4ifwb1.ReadyState<READYSTATE_COMPLETEthen5//加载未完成6else7//加载完成8end; 阅读全文
posted @ 2012-07-17 19:12 i努力i 阅读(342) 评论(1) 推荐(0)
2012年6月29日
LockWindowUpdate引起桌面闪烁的解决办法
摘要： Application.ProcessMessages;LockWindowUpdate(Self.Handle); //锁住当前窗口 LockWindowUpdate（0）//解除锁定窗口LockWindowUpdate不但闪烁，而且有可能引起桌面闪烁。因为LockWindowUpdate并不忽略消息，只是暂时不响应，所以有可能积聚多个重画消息，并在使用LockWindowUpdate（0）之后依次响应。而使用SendMessage(ClientHandle,WM_SETREDRAW,0,0)之后，控件根本不接收重画消息，除非使用SendMessage(ClientHandle,WM_SET 阅读全文
posted @ 2012-06-29 14:02 i努力i 阅读(458) 评论(0) 推荐(0)
2011年12月6日
通过利用VLOOKUP函数实现海量数据里快速获得精确查询
摘要： 第一步： A列是日期，B列是流量数据。我们在C3和C5单元格中分别输入提示文字“输入日期：”和“流量IP是：”。 第二步：按Ctrl键不放并单击A列和B列以全部选中这两列，然后执行“插入→名称→定义”命令调出定义名称对话框，为选中的区域设置好名称（如：“流量信息”），单击“添加”后再单击“确定”返回。 第三步：点选D5单元格，输入公式：=IF(ISNA(VLOOKUP(D3,流量信息,2,FALSE)),"没有找到",VLOOKUP(D3,流量信息,2,FALSE))。 解释说明：如果在D5单元格，输入公式：=VLOOKUP(D3,流量信息,2,FALSE)。一样可以实现查 阅读全文
posted @ 2011-12-06 10:21 i努力i 阅读(412) 评论(0) 推荐(0)
2011年11月29日
Delphi 2010 refactor / refactoring 重构不能使用的原因以及解决
摘要： delphi 2010 refactor / refactoring 重构不能使用。经过实验的确是DelphiDistiller上的设置贴心的过头的原因.一切的罪魁祸首就是“Don't load .NET scap”，把"Don't load .NET scap的钩去掉,再确定,强大的重构功能又回来了。 阅读全文
posted @ 2011-11-29 10:04 i努力i 阅读(244) 评论(0) 推荐(0)