bcb UDP传文件使用TNMUDP控件

bcb UDP传文件（使用TNMUDP控件） 利用重发机制实现 实现思路见我的博客

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

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

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

     文件        766  2003-04-22 15:16  udpsfile\animal06.ico

     文件       9500  2008-08-03 02:35  udpsfile\SendFile.bpr

     文件        558  2003-05-24 17:49  udpsfile\SendFile.cgl

     文件       1088  2008-08-02 14:06  udpsfile\SendFile.cpp

     文件     990720  2008-08-04 14:05  udpsfile\SendFile.exe

     文件      26148  2008-08-04 14:05  udpsfile\SendFile.lib

     文件      17756  2008-08-02 14:06  udpsfile\SendFile.obj

     文件        876  2003-06-03 14:02  udpsfile\SendFile.res

     文件    5046272  2008-08-04 14:45  udpsfile\SendFile.tds

     文件      30485  2011-11-17 12:03  udpsfile\SendFile_Cpp.cpp

     文件         51  2011-11-18 10:38  udpsfile\SendFile_Cpp.ddp

     文件      13106  2011-11-17 12:03  udpsfile\SendFile_Cpp.dfm

     文件       4727  2011-11-17 12:03  udpsfile\SendFile_Cpp.h

     文件     238525  2008-08-03 10:19  udpsfile\SendFile_Cpp.obj

     文件      30485  2011-11-17 12:03  udpsfile\SendFile_Cpp.~cpp

     文件         51  2011-11-17 12:41  udpsfile\SendFile_Cpp.~ddp

     文件      13106  2011-11-17 12:03  udpsfile\SendFile_Cpp.~dfm

     文件       4727  2011-11-17 12:03  udpsfile\SendFile_Cpp.~h

     目录          0  2011-11-26 19:21  udpsfile

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

              6428947                    19