摘要：
用AdoQuery从脚本文件读入内容，执行时提示“不正常地定义参数对象”，“提供了不一致或不完整的信息”之类的错误，本以为是SQL语句有问题，用查询分析器执行时没有发现错误，一切OK。但一到Delphi中执行就提示“不正常地定义参数对象”，“提供了不一致或不完整的信息”。用Google对关键字进行检索，发现有提示，说是由于TADOQuery对象把":"后的字符当作变量来使用，导致数据识别错误。只要把 TADOQuery.ParamCheck设置为False即可。一试，果然如此。 阅读全文
摘要：
用AdoQuery从脚本文件读入内容，执行时提示“不正常地定义参数对象”，“提供了不一致或不完整的信息”之类的错误，本以为是SQL语句有问题，用查询分析器执行时没有发现错误，一切OK。但一到Delphi中执行就提示“不正常地定义参数对象”，“提供了不一致或不完整的信... 阅读全文
摘要：
Webplayer9是一个非常优秀的P2P电影点播系统，速度一流，拖动无任何延时，是做高清影片点播系统的绝对一流的选择。只是它自身带的批量电影添加工具实在不好用，这么优秀的系统如果因为这一个缺憾而放弃的话，岂不太可惜了。于是有了下面这个工具。 这是一个专为WebPlayer9电影整站系统而设计的电影批量添加程序！相对于WebPlayer9自带的批量添加程序增加了如下功能：1、自动处理所有的电影分类名称和文件夹名称相同的影片。2、自动处理影片文件夹中的图片文件和Txt文件作为影片的预览图和简介。3、修正了原WebPlayer9自带的工具会重复添加电影的BUG。 注：请把本工具放在WebPlay. 阅读全文
摘要：
TStrings是一个抽象类，在实际开发中，应该是除了基本类型外应用得最多的一种数据类型了。常规的用法大家都知道，现在来讨论它的一些高级的用法。先把要讨论的几个属性列出来：1、CommaText2、Delimiter & DelimitedText3、Names & Values & ValueFromIndex先看第一个：CommaText。怎么用呢？用代码说话：constconstr :String = 'aaa,bbb,ccc,ddd';varstrs :TStrings;i :Integer;beginstrs := TStringList.Cr 阅读全文
摘要：
TStrings是一个抽象类，在实际开发中，应该是除了基本类型外应用得最多的一种数据类型了。常规的用法大家都知道，现在来讨论它的一些高级的用法。先把要讨论的几个属性列出来：1、CommaText2、Delimiter & DelimitedText3、Names &... 阅读全文
摘要：
卿本佳人，奈何作贼！------每见此语，心如刀绞！ 阅读全文
摘要：
本文主要描述的是如何利用Delphi对Web IIS进行控制，应该说常用的功能基本都有了。为了共用我已把它做成了一个独立的单元文件，大家可直接下载，这样我们只要直接在程序uses uIIS就可以使用了，同时我也做了一个演示程序。一、如何得到机器上IIS中所有的WEB虚拟站点.function GetWebSiteList(slWebSiteList:TStrings):Integer;varInstallPath: String;WebSite, WebServer, WebRoot: Variant;iCount: Integer;Flag: Boolean;beginResult := 0 阅读全文
摘要：
本文主要描述的是如何利用Delphi对Web IIS进行控制，应该说常用的功能基本都有了。为了共用我已把它做成了一个独立的单元文件，大家可直接下载，这样我们只要直接在程序 uses uIIS就可以使用了，同时我也做了一个演示程序。一、如何得到机器上IIS中所... 阅读全文
摘要：
usesTypInfo;typeTTest = (clRedX, clGreenX,clBlueX,clBlackX,clWhiteX,clYellowX);procedure TForm1.Button1Click(Sender: TObject);varti: PTypeInfo;td: PTypeData;i: Integer;beginti := TypeInfo(TTest);td := GetTypeData(ti);for i := td^.MinValue to td^.MaxValue doListBox1.Items.Add(GetEnumName(ti, i));end; 阅读全文
摘要：
uses TypInfo;type TTest = (clRedX, clGreenX,clBlueX,clBlackX,clWhiteX,clYellowX); procedure TForm1.Button1Click(Sender: TObject);v... 阅读全文