2015年11月26日
Delphi下获取IE的UserAgent的方法
方法一：使用SHDocVw, MSHtml单元提供的一些方法利用浏览器的特性来获取。uses SHDocVw, MSHtml;function GetUserAgent: string;varDoc: IHTMLDocument2;win: IHTMLWindow2;wb: TWebBrowser;... Read More
posted @ 2015-11-26 21:33 findumars Views(739) Comments(0) Diggs(0)
Delphi使用Windows API函数AnimateWindow实现窗体特效
{**********************************************************************API函数 AnimateWindow 使用：函数功能：窗体显示和隐藏时产生特殊的动画效果；可以产生两种类型的动画效果：滚动动画 和 滑动动画函数原型：BOO... Read More
posted @ 2015-11-26 21:32 findumars Views(807) Comments(0) Diggs(0)
Delphi下URL汉字编码解码的两个函数
//汉字URL编码函数function URLEncode(const S: string; const InQueryString: Boolean): string;varIdx: Integer; //逐个字符循环直至字符串结束beginResult := '';for Idx := 1 to... Read More
posted @ 2015-11-26 21:31 findumars Views(595) Comments(0) Diggs(0)
Delphi2007下CIS的clHttp使用
Delphi组件Clever Suite Internet是一款优秀的网络组件，唯一让我感觉不足的是ClHttp竟然使用了断言，当程序遇到问题的时候就会弹出一个对话框，并显示问题是出在了那个单元里。好了，言归正传，发一个Delphi2007下使用ClHttp的例程。procedure TForm1.... Read More
posted @ 2015-11-26 21:30 findumars Views(779) Comments(0) Diggs(0)
Delphi使用XmlHttp获取时间
uses ComObj, DateUtils;procedure TForm1.Button1Click(Sender: TObject);var XmlHttp: Variant; datetxt : String; DateLst : TStringList; mon: String; ... Read More
posted @ 2015-11-26 21:26 findumars Views(705) Comments(0) Diggs(0)