- 博客(8)
- 资源 (26)
- 收藏
- 关注
原创 策略模式
这种模式如果不用面向对象的思想的话,也就是case Type of 1:doCreditCardPayment(); 2:doCheckPayment()end;然后在doCreditCardPayment中复制一段其它支付方式的代码拷到这个过程中,就搞定了!但以后如果需要新增加一种付款方式的话,您必须要打开程序,添加某过程,编译。然后进行整体业务流程的测试。往往
2009-05-20 21:00:00 1495 2
原创 Combobox中禁止鼠标中键滚动list列表
了解原理后,方法有很多!现有2种方法,第1种方法很简单,第2种方法用来让我们了解消息机制//第1种方法procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);begin
2009-05-16 10:09:00 3570
原创 数据库备份/恢复
前几天用MS SQL SERVER2005 做数据库备份与恢复的工作!甲服务器:基准服务器乙服务器:备份服务器需求描述:要求二个Internet上的数据库进行同步,而且服务器两端(甲、乙)仅开放80,21等常用端口(数据库服务器如果完全暴露在外网上,会很危险的。每天都会有很大的流量,流量主要来自于一些无聊的人探测SQL密码,进而控制服务器,轻而把服务器当成他们的FTP免费服务器,重则盗
2009-05-12 15:28:00 552 1
原创 关于分类首条记录的提取
有这样一个表分别为ID,DATETIME,Value,分表是编号,日期,数值,日期为日期型 例如数据是这样的: ID DT Val 1 2009-5-1 12:41:08 200 1 2009-5-1 13:23:08 100 1 2009-5-1 15:42:08 300
2009-05-12 15:19:00 585
原创 DLL对象类型转换
以下案例代码为在dll中创建一个adodataset对象,并把它返回给主调函数 //以下代码是错误的!!!//这一节主要告诉大家,以这种方式进行开发dll是不对的以及错误原因,正确的方式是什么!//DLL内创建对象,并把对象返回function GetDataSet(str,conn:PChar): TADODataSet;stdcall; begin Result:=
2009-05-12 11:42:00 1372 2
原创 字符串转换为计算表达式
有很多种方法:1.利用SQL的Exec()来计算2.利用JavaScript来计算3.利用逆波兰式来计算(比较复杂)这里用JavaScript来实现 uses ComObj;function TForm1.DoCaculate(exp: string): string;var script: Variant;begin script := Crea
2009-05-06 21:53:00 1078
原创 Delphi7调用WebService的注意事项
最近经常看到有朋友问,为何我在调用.NET或JAVA的Webservice时,遇到传递参数的函数总出问题?如果传string类型的参数则会出ESOAPDomConvertError 异常,如果传int等类型则会为0! 解决办法:在用wsdl importer工具生成的代理类中初始化区域插入一条语句:InvRegistry.RegisterInvokeOptions(TypeIn
2009-05-06 21:22:00 3480
Minify Javascript or CSS
2011-05-15
winzip14.5注册机
2010-11-19
BlowFish For php(Delphi版)
2010-01-13
dom4j.jar下载
2009-11-20
commons-collections.jar
2009-11-20
commons-pool-1.1.jar
2009-11-20
SmartPlugin(用于封闭DLL模态窗体,MDI窗体等等诸多功能)
2008-12-12
监控文件夹内的文件的变化(Dir Watcher).
2008-12-12
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人