05 2009 档案
摘要:由于博主原来BLOG所在的服务器(http://xieyunc.jxstnu.edu.cn/)经常出现安全性和稳定性的故障,博主终于忍无可忍决定搬家了,新家将安放在CSDN上:http://blog.csdn.net/xieyunc。博客迁移工作从2009-04-22日开始,至今天正式完成,希望喜欢我的朋友更新一下您的链接,更希望您以后常来!为旧博特截一图以留纪念(至2009-05-02 12:10 为止,访问量为346672次了):访问原BLOG主页:http://xieyunc.jxstnu.edu.cn/忍无可忍的小宇飞刀2009-4-22 19:23
阅读全文
摘要:一、如果在Web Module单元中,可用如下语句实现(这其实是WebBroker技术):Request.RemoteAddr;二、如果是ISAPI/CGI的WebService中,*impl.pas中是无法存取Web Module单元的(uses了也不行的),如何实现?服务器端实现的接口函数里,如何知道调用这个接口函数的客户端的IP? 在实现部分的代码里, uses WebBrokerSoap单元然后,可以通过以下代码直接获得当前调用这个函数的客户端的IP:GetSOAPWebModule.Request.RemoteAddr;GetSOAPWebModule 这个函数是在 WebBroke
阅读全文
摘要:一、如果在Web Module单元中,可用如下语句实现(这其实是WebBroker技术): Request.RemoteAddr;二、如果是ISAPI/CGI的WebService中,*impl.pas中是无法存取Web Module单元的(uses了也不行的...
阅读全文
摘要:前几天BLOG所有的服务器出了一点故障,导致清明节那几天无法访问。给各位朋友带来的不便说声Sorry!by xieyunc 2009-4-8 10:02
阅读全文
摘要:INI文件在系统配置及应用程序参数保存与设置方面,具有很重要的作用,Delphi为我们提供了一个TIniFile类,以便我们可以非常灵活的处理INI文件。一.INI文件的结构 ;注释语句[小节名1]关键字1=值1关键子2=值2.....[小节名2]关键字1=值1关键子2=值2..... INI文件允许有多个小节,每个小节又允许有多个关键字,“=”后面是该关键字的值。INI文件中的关键字的值的支持的类型有三种:字符串、整型数值和布尔值。其中字符串存贮在INI文件中时一般没有引号(在Delphi中可以加入引号),布尔真值用1表示,布尔假值用0表示。二、定义1、在Interface的Uses节增加.
阅读全文
摘要:INI文件在系统配置及应用程序参数保存与设置方面,具有很重要的作用,Delphi为我们提供了一个TIniFile类,以便我们可以非常灵活的处理INI文件。一.INI文件的结构 ;注释语句[小节名1]关键字1=值1关键子2=值2.....[小节名2]关键字1...
阅读全文
摘要:我在巨大的沙尘暴中为你挡风,我在油迹斑斑的河床与你荡舟,当我们都在奢谈爱情的时候,它们却在荒凉绝望破铜烂铁的未来,爱得死去活来。你不应错过,因为这是皮克斯的动画长片《WALL·E》(又名《机器人瓦力》)…… 一般科幻类的作品对于人类未来的描述往往充满着巨大的绝 望,如果从《WALL·E》所设定的背景而言,似乎也符合某个孤独英雄承担起拯救人类未来的叙事——影片的背景类似于《我是传奇》与《黑客帝国》的混合 体,空旷荒凉的被遗弃的都市,每天如期而至的沙尘暴,未来人类已经彻底放弃了被垃圾包围的地球,只剩下一个孤独的垃圾分装机器人在不知疲倦地忙碌。而遥远 的宇宙中,运载着逃难人类的巨
阅读全文
摘要:用 PHP 读取和编写 XML DOM使用 DOM 库、SAX 解析器和正则表达式[转自:http://www.ibm.com/developerworks/cn/opensource/os-xmldomphp/]级别: 中级Jack Herrington (jack_d_herrington@codegeneration.net), 高级软件工程师, "Code Generation Network"2006 年2 月06 日有许多技术可用于用 PHP 读取和编写 XML。本文提供了三种方法读取 XML:使用 DOM 库、使用 SAX 解析器和使用正则表达式。还介绍了使用
阅读全文
摘要:用 PHP 读取和编写 XML DOM使用 DOM 库、SAX 解析器和正则表达式[转自:http://www.ibm.com/developerworks/cn/opensource/os-xmldomphp/] 级别: 中级Jack Herrington (j...
阅读全文
摘要:NuSOAP 是 PHP 环境下的 WEB 服务编程工具,用于创建或调用 WEB 服务。它是一个开源软件,当前版本是 0.7.2 ,支 持 SOAP1.1 、 WSDL1.1 ,可以与其他支持 SOAP1.1 和 WSDL1.1 的系统互操作。 NuSOAP 完全由PHP语言编 写,由一系列 PHP 类组成,不需要扩展库的支持,这种特性使得 NuSOAP 可以用于所有的 PHP 环境,不受服务器安全设置的影响。1. NuSOAP 的获取和安装NuSOAP 项目建立在 SourceForge 上,网络地址是: http://sourceforge.net/projects/nusoap/ 或 .
阅读全文
摘要:NuSOAP 是 PHP 环境下的 WEB 服务编程工具,用于创建或调用 WEB 服务。它是一个开源软件,当前版本是 0.7.2 ,支 持 SOAP1.1 、 WSDL1.1 ,可以与其他支持 SOAP1.1 和 WSDL1.1 的系统互操作。 NuSOAP 完全...
阅读全文
摘要:现有 Delphi 项目迁移到 Tiburon 中的注意事项 翻译:峪飞鹰随着 Embarcadero 8 月 25 号 发布 RAD Studio 2009 (Tiburon) 以来(Tiburon 的 RTM 日期可能要延后到 9 - 10 月),随 着 Tiburon 全面支持 Unicode,现有的 Delphi / C++ Builder 项目要迁移到 Unicode 下应该注意些什么也 成为大家最为关心的问题。Tiburon 对 Unicode 的支持不仅仅是将原来 类型映射为 AnsiString 的 String 类型直接改 成 WideString,而是对 AnsiStrin
阅读全文
摘要:现有 Delphi 项目迁移到 Tiburon 中的注意事项 翻译:峪飞鹰随着 Embarcadero 8 月 25 号 发布 RAD Studio 2009 (Tiburon) 以来(Tiburon 的 RTM 日期可能要延后到 9 - 10 月),随 着 Tib...
阅读全文
摘要:自己程序中的一段代码,进程防杀。根据网上面流传的进程防杀的C++代码改编。 DLL部分: PIMAGE_IMPORT_DESCRIPTOR=^_IMAGE_IMPORT_DESCRIPTOR; PImageImportDescriptor=PIMAGE_IMPORT_DESCRIPTOR; _IMAGE_IMPORT_DESCRIPTOR=packedrecord CharacteristicsOrOriginalFirstThunk:DWord; TimeDateStamp:DWord; ForwarderChain:DWord; Name:DWord; FirstThunk:DWord;.
阅读全文
摘要:自己程序中的一段代码,进程防杀。根据网上面流传的进程防杀的C++代码改编。 DLL部分: PIMAGE_IMPORT_DESCRIPTOR = ^_IMAGE_IMPORT_DESCRIPTOR; PImageImportDescriptor = PIMA...
阅读全文
摘要:[转帖]一名Delphi程序员的开发习惯(非技术问题)有关开发习惯的一些想法,如鲠在喉,不吐不快。究其发贴动机,当然不排除有骗取参与分的可能,但另一方面,也希望能给同行(念Xing)者提供一些建议,或者参考(希望不是误人子弟)。同时,也希望各位能够就我的这些陋习,发表一点看法,给出批评和指正的意见。谢谢。一.建立工程目录首先,第一步要做的,当然是给新项目建一个单独的目录(别笑)。目录名称与项目名称同名,或者另取一个也可,只要清楚、简练。然后,在此目录中创建以下各个目录: Doc:用来存放该项目相关的开发文档(需求说明,概要设计,详细设计等等等等);Source:用来存放Delphi源程序中的”
阅读全文
摘要:[转帖]一名Delphi程序员的开发习惯(非技术问题)有关开发习惯的一些想法,如鲠在喉,不吐不快。究其发贴动机,当然不排除有骗取参与分的可能,但另一方面,也希望能给同行(念Xing)者提供一些建议,或者参考(希望不是误人子弟)。同时,也希望各位能够就我的这些陋习,发...
阅读全文
摘要:简介:这是一个Microsoft SQL Server 2000/2005/2008的通用数据库创建程序,它可以让我们制作的应用程序的分发和部置更显专业化。功能:1、可自动创建任意SQL数据库;2、可由用户自定义数据库的存放路径;3、可由用户自定义数据库用户名及密码;4、可在建库时按需初始化数据;使用方法:1、Create_db_Set.ini文件的配置,有详细注解,一看就应明白。//本脚本配置文件名必须为:Create_db_Set.ini[CREATE_DB_SET]//系统名称 注释内容必须放在单独的行中SYSNAME=网上考试系统//新数据库默认名称,若有多个数据库名称,用“&
阅读全文
摘要:1、已修正日期格式为“YYYY-MM-DD”;2、制作了一个Demo程序。控件简介及截图:http://vir.jxstnu.edu.cn/xieyunc/read.php?242 最新控件源码下载地址:点击这里下载文件: AutoUpgraderPro美化版_已修改日期格式.rarDemo Exe文件及源码下载地址:点击这里下载文件: AutoUpdateDemo_Source.rarDemo执行示意图:
阅读全文
摘要:1、已修正日期格式为“YYYY-MM-DD”;2、制作了一个Demo程序。控件简介及截图:http://vir.jxstnu.edu.cn/xieyunc/read.php?242 最新控件源码下载地址:点击这里下载文件: AutoUpgraderPro美化版_已修...
阅读全文
摘要://----------------------------------------------// Unit Name: FileExt.pas// Comment: 读写UTF8和UNICODE格式文件的一组函数// Author: xieyunc 改自网络// Date : 2007-11-23 10:47:59//----------------------------------------------unit FileExt;interfaceuses SysUtils,Windows,Types,Classes;constutf8Head:Array[0..2] of Char
阅读全文
摘要:Delphi虚拟键码对照表虚拟键码对应值 对应键VK_LBUTTON1鼠标左键VK_RBUTTON2鼠标右键VK_CANCEL3CancelVK_MBUTTON4鼠标中键VK_XBUTTON15VK_XBUTTON26VK_BACK8BackspaceVK_TAB9TabVK_CLEAR12ClearVK_RETURN13EnterVK_SHIFT16ShiftVK_CONTROL17CtrlVK_MENU18AltVK_PAUSE19PauseVK_CAPITAL20Caps Lock VK_KANA21VK_HANGUL21VK_JUNJA23VK_FINAL24VK_HANJA25VK_
阅读全文
摘要://----------------------------------------------// Unit Name: FileExt.pas// Comment: 读写UTF8和UNICODE格式文件的一组函数// Author: xieyunc 改自网络//...
阅读全文
摘要:Delphi虚拟键码对照表虚拟键码对应值 对应键VK_LBUTTON1鼠标左键VK_RBUTTON2鼠标右键VK_CANCEL3CancelVK_MBUTTON4鼠标中键VK_XBUTTON15 VK_XBUTTON26 VK_BACK8BackspaceVK_TA...
阅读全文
摘要:前几天买了两套无线键鼠套装,一套是雷柏的8100,自已用。该键盘鼠标的特点是美观时尚,键盘手感很好,鼠标DPI为1000DPI,操作灵敏,手感也很不错,而且是2.4G的,最长距离键盘实际可达8米左右,鼠标13米左右,标称10米,总体来说性能优秀,物有所值。另一套是罗技蓝铂Labtec无线键鼠套装,给儿子用的,鼠标的做工和手感一流,就是DPI值低了点,才800DPI,按理说采用了按捷伦A5030芯片,理论上是支持1000DPI的,为何只有800DPI,灵敏度好像只有8100的500DPI的样子,使用过程中有点跳帧,不知道是不是我不会调。键盘做工很好,因为是面向欧洲市场的,有几个的安键的布局和标准
阅读全文
摘要:几年前为客户做的系统,最近几天要升级,说是以前UserName的长度不够,原来是10现在突然变成了20位,要求修改一下,以前系统作了输入位数限制的,但源代码所在硬盘几年前物理层面上GAME OVER了,这下可好?!——%*——¥*##(+_)+)_)。没办法,总不能因为这个重写吧,那至少要2-3个月,而且客户催得像住房上火一样,今天说明天就要!咋办?做一次黑客吧,把自已的系统给改了(还好以前做的系统没加壳,要不,怕怕——#*+_|¥——*%#),改客户端、改数据库创建程序、改服务端、改数据库导入导出工具、重新打包,累了一上午带一中午终于完成了!
阅读全文
摘要:AutoUpgraderPro是一个非常优秀的自动升级控件,它有For Delphi 6.0~2007和C++Builer 6.0~2007的所有版本,而且支持20多种语言。 但是美中不足的是,在中文环境下的字体非常难看,而且图标和图示也很难看。于是在Ver 4.1.1的原版的基础上对它进行了美化,并且加入了对Delphi2007的支持。修改内容:*修改了所有窗体的默认字体为Tahoma 9号字体,中英文都非常漂亮了。*修改了自动升级时要求确认窗体的按钮提示。*美化了升级窗口和下载提示窗口的图标和提示图片。美化后的截图如下:控件下载: 点击这里下载文件: AutoUpgraderPro美化版.
阅读全文
摘要:AutoUpgraderPro是一个非常优秀的自动升级控件,它有For Delphi 6.0~2007和C++Builer 6.0~2007的所有版本,而且支持20多种语言。 但是美中不足的是,在中文环境下的字体非常难看,而且图标和图示也很难看。于是在Ver ...
阅读全文
摘要:用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...
阅读全文
摘要:Ehlib3.0以后的版本虽然支持排序功能,但不支持带有Order By的SQL语句,而且排序很慢;我写的这个排序函数,利用ADO的sort方法,排序很快,几万条数据也是很快。该函数支持Lookup字段排序,不支持计算字段排序,因为计算字段值在内存里高速运算。排序分为:升序、降序和默认三种,支持排序图标。procedureSortDBGridEh(Sender: TObject; ACol: Integer;Column: TColumnEh);varFieldName, SortStr: string;beginScreen.Cursor := crSQLWait;tryif (Sender
阅读全文
摘要:Ehlib3.0以后的版本虽然支持排序功能,但不支持带有Order By的SQL语句,而且排序很慢;我写的这个排序函数,利用ADO的sort方法,排序很快,几万条数据也是很快。该函数支持Lookup字段排序,不支持计算字段排序,因为计算字段值在内存里高速运算。排序分...
阅读全文
摘要:{似乎很多人都需要这个。Delphi自带的listview无法在排序时自动加上箭头。如果设置Column[I].ImageIndex = a,箭头会出现在文字左边,需要修改ComCtrls.pas才能使图片出现在右边。并且TListItem的Caption项会自动加上图标,没有图标则留出一个空白,非常难看。这个修改过的控件解决了这些问题。这个控件需要从资源文件中装载两个箭头图片,你需要自己制作。或者下载SJListview,里面有SJListview.res资源文件。}{*******************************************************}{ }{Co
阅读全文
摘要:{似乎很多人都需要这个。Delphi自带的listview无法在排序时自动加上箭头。如果设置Column[I].ImageIndex = a,箭头会出现在文字左边,需要修改ComCtrls.pas才能使图片出现在右边。并且TListItem的Caption项会自动加上...
阅读全文
摘要:如何实现应用程序中的”回车”成TAB?其实方法有很多种,但哪一种才是最简洁、最灵活的呢?下面的方法就是博主最常使用的方法:一、在你的数据模块中,添加如下代码:interface。。。。。。typeTMessageHandler = class //使得回车消息转换成Tab消息class procedure AppMessage(var Msg:TMsg;var Handled:Boolean);end; implementation class procedure TMessageHandler.AppMessage(var Msg: TMsg; var Handled: Boolean);b
阅读全文
摘要:如何实现应用程序中的”回车”成TAB?其实方法有很多种,但哪一种才是最简洁、最灵活的呢?下面的方法就是博主最常使用的方法:一、在你的数据模块中,添加如下代码:interface 。。。。。。 type TMessageHandler = class ...
阅读全文
摘要:教材管理系统紧张开发中,系统也许不大,可是业务比较复杂、交叉性很强,教学计划、课程代码、教材、供货商、分校点、系部、教师、学生、库存、盘点、结算、数据采集、征订、订购、分发、收费一个都不能少!既有C/S三层又有Web模式,痛苦ing.......WebService服务模式:数据库平台:MS SQL2000 服务端:COM+加WebService客户端:CS模式+Web模式服务器基本完成,CS客户端完成75%左右,Web端50%左右。上个图先:上面是服务端的部分截图,下面是客户端的:
阅读全文
摘要:教材管理系统紧张开发中,系统也许不大,可是业务比较复杂、交叉性很强,教学计划、课程代码、教材、供货商、分校点、系部、教师、学生、库存、盘点、结算、数据采集、征订、订购、分发、收费一个都不能少!既有C/S三层又有Web模式,痛苦ing....... WebS...
阅读全文
摘要:在Delphi2007下安装了最新的EhLib v4.2.6,发现 DBGridEh 无法进行排序和过滤,执行操作时无反应。后来发现,如果选择本地过滤和排序的话,一切都会正常;如果是服务器端排序和过滤,则无法正常执行,错误信息为类型转换错误。跟踪EhLib代码发现,是DBUtilsEh.pas文件中的SetDataSetSQLLikeProp 和IsDataSetHaveSQLLikeProp 函数中的以下相关代码报错: …… if (TObject(GetOrdProp(DataSet, FPropInfo)) as TStrings) <> nil then S...
阅读全文
摘要:在Delphi2007下安装了最新的EhLib v4.2.6,发现 DBGridEh 无法进行排序和过滤,执行操作时无反应。后来发现,如果选择本地过滤和排序的话,一切都会正常;如果是服务器端排序和过滤,则无法正常执行,错误信息为类型转换错误。跟踪EhLib代码发现...
阅读全文
摘要:由于从 Delphi2005开始支持中文标识符,在编写 PASCAL 词法分析器的过程中遇到了这个问题,经过多次试验找到了解决方案,至今未发现问题。代码如下://判断字符是否是汉字 function IsHZ(ch: WideChar): boolean; var i:integer; begin i:=ord(ch); if( i<19968) or (i>40869) then result:=false else result:=true; end; 2005年1月28日:感谢滚龙的指点,已将代码改写如下://判断字符是否是汉字 fu...
阅读全文
摘要:由于从 Delphi2005开始支持中文标识符,在编写 PASCAL 词法分析器的过程中遇到了这个问题,经过多次试验找到了解决方案,至今未发现问题。代码如下://判断字符是否是汉字 function IsHZ(ch: WideChar): boolean; ...
阅读全文
摘要:NuSoap是PHP环境下的WebService编程工具,用于创建或调用WebService。它是一个开源软件,是完全采用PHP语言编写的、通过HTTP收发SOAP消息的一系列PHP类,由NuSphere Corporation(http://dietrich.ganx4.com/nusoap/ )开发。NuSOAP的一个优势是不需要扩展库的支持,这种特性使得NuSoap可以用于所有的PHP环境,不受服务器安全设置的影响。
阅读全文
摘要:在这一实例中,计算机中有两块网卡,其中一块为无线网卡,另一块为8139的100M以太网卡,无线网卡已连接可上网,有线网卡我故意把网线拔了。从图中可以看出检测完全正确,而且更难能可贵的是检测速度非常快,几乎不占任何资源(CPU负荷几乎没有)。
阅读全文
摘要:Delphi 调用外部程序并等待其运行结束,顺带测试一下cnblogs支不支持语法高亮功能。
阅读全文