一个消息提示托盘程序的开发历程（采用socket技术，附源代码）一

在我的一个J2EE项目中，当一个人的某一任务到来时，我们在一个jsp页面显示这个到来的任务，提示用户需要处理该任务。
我们是通过轮询数据库来实现对任务的实时监控的。表USER_MESSAGE存储用户的任务。表结构如下：
create table USER_MESSAGE
(
  MESSAGE_ID    NUMBER(9) not null,
  TASK_ID       VARCHAR2(100),
  USER_CODE     VARCHAR2(10),
  TASK_NAME     VARCHAR2(50),
  IS_READ       VARCHAR2(1),
  CREATE_TIME   DATE,
  TASK_STATE    VARCHAR2(10),
  CREATE_MAN    VARCHAR2(10),
  SEND_MAN      VARCHAR2(10),
  PRE_TASK_NAME VARCHAR2(50),
  SERIAL_CODE   NUMBER(11),
  MESSAGE_TITLE VARCHAR2(200)
)
当IS_READ＝‘F’时，则是新任务。
这个方案有以下弊病：
1：必须打开页面才可以看到任务；
2：每个客户端都需要轮询，当用户多时数据库负荷过大；
于是我做了一个辅助的消息提示工具，当任务到来时发出提示，在系统托盘区发出提示信息，类似QQ。
方案如下：
利用套接字（socket）技术，编写客户端、服务端程序。服务端作为消息服务器，采用每隔一段时间轮询数据库的方式实时监控USER_MESSAGE表。
把新任务消息发送到客户端；客户端识别该消息是否是“我的”消息，如果是“我的消息”，则在系统托盘区闪烁，用户点击闪烁图标，则可以看到消息标题，点击消息标题下
的箭头图案，则可以打开页面进入J2EE系统。
好了，现在就来一步一步的用C＋＋builder做这个小东东吧：
需要准备的知识如下：
一：采用自己的消息通讯协议
二：socket编程
三：如何实现系统托盘
四：数据库中的一条记录，如何打包发送到客户端？
我们一点一点的逐一解决：
一：消息通讯协议如下
Msg.h
/*
 * Create Date: 2004-12-01 
 * Create By: 李春雷
 * purpose: 协议用自定义消息结构:
 *          MESSAGEINFO:任务消息
 *          MsgType消息头：0xA登陆成功,0xB登陆失败,0xC工作消息,0xD任务结束标识
 *          LoginInfo:登陆消息
 */

//------------------------------------------------------------------------------

        struct MESSAGEINFO{               //消息结构
           int  MsgType;                  //消息头：0xA登陆成功,0xB登陆失败,0xC工作消息,0xD任务结束标识
           char  MessageID[10];           //任务序号
           char UsrCode[10];              //用户帐号
           //char TastName[50];             //任务名称
           char TastName[200];             //任务名称
           char CreatTime[20];            //时间
        };

         struct LoginInfo{          //登陆信息
                char pwd[20];       //用户密码
                char userID[30];    //用户ID
        };
//------------------------------------------------------------------------------
服务端发送的消息只采用的是一个结构体MESSAGEINFO（确认是否登陆成功和发出任务消息），客户端只发送一次登陆信息（LoginInfo）
给服务端，其他时间只是接受服务端发来的消息。

二：socket编程
如果没有用过socket编程，没关系，现在赶快学习：
C++ Builder提供了Internet套件，其中的TClientSocket和TServerSocket组件封装了Windows的有关API，大大简化了WinSock编程。
要通过Internet传输数据，至少需要一对Socket，一个Socket在客户端，另一个Socket在服务器端。其实TClientSocket、TServerSocket组件并不是Socket对象，
其属性Socket将返回各自的Socket对象。TClientSocket用来处理客户端到服务器端之间的socket连接，TServerSocket用来处理由客户端发来的socket连接，
一旦客户端和服务器端都接通了socket，客户端和服务器端就可以相互通信了。
我们做一个小例子：
---- 建立一新项目，创建应用程序的用户界面：
---- 1.将组件页切换到Internet页，放一个TServerSocket组件和一个TClientSocket组件到窗体上，这样应用程序既可以是TCP/IP服务器，也可以是TCP/IP客户。
将Port属性都设为同一个值(如1000)，确定Socket之间的连接类型为NonBlocking(非阻塞方式)。
---- 2.放两个TMemo组件到窗体上，用来分别显示双方的谈话内容，将Memo2的ReadOnly属性设为True。
---- 3.在窗体的顶部放上一个Panel组件，在其上放三个按钮：监听(btnlisten)、连接(btnconnect)、断开(btndisconnect)，用来启动相应的操作。
---- 4.在窗体底部放一个StatusBar组件，将其SimplePanel属性设为True,在相应的事件处理程序中改变状态条信息，让用户随时了解连接状态。
---- 打开头文件，在窗体类的Private段添加两个私有成员: bool IsServer;String Server。双方通信时需同时运行Chat程序，IsServer用来确定哪个
Chat程序处于服务器端，Server用来存放服务器的主机名。建立窗体类的构造器如下：
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    IsServer=false;
    Server="localhost";
}
---- 这里Server被缺省设为localhost，这样程序可以在没有连入Internet的单机上进行调试。在Windows子目录下你可以找到hosts.sam文件中，在该文件
中已经将本机IP地址127.0.0.1定义了主机名：localhost。
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    btndisconnect- >Enabled=false;
}
---- 程序运行后，如果用户按下＂监听＂钮，则将该程序设为服务器端，这时应将TServerSocket的Active属性设为True，使服务器自动进入监听状态。
void __fastcall TForm1::btnlistenClick(TObject *Sender)
{
    ClientSocket1- >Active=false;
    ServerSocket1- >Active=true;
    StatusBar1- >SimpleText="正在监听...";
    btnlisten- >Enabled=false;
    btnconnect- >Enabled=false;
}

---- 当用户按下＂连接＂钮后，程序会弹出一个询问框，要求用户输入要连接的服务器的主机名，然后建立连接。
void __fastcall TForm1::btnconnectClick(TObject *Sender)
{
    if(InputQuery("连接到服务器","输入服务器地址:",Server)){
        if(Server.Length() >0){
            ClientSocket1- >Host=Server;
            ClientSocket1- >Active=true;
            btnlisten- >Enabled=false;
            btnconnect- >Enabled=false;
            btndisconnect- >Enabled=true;
        }
    }
}

---- 当用户提出连接请求后，客户端会触发OnCreate事件，程序先在状态条中显示连接信息，然后将显示对方谈话内容的Memo2清空，准备开始交谈。
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    StatusBar1- >SimpleText="连接到:"+Server;
    Memo2- >Lines- >Clear();
}
---- 在服务器接受了客户的请求后会触发OnAccept事件，在这个事件处理程序中将标志服务器端的变量IsServer设为True，并准备开始交谈。
void __fastcall TForm1::ServerSocket1Accept(
TObject *Sender,
      TCustomWinSocket *Socket)
{
    Memo2- >Lines- >Clear();
    IsServer=true;
    StatusBar1- >SimpleText="连接到:"
+Socket- >RemoteAddress;
}
---- 在建立连接后，双方就可以在Memo1中输入谈话内容开始进行交谈了，按下Enter键后，将所在行的文本发送出去。服务器端的Socket的Connections
属性返回一个数组，该数组由服务器当前活动的连接组成。
void __fastcall TForm1::Memo1KeyDown(
TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==VK_RETURN){
        if(IsServer)
            ServerSocket1- >Socket- >Connections[0]- >SendText(
Memo1- >Lines- >Strings[Memo1- >Lines- >Count-1]);
        else
            ClientSocket1- >Socket- >SendText(
Memo1- >Lines- >Strings[Memo1- >Lines- >Count-1]);
    }
}

---- 在本例中我们采用非阻塞传输方式，当其中的一方进行写操作时，另一方会触发OnRead事件(客户端)或OnClientRead事件(服务器端)，这两个事件的处理程序只是将接收到的内容添加到Memo2的后面。
    Memo2- >Lines- >Add(Socket- >ReceiveText());

---- 如果在用户建立连接后单击＂断开＂钮，将断开客户端与服务器的连接，服务器端将触发OnClientDisconnect事件，而客户端则会触发OnDisconnect事件，这时服务器端应回到监听状态，等待用户的连接；而客户端将返回到连接前的状态，等待用户再次建立连接，如果有不止一个服务器的话，可以选择连接到其他的服务器上。
void __fastcall TForm1::btndisconnectClick(
TObject *Sender)
{
    ClientSocket1- >Close();
}
void __fastcall TForm1::ServerSocket1ClientDisconnect(
TObject *Sender,
      TCustomWinSocket *Socket)
{
    StatusBar1- >SimpleText="正在监听...";
}
void __fastcall TForm1::ClientSocket1Disconnect(
TObject *Sender, TCustomWinSocket *Socket)
{
    btnlisten- >Enabled=true;
    btnconnect- >Enabled=true;
    btndisconnect- >Enabled=false;
    StatusBar1- >SimpleText="";
}
---- 此外在客户端还应该增加错误捕获机制，当用户输入无效的服务器名或服务器端没有处于监听状态时能够及时给用户反馈信息。
void __fastcall TForm1::ClientSocke
t1Error(TObject *Sender,
      TCustomWinSocket *Socket,
TErrorEvent ErrorEvent, int &ErrorCode)
{
StatusBar1- >SimpleText="无法连接到:
"+Socket- >RemoteHost;
    ErrorCode=0;
}
以上步骤完成后，socket就可以run了。是不是没有想象中的困难？

三：关于托盘，bcb给出了很简单的实现方法：
下面让我们来编一个简单的Tary程序：
1、新建工程，添加一个TrayIcon组件、一个PopupMenu组件和一个ImageList组件。它们的Name属性都用默认的名字：TrayIcon1、
PopupMenu1、ImageList1。
2、设置TrayIcon1的属性，如下：
属性 值
Animate true
AnimateInterva 1000
Hide true
Hint Tary演示程序
IconIndex 0
Icons ImageList1
Name TrayIcon1
PopupMenu PopupMenu1
PopupMenuOn imRightClickUp
RestoreOn imDoubleClick
Visible true
3、双击PopupMenu1，弹出菜单设计器，随意地加入几个菜单项。
4、双击ImageList1，加入支持的图片（*.ico、*.bmp）。
　　到此，不用编写一句程序代码，一个简单的Tary程序就做好了。按F9编译运行，将鼠标移动到Tary上面就会出现“Tary演示程序”的提示信息；
在Tary上单击鼠标右键弹出菜单Popmenu1；按下程序窗口的最小化按钮，程序最小化后隐藏任务栏上的标题栏；双击Tary将会恢复程序最小化；
而且，Tary图标以1000毫秒（1秒）的速度变换。够简单了吧？！

四：数据库中的一条记录，如何打包发送到客户端？
我们把数据库中的一条记录，放在一个结构体中，然后把该结构体send出去。
下面是一个简单的例子：
.h
struct TUSERINFO
{
    int  NO;                  //用户组别
    char UsrID[20];           //用户帐号
};

.cpp
void __fastcall TForm1::Button1Click(TObject *Sender)
{    TUSERINFO *tst = new TUSERINFO[2];
    tst[0].NO=1;
    tst[1].NO=2;
    String tmp = "正常";
    memcpy(tst[0].UsrID,tmp.c_str(),tmp.Length()+1);
    tmp = "不正常";
    memcpy(tst[1].UsrID,tmp.c_str(),tmp.Length()+1);
    ClientSocket1->Socket->SendBuf(tst,24);
    delete tst;}
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
    TUSERINFO *tst = new TUSERINFO[2];
    Socket->ReceiveBuf(tst,24);
    ShowMessage(tst[0].UsrID);
    ShowMessage(tst[1].UsrID);
}
上面的例子很简单，可以实现struct的发送，但存在一个小问题：
如果要传2条记录,必须SendBuf(tst,24*2);那么接受的时候必须ReceiveBuf(tst,24*2);
而我发的条数是不确定的，时多时少，有什么办法可以我发多少，客户就接多少？
其实也简单解决：
每次只发一个struct,用for循环发出去就可以了。

通过了以上的一二三四的技术准备，消息提示工具的具体实现就很明朗了，只是工作量的问题了。
在消息提示工具中，我采用ADO访问数据库。
另外，为了到客户那实施起来方便，我采用了配置文件，程序先读取配置文件，然后运行。