Delphi编程经典教程 清华大学版 课件.ppt

DoWork 形式：procedure DoWork(AWorkMode:TWorkMode; const ACount: Integer) 含义：用于触发OnWork事件,在调用DoWork过程之前必须调用BeginWork过程，否则DoWork过程将不会产生任何效果。 EndWork 形式：procedure EndWork(AWorkMode:TWorkMode); 含义：用于触发OnEndWork事件，EndWork可以嵌套调用，但是OnEndWork 事件仅在第一次调用时触发。 (3)TIdUDPClient的事件响应 OnStatus事件：在当前链接的状态改变时被触发。 2．TIdUDPServer组件 　　TIdUDPServer组件位于IdUDPServer组件板如图所示，TIdUDPServer组件用于实现基于UDP的服务器通信管理。下面介绍它的主要属性和方法 ： 图11-9 TIdUDPServer组件 (1)TIdUDPServer的属性 Bindings属性：为TIdUDPServer提供默认端口号, 并通过TIdUDPListenerTherad来访问Socket句柄和协议栈提供的底层方法。 DefaultPort属性：用来标识由服务器创建的新的Socket绑定的端口号，新的链接用该端口号来进行监听。 Active属性：用于指明TIdUDPServer的Socket绑定是否已经分配。 Binding属性：用于发送和接收数据的Socket绑定。 BroadcastEnabled属性：用于指明服务器是否正在向网络上的所有计算机广播数据报。 BufferSize属性：用于用来指定能通过Binding发送和接收的最大UDP包,默认数据包最大值是8192。 ReceiveTimeout属性：用来表明ReceiveString方法时等待的超时毫秒数。 LocalName属性：标识用户计算机系统名。 (2)TIdUDPServer组件的方法和过程 Boradcast 形式：procedure Boradcast(const AData:string;const APort:Integer); 含义：向网络中的所有计算机广播AData中的数据，Aport参数指明了计算机的端口号。 ReceiveBuffer 形式：function ReceiveBuffer(var ABuffer; const ABufferSize:Integer; var VPeerIP:string var VPeerPort: integer;AMsec:Integer):integer; 含义：用于从VPeerIP和VPeerPort参数指定的计算机中读出数据到ABuffer缓冲中。 Send 形式：procedure Send (AHost:string;const APort :Integer; const AData :string); 含义：Send过程将AData中的数据传送给由AHost参数和APort参数指定的远程计算机。 BeginWork 形式：Procedure BeginWork(AWorkMode:TWorkMode; const ASize:Integer); 含义：该过程可以被嵌套调用，但是OnBeginWork 事件仅在第一次调用BeginWork 方法时触发。 DoWork 形式：procedure DoWork(AWorkMode:TWorkMode; const ACount:Integer); 含义：用于触发OnWork事件。在调用DoWork过程之前必须调用BeginWork过程，否则DoWork过程将不产生任何效果。 EndWork 形式：procedure EndWork(AWorkMode:TWorkMode); 含义：用于触发OnEndWork事件。EndWork可以嵌套调用，但是OnEndWork 事件仅在第一次调用时触发。 (3)TIdUDPServer的事件响应 OnUDPRead事件：当数据已经从Socket中读出来可以被服务器使用时，由DoUDPRead方法触发。 OnStatus事件：在当前链接的状态改变时被触发。 2．ODBC方式 (1)选择【开始】|【程序】|【Microsoft office 2003】|【Microsoft office Access 2003】，即可打开Access数据库管理系统。 (2)选择【空数据库】，然后创建一个数据库，出现一个窗口。 (3)双击【使用设计器创建表】创建Operator表。 (4)选择【文件】|【保存】 。 (5)在表名称中输入Operator单击【确定】，即在数据库RLMIS中创建好了Operator表。 10.7.4系统代码