bcb socket应用-文件传输

bcb5.0 使用socket动态库进行文件传输，包括客户端和服务器端，完整源代码 bcb5.0上编译通过。 服务端为线程接收方式，可并发连接多个客户端，数量没有限制。

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

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

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

     目录          0  2013-04-26 16:45  ClientTest

     文件       4270  2013-04-26 16:45  ClientTest\ClientTest.bpr

     文件        738  2012-12-20 09:09  ClientTest\ClientTest.cpp

     文件     500224  2013-04-26 16:45  ClientTest\ClientTest.exe

     文件       9312  2013-04-26 16:45  ClientTest\ClientTest.obj

     文件        876  2012-12-20 16:21  ClientTest\ClientTest.res

     文件     720896  2013-04-26 16:47  ClientTest\ClientTest.tds

     文件       3149  2012-12-20 16:21  ClientTest\ClientTest.~bpr

     文件        712  2012-12-20 09:04  ClientTest\ClientTest.~cpp

     文件      12819  2013-04-26 16:45  ClientTest\Transmit.cpp

     文件       1234  2013-04-26 16:44  ClientTest\Transmit.h

     文件      19203  2013-04-26 16:45  ClientTest\Transmit.obj

     文件      12817  2012-12-20 16:07  ClientTest\Transmit.~cpp

     文件       1232  2012-12-20 14:20  ClientTest\Transmit.~h

     文件       1754  2012-12-20 15:58  ClientTest\Unit1.cpp

     文件       3363  2012-12-20 15:45  ClientTest\Unit1.dfm

     文件       1277  2012-12-20 09:13  ClientTest\Unit1.h

     文件      20529  2013-04-26 16:45  ClientTest\Unit1.obj

     文件       1754  2012-12-20 15:58  ClientTest\Unit1.~cpp

     文件       3363  2012-12-20 15:45  ClientTest\Unit1.~dfm

     文件       1247  2012-12-20 09:12  ClientTest\Unit1.~h

     文件      14336  1998-07-07 00:00  ClientTest\WINSKCHS.DLL

     文件     100949  2000-01-31 05:00  ClientTest\winsock2.h

     文件       8704  2000-01-31 05:00  ClientTest\ws2_32.lib

     目录          0  2013-05-22 16:31  ServerTest

     文件       3333  2013-05-22 16:31  ServerTest\ServerTest.bpr

     文件        738  2012-12-14 11:51  ServerTest\ServerTest.cpp

     文件     494080  2013-05-22 16:31  ServerTest\ServerTest.exe

     文件       9312  2013-05-22 16:31  ServerTest\ServerTest.obj

     文件        876  2013-05-22 16:30  ServerTest\ServerTest.res

............此处省略21个文件信息