文件程序传输源代码

实现远程文件传输的源程序代码<br>

//---------------------------------------------------------------------------
#include 
#pragma hdrstop
USEFORM（“strmmain.cpp“ FormMain）;
USEFORM（“Unit1.cpp“ Form1）;
//---------------------------------------------------------------------------
WINAPI WinMain（HINSTANCE HINSTANCE LPSTR int）
{
        try
        {
                 Application->Initialize（）;
                 Application->title = “文件传送“;
                 Application->CreateForm（__classid（TFormMain） &FormMain）;
                 Application->Run（）;
        }
        catch （Exception &exception）
        {
                 Application->ShowException（&exception）;
        }
        return 0;
}
//---------------------------------------------------------------------------

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件        4207  2002-08-29 11:09  stream\strmmain.cpp
     文件        2130  2002-08-29 08:38  stream\strmmain.h
     文件        1329  2002-08-29 11:08  stream\strmmain.dfm
     文件         100  2002-08-29 08:13  stream\clear.bat
     文件       98816  2002-08-31 20:09  stream\strmdemo.exe
     文件        1564  2002-08-31 20:09  stream\strmdemo.res
     文件         776  2002-08-29 09:31  stream\STRMDEMO.cpp
     文件         766  2002-08-29 09:51  stream\send.ico
     文件          15  2002-08-29 09:55  stream\readMe.txt
     文件        2346  2002-08-31 20:07  stream\Unit1.cpp
     文件        1569  2002-08-29 09:27  stream\Unit1.h
     文件        2710  2002-08-29 09:28  stream\Unit1.dfm
     文件          51  2002-08-31 20:07  stream\Unit1.ddp
     文件        4279  2002-08-31 20:09  stream\strmdemo.bpr
     目录           0  2002-08-31 20:00  stream\