imlangzi-优快云博客

原创此blog全部搬往博客园 http://walkingboy.cnblogs.com

http://walkingboy.cnblogs.com

2009-11-26 13:59:00 1233

原创最欠扁的脑筋急转弯

　　1题目：蓝色的刀和蓝色的枪　　谜底：刀枪不入(blue) 　　2题目：身穿着金色衣服的人　　谜底：一鸣惊人　　3题目：数字“3”在路上走呀走……翻了一个跟斗，又接着翻了一个个…… 　　谜底：三番两次　　4题目：一条狗过了独木桥之后就不叫了　　谜底：过目不忘(汪) 　　5题目：第十一本书　　谜底：不可思议(book11) 　　6题目：牛狗猪羊比赛赛跑……跑到终点后……牛狗猪都喘得不

2005-04-05 08:54:00 2926

原创判断软驱中是否有软盘

方法一： if DiskSize(1)=-1 then //1,2,3....分别代表A,B,C...驱动器 showmessage(驱动器A: 未准备好) else showmessage(驱动器A: 准备好);方法二：（查看剩余空间） function TForm1.isdiskready(drive: char): boolean; var d1,

2005-02-18 10:03:00 2066

原创新年第一天！

大家鸡年大鸡！快到中午才想起中午还要吃饭，结果煮饭的阿姨还在家里享受着过年的快感，可怜了我们这帮难兄难弟，只好分头觅食。不知道是不是所有公司煮饭的阿姨都有约定还是和公司附件的餐馆老板有什么不为人所知的往来。搞得好像所有公司的人都没有人供饭，全都集聚在为数不多的几家餐厅里。可怜的人阿....寻寻觅觅，寻寻觅觅......结果回来吃泡面！ft自己一下！

2005-02-16 08:43:00 1294 1

原创 How can I create a tray icon

{***************************************************** * How can I create a tray icon? * Fortunately, creating an application that runs in the system tray is pretty easy - only one (API) function,

2005-01-27 13:07:00 1613

原创用Delphi编写自己的可视化控件

可视化控件(Visual Component)实际上就是一个类(class)，要编写一个类，可以直接在*.pas文件中编写。但是要编写控件，则必须使用包(package)。从File菜单中选择New，新建一个Package，这就是存放和安装控件用的包。然后单击Package窗口中的Add按钮，添加一个元件(Unit)。在弹出的对话框最上方选择New Component。因为一个控件的所有属性、

2005-01-24 13:11:00 2098

原创保存页面为MHT的代码

uses CDO_TLB, ADODB_TLB;...procedure WB_SaveAs_MHT(WB: TWebBrowser; FileName: TFileName);var Msg: IMessage; Conf: IConfiguration; Stream: _Stream; URL : widestring;begin i

2005-01-24 13:03:00 1903

原创防止程序被重复执行

------------------------------防止程序被重复执行（第一法）Windows95的程序一般都可以重复执行，例如你按下WIN+E组合键即启动资源管理器，如果再按WIN+E组合键又会出现一个资源管理器，这两个程序互不干扰。有时候你可以需要制作这样一个程序：当该程序已经执行时，若用户企图再次执行该程序则只会激活那个已执行的程序，而不是又出现一个副本。　　完成这个目的

2005-01-18 08:31:00 2052 1

原创动网论坛7.0获得WebShell的分析

动网论坛7.0获得WebShell的分析本文作者：angel文章性质：原创发布日期：2004-06-27 发现：Super·Hei 分析：angel 环境/讨论：xiaolu 起哄：knife 前言　　Super·Hei和我提起《Backup a shell》这篇文章，就和我说，按照这个文章的方法，有没有办法拿到动网论坛上利用，因为DVBBS7.0即使设置允许上传asp文件，实际上

2005-01-12 13:12:00 1352

原创将应用程序11M内存占用，降至500K

最近解决了一个问题-减少内存占用。不过是有条件的，只能在WinXp,Win2K中应用此方法，不显示主窗体一直运行的程序最佳。以前程序占用11M内存，我用动态创建窗口的方法只能减少不到100K，应用此方法后内存占用只有496K。把下面的过程放到一个Timer中，每隔一段时间执行一次，如5 秒。 { ************************************ * Clear Memor

2005-01-12 09:02:00 1514

Once an XML document has been parsed by a DOM implementation, the data it represents is available as a hierarchy of nodes. Each node corresponds to a tagged element in the document. For example, given

2005-01-11 16:43:00 1468

原创从C/S模式下的三层架构说起

引子网友问：很多的参考书目中都是把对数据库的操作都是独立于文档类封装成数据库类。基本上是对应一个表就要建立一个类，在其中实现“增、删、改、差”的功能。代码看起来比较庞大，当然通过类的划分模块比较的清楚，使用时通过数据库类的对象的简单的函数调用就可以了。（不用传完整的SQL语句，仅仅是用到的参数而已）按照OO的思想，我也感觉书上的方法要合理一些，但是就是太麻烦了，还是传SQL语句的方法比较习惯一

2005-01-10 12:26:00 2348

原创三层设计警记

关键是设计上要下功夫。 1、不要使用无条件的SQL语句。Select * from table这样的语句可以让你的服务器死机，我的做法是先写一个方法，把客端的数据请求送到服务器，服务器初始化好SQL的条件参数。然后，客户端才Open.这虽然麻烦一点，但是，得到了速度优势。 2、尽可能把资料在服务器上处理完，把结果送给客户端，不要从服务器取来数据到客户端处理。比如，我想得到一个用户的菜单权

2005-01-10 11:56:00 2201

原创 NetSpider

起源: 现在Rss阅读方式大行天下。可是总觉得好多Rssreader都不符合自己的习惯。萌发写一个reader的想法，也算是学一种新技术。开发工具Delphi 6.0。待续..................2005.01.07目标：网络蜘蛛网尽天下信息初期：简单的Rss阅读。后期：实现各种功能的完善，使之更人性化，更符和中国人的阅读习惯。需求分析：

2005-01-07 13:50:00 1785 3

原创我们不得不学英语

"面对英语，我们变得没有活力，没有自信，没有学习的动力，没有生活的洒脱，我们的生活好象都成了以英语为中心的，我们盲目的背单词，我们在没有意识的情况下听课，似乎我们都是为了英语的学习而活着的。可是，有没有哪位站出来问过自己，我们到底应该如何对待英语呢？ "中国很多大学生学习英语的写照我个人认为，我们不应该简单地随便地把英语学习和考级取证什么的联系在一起，而是多想

2005-01-07 13:36:00 1818

原创 Delphi TQuery 的Locate用法小探(续)

[ By 浪子(dayichen@163.com) At:2005.01.07 ] 874一下优快云的Blog服务器，老是出错。写了半天的文章忘了Copy，结果Post－>Error->Over了。气死我了。差点把阿姨那香气喷喷的鱼

2005-01-07 13:22:00 4393

原创 Delphi TQuery 的Locate用法小探

今天写一个公共部件要用到TQuery.Locate方法。顺便来个小小总结。Help里的解释function Locate(const KeyFields: String; const KeyValues: Variant; Options: TLocateOptions): Boolean;KeyFields: is a string containing a semicolon-deli

2005-01-06 18:02:00 4547

原创关于 Blog 和 RSS 的全面介绍

2005年 01月04日关于 Blog 和 RSS 的全面介绍作者：Aaron Skonnard | 2004年05月31日 | 原始出处：VCKBASE MTT团队 | 已阅 23358 次关于 Blog 和 RSS 的全面介绍原著：Aaron Skonnard翻译：NorthTibet原文出处：MSDN Magazine Apr.

2005-01-05 10:01:00 2863 1

原创 Delphi中的线程类--之（5，大结局）

Delphi中的线程类猛禽[Mental Studio]http://mental.mentsu.com 之五（大结局）回到前面CheckSynchronize，见下面的代码：function CheckSynchronize(Timeout: Integer = 0): Boolean;var SyncProc: PSyncProc; LocalSy

2004-12-25 14:59:00 966

原创 Delphi中的线程类--之（3）

Delphi中的线程类猛禽[Mental Studio]http://mental.mentsu.com 之三说完构造函数，再来看析构函数：destructor TThread.Destroy;begin if (FThreadID begin Terminate; if FCreateSuspended then

2004-12-25 14:58:00 895

原创 Delphi中的线程类--之（4）

Delphi中的线程类猛禽[Mental Studio]http://mental.mentsu.com 之四临界区（CriticalSection）则是一项共享数据访问保护的技术。它其实也是相当于一个全局的布尔变量。但对它的操作有所不同，它只有两个操作：Enter和Leave，同样可以把它的两个状态当作True和False，分别表示现在是否处于临界区中。这两个操作

2004-12-25 14:58:00 865

原创 Delphi中的线程类--之（2）

Delphi中的线程类猛禽[Mental Studio]http://mental.mentsu.com 之二首先就是构造函数：constructor TThread.Create(CreateSuspended: Boolean);begin inherited Create; AddThread; FSuspended := Creat

2004-12-25 14:57:00 808

原创 Delphi中的线程类--之（1）

Delphi中的线程类猛禽[Mental Studio]http://mental.mentsu.com（之一）Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部，我写此文的

2004-12-25 14:56:00 1098

原创软件版本比较不用ini记录的另一种方法

处理可执行文件版本号的类。实现代码如下： TMFileVersion = class private FMajor : Integer; FMinor : Integer; FRelease : Integer; FBuild : Integer; Function GetVerStr :

2004-12-25 14:54:00 1041 1

原创今年圣诞节不太好！

平安夜前天吵架！平安夜当天感冒！..................................................

2004-12-25 11:47:00 759

原创小灵通和移动互通了。

圣诞大礼。庆一下

2004-12-25 11:11:00 806

原创多层结构连接方式选择的分析

Borland公司的MIDAS让我们能用Delphi构建强大的多层分布式数据库系统，MIDAS提供了很多种的客户程序和中间层的连接方式，如：Sockect，DCOM，Corba等等，这么多的方式，在开发多层体系的时候我们应该如何选择呢，下面我就简单的介绍一下这几种连结方式。　　Socket：　　Sockect无疑是最容易配置的连接方式。而且Socket只使用一个端口来进行通讯，这样如

2004-12-25 10:04:00 1033

原创浅析多层结构及其在Delphi中的实现

摘要：本文讨论了分布式多层应用体系的结构、特点及实现技术。分析了用Delphi实现基于MIDAS技术的多层结构，并举例说明实现多层结构的步骤。关键词：多层结构，客户端，应用程序服务器，远程数据库服务器 1 多层结构应用体系1.1 二层结构的退出在传统的二层C/S结构数据库应用中，客户端的机器执行应用程序，连接到后端的数据库服务器中存取应用系统所需资料

2004-12-25 10:02:00 1762

原创三层结构里的查询问题

问：　　我们公司用准备采用Com+技术开发应用程序，可在怎么实现上有了分歧，主要矛盾在查询部分，分为两派：　　1。一派认为查询只是简单的数据选择，提议把基本SQL语句存到数据库里的一个表中，由客户端拼凑查询条件，在业务逻辑层再从数据库里把基本SQL语句读出来接到一起去检索数据，整个系统的查询都调用同一个查询接口。　　2。另一派认为查询也是属于业务逻辑范畴，并不是简单的SQL语句拼凑，应该

2004-12-25 10:00:00 1923

原创三层结构数据层如何设计

我想按三层结构设计系统，可是苦于数据层不知如何设计。看了很多资料，微软的要求无状态，层间用记录集来传递，而J2EE好像要求有状态，层间用实体类传递。谁有设计经验者，请多指教！！　　大家都有同样的困惑，不过我认为用对象的方式可能要好些，因为：　　1、数据库从关系型到对象型发展是趋势　　2、微软在.net framework中提供了DataSet，可以同时装入多个异构的对象的数据，简单点说就是

2004-12-25 09:54:00 3574

原创我观MIDAS

刚看到DFW的达人王兄的《对Borland 和 N-TIER的牢骚》，发现今天的BLOG有内容可写了:P非常同意现在的系分、高手都很热衷于赶时髦，或曰“浮躁”。我也见过非常非常之多人是在为了三层而三层，把简单的问题复杂化，把没必要做成三层的应用特地改成三层，结果得不偿失，事倍功半。但对王兄后面的一些技术性分析，我觉得还是有值得商榷之处。首先，李维所说的：DCOM 的连接速度较SOCKE

2004-12-25 09:52:00 1018

原创三层开发基本概念介绍

三层客户/服务器一：优点：灵活性和可扩展性。应用三层开发技术(分布式)的原因(参考书目: Delphi 5.x分布式多层应用系统篇)一:解决客户机/服务器结构的维护成本问题，改善客户机/服务器结构延展性问题。客户机/服务器结构支持的用户人数有一定限度（200人以下）。则种结构限制了Internet/Intranet及电子商务的发展。三层开发应用Database Pooling,

2004-12-25 09:35:00 1100

我心痴狂(Delphi)