delphi中间件

摘要： 格式：操作数 Shl/Shr 移动位数说明：操作数与返回值都是整数例子：16(10) = 10000(2) 16(10) Shr 1 = 10000(2) Shr 1 = 1000(2) = 8(10) 16(10) Shr 2 = 10000(2) Shr 2 = 100(2) = 4(10)说明：一个整数(I)按位左移一位，相当于把它乘以2，即 I * 2 一个整数(I)按位右移一位，相当于把它除以2，即 I Div 2 一个整数(I)按位左移2 位，相当于把它乘以2再乘2，即 (I * 2) * 2 一个整数(I)按位右移2 位，相当于把它除以2再除2，即 (I Div 2) Div 2 阅读全文

摘要： TPrinter 类是Delphi 对Windows 打印处理系统的封装，它能够帮助程序员在开发打印程序时尽可能地减少工作量。在程序中使用TPrinter，只要在单元的Use 子句后面添加Printers 即可。当前打印机的DevMode 结构的句柄可以通过调用Tprinter 类中的GetPrinter 方法来获取。当程序获得DevMode 结构的句柄后，就调用GlobalLock 函数来得到指向该结构的指针，随后可对结构中的某些成员进行修改。下面就举一个例子来说明这一问题：假设当前打印机的默认纸张尺寸是A3 纸，现在要打印长度为114mm、宽度为190mm 的纸张。为了简单起见，我们只在F 阅读全文

摘要： 在Delphi中有一个THashedStringlist类，使用这个类可以实现Hash表的操作.使用这个类需要引用IniFiles头文件.Hash表正是为了提高检索速度而设计出来的. 例如：我们定义的数据结构是：以下是引用片段： RTest=record Key:Integer; Name:String[20]; Sex:Boolean; Age:Integer; end; PTest=^RTest; 1：创建Hash表. ScHash:=THashedStringlist.Create; 2：将数据结构加入Hash表中. var Index:I... 阅读全文

摘要： Variant数组Variant：一种可以拥有各种数据类型；也可以告诉目前存储的数据是什么类型(通过使用VarType函数)；可以给相同的Variant分配不同的数据类型，只要Variant包含数字值就可以执行算法；variant数组只不过是variant型的数组，不必包含同类型的数据；　variant数组的创建方法：functionVarArrayCreate(constBounds:arrayofInteger;VarType:integer):variant;Bounds:告诉数组的上下界；VarType:决定了数组的中存储什么类型的数据。例如：创建数组的数组,可以模仿任何类型的数据结构 阅读全文

摘要： //取指定文件夾及其子文件夾內指定類型文件列表procedure _GetFileList(AStrings: TStrings; ASourFile, FileName: string);// 調用示例: _GetFileList(FileList, 'c:/', '*.pas')var sour_path, sour_file: string; TmpList: TStringList; FileRec, subFileRec: TSearchrec; i: Integer;begin if rightStr(trim(ASourFile), 1) < 阅读全文

摘要： (1) CreateThreadl 功能——创建一个在调用进程的地址空间中执行的线程l 格式HANDLE CreateThread( LPSECURITY_ATTRIBUTES lpThreadAttributes,DWORD dwStackSize,LPTHREAD_START_ROUTINE lpStartAddress,LPVOID lpParamiter,DWORD dwCreationFlags,Lpdword lpThread );l 参数说明lpThreadAttributes——指向一个LPSECURITY_ATTRIBUTES(新线程的安全性描述符)。dwStackSize— 阅读全文

摘要： windows.WaitForSingleObject(FEventHandle, 180000);......FEventHandle := Windows.CreateEvent(nil, false, False, PChar(@FEventName));......if FEventHandle <> THandle(nil) then Windows.CloseHandle(FEventHandle);......if FEventHandle <> THandle(nil) then Windows.SetEvent(FEventHandle);...... 阅读全文

摘要： SOCKET：Socket接口介于应用程序与硬件之间。对Socket的理解可以简化为：它是封装了数据流（Stream）的从机器到机器的一条软接线，通过这条软接线，并借助于线两端的收发程序，网络上的机器间实现了信息的交流与互通。分离在软线两端的应用程序（服务器端程序和客户端程序）可以通过调用Socket接口来开发具有TCP/IP网络功能的程序应用。作为客户端，即要知道服务程序所在房间的房间号（IP地址），又要知道后门的位置（端口）。这样才能正确地进入房间。數據編發：软线建立完成后，还必须有数据传输的规则，这就是服务端和客户端商量着来的事情了。数据使用什么封装，传送时遵循什么规则（收发协议）、传输 阅读全文

摘要： MIS系统权限控制的一个简便方法MIS系统权限控制的一个简便方法收藏 新一篇: 创MIS系统的权限又多又复杂，很多人是在用户数据表中设置多个字段，每个字段代表一个权限，或者设置一个字符串，不同的字符组合表示用户的不同权限。简单一点的，可以预先设置几个角色，根据角色来行使预设权限，但又不够灵活。现介绍一个简单灵活的权限分配控制的方法，并无高深见解，只是很多人忽略了它。如果您正在设计权限控制模式，不妨接着往下看。此方法非常简洁，扩充性很好。仅用一个 integer 字段即可保存全部权限组合。另外每个权限用一个整型表示如：商品查看权限用 1 ；商品更改权限用 2 ；商品完全浏览权限用 4 ；订单查看 阅读全文

摘要： 針對INDY9版本 // 使用完的線程歸還線程池 procedure TIdThreadMgrPool.ReleaseThread(AThread: TIdThread); var LThreadPool: TList; begin ActiveThreads.Remove(AThread); LT 阅读全文