用Delphi编写局域网中的聊天程序.doc

用Delphi编写局域网中的聊天程序 2004-9-5 ? ? Internet盛行的今天，网上聊天已成为一种时尚。同时，各单位已建成了自己的局域网；能否在局域网上实现聊天呢？可以，网上到处都有这种工具。当然，我们可以拥有自己版权的聊天工具。 　　User Datagram Protocol (UDP)协议，是一种无连接协议。在Delphi中利用这种协议，可以轻松的编写出聊天程序，以下的程序，在Delphi 5+Pwin98中通过。 　　打开Delphi，新建Application 放置以下几个控件：Panel1、Panel2，其属性如下： 　　然后，放置以下控件：Edit1 ListBox1 Memo1 Button1 Button2 BitBtn1 Nmudp1其主要控件的属性如下： 　　各主要控件的功能如下： 现在的界面如下： 源程序如下： unit main; interface uses Windows Messages SysUtils Classes Graphics Controls Forms Dialogs StdCtrls Buttons ExtCtrls NMUDP Menus ComCtrls WinSock; file://增加WinSock type TForm1 = class