一个消息提示托盘程序的开发历程（采用socket技术，附源代码）二－－－服务端源代码[4]

        tmenuitem *n1;
        tmenuitem *n2;
        tmenuitem *n3;
        tmenuitem *n4;
        tmenuitem *n5;
        tmenuitem *n6;
        void __fastcall formcreate(tobject *sender);
        void __fastcall btnlistenclick(tobject *sender);
        void __fastcall clientsocket1connect(tobject *sender,
          tcustomwinsocket *socket);
        void __fastcall serversocket1accept(tobject *sender,
          tcustomwinsocket *socket);
        void __fastcall serversocket1clientread(tobject *sender,
          tcustomwinsocket *socket);
        void __fastcall btndisconnectclick(tobject *sender);
        void __fastcall serversocket1clientdisconnect(tobject *sender,
          tcustomwinsocket *socket);
        void __fastcall clientsocket1disconnect(tobject *sender,
          tcustomwinsocket *socket);
        void __fastcall clientsocket1error(tobject *sender,
          tcustomwinsocket *socket, terrorevent errorevent,
          int &errorcode);
        void __fastcall timer1timer(tobject *sender);
        void __fastcall serversocket1clienterror(tobject *sender,
          tcustomwinsocket *socket, terrorevent errorevent,
          int &errorcode);
        void __fastcall n2click(tobject *sender);
        void __fastcall n3click(tobject *sender);
private: // user declarations
        bool isserver;  //服务器标识
        string server;  //服务器ip
public:  // user declarations
        __fastcall tform1(tcomponent* owner);
};
//---------------------------------------------------------------------------
extern package tform1 *form1;
//---------------------------------------------------------------------------
#endif

unit2.h
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
tformabout *formabout;
//---------------------------------------------------------------------------
__fastcall tformabout::tformabout(tcomponent* owner)
        : tform(owner)
{
}
//---------------------------------------------------------------------------
void __fastcall tformabout::button1click(tobject *sender)
{
        modalresult = mrok;
}
//---------------------------------------------------------------------------

unit2.cpp
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
tformabout *formabout;
//---------------------------------------------------------------------------
__fastcall tformabout::tformabout(tcomponent* owner)
        : tform(owner)
{
}
//---------------------------------------------------------------------------
void __fastcall tformabout::button1click(tobject *sender)
{
        modalresult = mrok;
}
//---------------------------------------------------------------------------

以上是服务端socket程序
另外，服务端的配置文件config.ini内容如下：
[servercfg]
provider=provider=oraoledb.oracle.1;password=pwsc;persist security info=true;user id=developer;data source=dl;extended properties=""