多线程网络传输客户端.docVIP

Page PAGE 1 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ExtCtrls, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,Unit2; const packsize=65000;//包大小 type TRevBuffer=packed record masmID:Word;//未用 ID:Word;//标记 F1:DWord; F2:DWord; F3:DWord; F4:DWord; Len:DWord; MD:Int64; end; TSendBuffer=packed record masmID:Word;//未用 ID:Word;//标记 F1:DWord; F2:DWord; F3:DWord; F4:DWord; Len:DWord;//数据区的大小 MD:Int64;//摘要 buffer:Array[0..packsize-1] of byte; end; //性能监测线程 type T