- 博客(5)
- 收藏
- 关注
RSS订阅原创 编写一个单独的Web Service for Delphi7(步骤)
早段时间看了一篇好文章,对其整理成以下几步1新建一个SOAP Server Application,在提示输入接口时输入MyHello,把所有文件 保存在一个叫Ser的目录下,其中一个包含TWebModule1的文件保存为main.pas. 在MyHelloIntf.pas的IMyHello接口中加入function Welcome(name:string):string;stdcall; 在
2003-04-14 09:13:00
986
原创 用面向对象方法解决24点问题
算法思路 计算24点，可以抽象描述为：求代数系统的子系统的所有运算结果为24的运算。一般情况下有很多性质，如交换律,i+j=j+i,结合律，i+(j+k)=(i+j)+k等等，为了使我这个惰人写代码方便，我去掉所有规律（这样使运算量加几倍了，呵呵，相信可以用来烤机了），并加上一个一元运算符~，~I=I I属于SInteger,再加上一个似乎破坏了数学完美性的规则，SInteger中的元
2003-03-17 09:00:00
968
原创 简单分析TXMLDocument内部结构
第一次对TXMLDocument感兴趣，也是第一次使用TXMLDocument的时候，当时，我在修改一个软件，只是想加一点功能，由于时间不多，我决定先做一个接口，再慢慢扩充，但如何使接口扩充性能好，能与各种工具混合，于是我想到了java用XML做配置的方法，语法很多想法来自C＋＋，架构多来自java（上面哪部分想法也是抄自Java,哈哈），实现当然是用Delphi了，于是写了一个配置文件，发现T
2003-02-14 08:58:00
927
原创 用Delphi轻松实现背景播放
Delphi的VCL封装得很好，使用起来很方便，但在计算机世界中并没有完美的程序，本文介绍通过修改TMediaPlay代码实现在任意窗口播放 作者:testnet 日期：2002.11.28 TMediaPlay中有一个Display属性，它是TWinControl类型，TWinControl是第一个拥有窗口句柄(Handle)的VCL类，TMediaPla
2003-01-15 14:45:00
994
原创 一个很简单的加密算法
当时见到一张帖子即兴写了这段代码,还没认真调试过program Project1;{$APPTYPE CONSOLE}uses SysUtils;const Key=TESTNET; Cryptograph=有些事还是不知为妙;//不能为0.5,相加为1 Percent1=0.21; Percent2=0.79;var s1:string;function GetKey(a
2003-01-13 17:10:00
1081
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人