delphi一个用socket封装UDPTCP通信的例子.docxVIP

unit UnitTCPUDP; interface interface uses uses constWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,WinSock, ExtCtrls, ComCtrillse,si,nSitfrUtils; const /在/ tcp /在/ tcp 服务器方式下,WM_SOCK 为监听消息 // WM_SOCK+1 // WM_SOCK+1 到 WM_SOCK+MAX_ACCEPT 为与连接客户端进行通讯时的消息 M