delphi中间件

摘要： 众所周知，在软件开发过程中，每名软件工程师都要掌握大量的编程知识，比如如何访问数据库，如何控制线程的推进顺序等，掌握这些知识是顺利进行开发的必要条件。然而，仅有这些就够了吗？仅仅掌握了这些编程知识就足以开发出优秀的软件？在我看来，开发者还需要掌握“组合”的艺术，你必须知道在某个完成特定功能的程序中，你可以组合哪些基本的构造块，而这些基本的构造块又以何种方式优雅地组合在一起，构成一个有机的整体。基本的构造块不仅仅指可以直接拿来复用的软件组件（或者是SOA中的Service），还包括可以在不同项目间复用的典型代码（比如如何将一个double类型的数字保留两位小数的典型代码段）、技术解决方案（比如各 阅读全文

摘要： 第三方元件简介--RXLib2.75这是有史以来最为经典、优秀的第三方免费元件集。它的很多优良的特性连专业的VCL元件制造厂商的产品都无法媲美。老一些的Delphi/C++Builder程序员都非常欣赏这一巨大的宝库，将这些元件用于大量的软件开发中。例如，经笔者调查，著名的Foxmail软件中就使用了RXLib元件（当然，Foxmail是Delphi开发的）。这套元件是一套综合性元件集。它其中的内容包含：界面开发、数据库开发、系统开发、常用字符串处理函数、程序开发常用元件等。最为经典的元件有：FormStorage：将窗体的属性、窗体上的元件的属性存储在注册表或配置文件中，当下次打开软件时，常 阅读全文

摘要： --分页查询数据--调用 sp_ShowPageQ 'TFetchData','id',0,'*',200,2,'fetchdt > ''2008-10-22'''CREATE PROCEDURE sp_ShowPageQ @strTable varchar(50), --表名 @strColumn varchar(50), --按该列来进行分页 --@intColType int, --@strColumn列的类型,0-数字类型,1-字符类型,2-日期时间类型 @intOrder int, 阅读全文

摘要： {*******************************************************}{ }{ 导出Tdbgrideh数据 }{ }{ 版权所有 (C) 2007 咏南工作室 }{ }{*******************************************************}unit uExport;interfaceuses DBGridEhImpExp, DBGridEh, SysUtils, Dialogs, ComObj, ActiveX, Variants, db, FormWait,Windows,Graphics;procedur 阅读全文

摘要： {*************************************************************}{ }{ 注册函数 }{ 作者: 陈新光 }{ }{ Copyright (c) 2006 咏南工作室 }{ }{*************************************************************}unit uSafeFun;interfaceuses Windows, SysUtils, Classes; {得到CPUID} Function GetCPUID: string; {获取第一个IDE硬盘的序列号} function 阅读全文

摘要： unit uThread;interfaceuses Classes,SysUtils;Type //Tfun = procedure; Tfun = procedure of object; TFunThread =Class(TThread) private fun:Tfun; protected procedure Execute;override; public Constructor Create(Afun:Tfun); Destructor Destroy;override; end;implementationconstructor TFunThread.Create(Afun: 阅读全文

摘要： unit untFixForm;interfaceusesClasses, SysUtils, Controls, Forms;typeTFontedControl = class(TControl)public property Font;end;TFontMapping = record SWidth : Integer; SHeight: Integer; FName: string; FSize: Integer;end;procedure FixForm(AForm: TForm);procedure SetFontMapping;varFontMapping : array of 阅读全文

摘要： 互斥（mutex）互斥比较类似阻塞，关键在于互斥可以跨进程的线程同步，很多只允许应用程序运行一次的实例就是用互斥方法来实现的。互斥用到以下的API函数：createMutex(), 创建互斥对象。releaseMutex(), 解除互斥关系。互斥的一般使用流程：首先createMutex创建互斥对象，然后waitForSingleObject进入互斥环境，当用到同步的代码执行完成后，用releaseMutex解除互斥关系，当所有线程访问完后，调用closeHandle方法释放互斥对象。waitForSingleObject()函数来防止其它线程进入同步区域的代码。function waitfo 阅读全文

摘要： TIdAntiFreeze工作原理：在内部定时停止堆栈调用、然后调用Application.ProcessMessages。 Indy支持线程pooling。可以用TIdThreadMgrPool组件利用线程pooling 数以百计的线程对于一个忙碌的服务器，可能需要数以百计、千计的线程。人们普遍误 阅读全文

摘要： procedure DeleteDir(sDirectory: String); //删除目录和目录下得所有文件和文件夹 var sr: TSearchRec; sPath,sFile: String; begin //检查目录名后面是否有 '/' if Copy(sDirectory,Length(sDirectory),1) <> '/' then sPath := sDirectory + '/' else sPath := sDirectory; //---------... 阅读全文