delphi中间件

摘要： 套接字（socket）是套接口描述字的简称。和文件句柄相似，SOCKET提供了一咱通讯机制，是WINDOWS的一种通讯方式。应用程序创建了一个套接字后，就能够获得这种机制提供的网络服务功能。对于服务器来说，它提供了监听网络的连接请求；对于客户机来说，它可以连接到一个给定的主计算机和特定的端口上。客户端和服务器端可以通过套接字对象来发送和接收数据。套接字提供了分别基于连接的协议（TCP）等和无连接的协议（UDP）等，以满足网络连接的可靠性、稳定性以及高速性的要求。WINSOCK是网络编程接口，它构成了WINDOWS平台下网络编程的基础。开放系统互连七层模型（OSI）应用层——表示层——会话层—— 阅读全文

摘要： 主要作为服务器端的套接字管理器使用。它封装了服务器端的套接字。在打开套接字后，服务器端就处于监听状态，在接收到其它机器的连接请求后，与客户端建立连接，创建一个新的套接字，用于和客户端互传数据，此时TSERVERSOCKET组件则继续监听客户端连接。属性：ACTIVE：设定TSERVERSOCKET是否处于打开，并处于监听状态SERVERTYPE：按阻塞还是非阻塞模式工作PORT：服务器端的端口SERVICE：服务器端提供的服务SOCKET：连接所使用的SOCKETTHREADCACHESIZE：允许客户连接的最大个数方法：CREATE：创建一个TSERVERSOCKET对象DESTROY：释放 阅读全文

摘要： TclientSocket组件主要作为客户端的套接字使用。它封装了客户端的套接字，在与服务器建立连接之后，就负责管理这个连接，在结束连接后关闭套接字。属性：active：设置CLIENTSOCKET是否打开CLIENTTYPE：设置CLIENTSOCKET使用阻塞式还是非阻塞式通讯ADDRESS：想要连接服务器的IP地址HOST：想要连接服务器的主机名PORT：想要连接服务器的端口号SERVICE：想要获得的服务SOCKET：TCLIENTWINSOCKET连接所使用的SOCKET，它负责数据的传输在实际的使用中，只要知道服务器的IP地址（或主机名）、端口号，将组件的ACTIVE属性设为TRU 阅读全文

摘要： {*******************************************************}{ }{ 操作TreeView }{ }{ 版权所有 (C) 2008 咏南工作室 }{ }{*******************************************************}//==============================================================================// 本单元实现了TreeView与数据的关联，各方法形参如下：//// AId：为自增字段，用于标识节点的编号。// 阅读全文

摘要： Sender,Self,Owner，parent -----------------------------------------------------Sender--意义：指本对象。Sender在什么对象相关代码里，那么Sender就是什么。Self--意义：指本类，也就是Self被引用的类。比如若在类TMyClass内引用了Self，那么Self=TMyClass.Owner--意义：哪个对象释放我的内存啊？如：Pan:=TPanel.Create(Self);其中Create的参数是：AOwner:TComponent。Owner释放Pan的内存。因为窗口释放Pan的内存，但窗口类的 阅读全文

摘要： 代码复用规则1、 对接口编程2、 优先使用对象组合，而不是类继承3、 将可变的部分和不可变的部分分离 抽象基类中定义好不可变的部分，而由其子类去具体实现可变的部分，不可变的部分不需要重复定义4、 减少方法的长度三十秒原则：如果另一个程序员无法在三十秒之内了解你的函数做了什么（What），如何做(How)以及为什么要这样做(Why)，那就说明你的代码是难以维护的，必须得到提高；一屏原则：如果一个函数的代码长度超过一个屏幕，那么或许这个函数太长了，应该拆分成更小的子函数；一行代码尽量简短，并且保证一行代码只做一件事,那种看似技巧性的冗长代码只会增加代码维护的难度。5、 减少参数个数6、 类层次的最 阅读全文

摘要： 获取当前系统版本号 unit WinVerUtils;{#===============================================================================# Name: WinVerUtils.pas# Author: Aleksander Oven# Created: 2007-02-25# Last Change: 2007-02-25# Version: 1.0# Description: All about the version of the Windows OS. Refere... 阅读全文

摘要： 防止程序重复执行的单元 //工程引用此单元就能防止同时出现多个实例unit MultInst;interfaceuses Windows ,Messages, SysUtils, Classes, Forms;implementationconst STR_UNIQUE = '{2BE6D96E-827F-4BF9-B33E-8740412CDE96}'; MI_ACTIVEAPP = 1; {激活应用程序} MI_GETHANDLE = 2; {取得句柄}var iMessageID : Integer; OldWProc : TFNWndProc; MutHa... 阅读全文

摘要： uses TypInfo; {获取类的信息, 需要这个单元}//获取对象的 RTTI 属性与事件的函数function GetPropertyAndEventList(obj: TObject; pList,eList: TStringList): Boolean;var ClassTypeInfo: PTypeInfo; {类的信息结构指针} ClassDataInfo: PTypeData; {类的数据结构指针} propertyList : PPropList; {TPropInfo 是属性的数据结构; PPropList 是其指针; TPropList 是属性结构指针的列表数组; PP 阅读全文

摘要： 有序类型的大小及最大、最小值 procedure TForm1.Button1Click(Sender: TObject);var b: Byte; w: Word; i: Integer; c: Cardinal;begin ShowMessage(IntToStr(SizeOf(b))); //Byte大小：1 ShowMessage(IntToStr(High(b))); //Byte最大值: 255 ShowMessage(IntToStr(Low(b))); //Byte最小值: 0 ShowMessage(IntToStr(SizeOf(w))); ... 阅读全文