c++ builder socket

c++ builder下socket编程，TServerSocket、TClientSocket简单的聊天程序

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

#include 
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM（“Unit1.cpp“ Form1）;
//---------------------------------------------------------------------------
WINAPI WinMain（HINSTANCE HINSTANCE LPSTR int）
{
  try
  {
     Application->Initialize（）;
     Application->CreateForm（__classid（TForm1） &Form1）;
     Application->Run（）;
  }
  catch （Exception &exception）
  {
     Application->ShowException（&exception）;
  }
  catch （...）
  {
     try
     {
       throw Exception（““）;
     }
     catch （Exception &exception）
     {
       Application->ShowException（&exception）;
     }
  }
  return 0;
}
//---------------------------------------------------------------------------

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        853  2008-09-08 13:58  socket\Project1.cpp

     文件       3785  2008-09-08 13:58  socket\Project1.bpr

     文件        876  2008-09-08 13:54  socket\Project1.res

     文件      17685  2008-09-08 14:19  socket\Project1.obj

     文件     109195  2008-09-08 15:33  socket\Unit1.obj

     文件       9812  2008-09-08 15:29  socket\Project1.rar

     文件      32256  2008-09-08 15:29  socket\Project1-11.exe

     文件      32256  2008-09-08 15:33  socket\Project1.exe

     文件    2162688  2008-09-08 18:02  socket\Project1.tds

     文件       3916  2008-09-08 17:02  socket\Unit1.~cpp

     文件       2123  2008-09-08 15:14  socket\Unit1.~h

     文件       2090  2008-09-08 15:23  socket\Unit1.~dfm

     文件       3914  2008-09-08 17:02  socket\Unit1.cpp

     文件       2123  2008-09-08 15:14  socket\Unit1.h

     文件       2090  2008-09-08 15:23  socket\Unit1.dfm

     目录          0  2008-09-08 13:58  socket

----------- ---------  ---------- -----  ----

              2385662                    16