[摘要] 本文详细介绍了应用C++builder把文件任意分割成若干个小块在网络上发送并在终端上接收，重新组装成原文件的技术。
一． 前言 目前网络编程技术有很多，一般都是直接利用编程软件自带的功能函数或控件来完成，用户不必关心低层的操作，确实带来方便。但灵活性不够，如果要传输的文件比较大，则速度慢。如果网络的断线率高，则不得不重新传输。本程序可以克服以上不足，将任意大小的文件视网络状况在客户端分割成任意大小的数据流进行发送，在服务端接收数据流，并组装成原文件。如果网络被中断，则记下位置，待网络恢复后继续从断点的位置传输，终端继续接收，直到传输完毕。
本程序在Windows2000调试通过，读者可以应用本程序的设计技术应用到其他网络通讯中去。
二．建立程序框架 新建一个工程存为tongxun.bpr，Form文件存为shi.cpp，对Form的属性做如下修改：BorderStyle设为bsSingle,Name设为Form,Position设为PoScreenCenter。在Form上放置2个Tbutton组件，分别为：Name分别为Button1和Button2,Caption分别为\"发送图片\"和\"选择图片文件\"，放置1个Timage组件，Name为Image1，放置1个Opendialog,Name为name，用于打开1个文件，最后放置1个TserverSocket和1个Tclientsocket，Name属性分别为server和client。
三．程序实现 本程序是在客户端发送一个2M字节的BMP图片，终端接收和组装此图片并显示在Form的窗口中用于验证。本程序即可作为发送端，也可做接收端，只要在两台互联的计算机上运行即可。
shi.cpp源文件如下：
#include
#pragma hdrstop
#include \"Unit1.h\"
#pragma package(smart_init)
#pragma resource \"*.dfm\"
TForm1 *Form1;
static int shi=0,emod=0,hui=0,x=0,a=0,i=0;
AnsiString filename;
file://---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{ }
file://---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{ client->Active=false;
client->Port=8888;
client->Active=true;} file://联接远程计算机
file://---------------------------------------------------------------------------
void __fastcall TForm1::clientConnect(TObject *Sender,TCustomWinSocket *Socket)
{ label->Caption=\"ok\";} file://联接成功的提示。
file://下面的函数用于接收数据和组装数据并显示。
void __fastcall TForm1::serverClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{ // static long a=0;
static TMemoryStream* pms = new TMemoryStream();
void *z[20000]; file://定义缓冲区大小
if(shi!=1)
{Socket->ReceiveBuf(z,20000); file://接收SOCKET中的数据流
pms->Position=a;
pms->WriteBuffer(z,20000); file://写入缓冲区
a=a+20000; file://改变内存流指针
client->Active=false; file://每次发送前要判断网络是否畅通
client->Port=8888; file://联接远程计算机，如果成功则
client->Active=true;} file://发送，否则等待。
Else file://接收最后emod个字节。
{pms->WriteBuffer(z,emod);
pms->SaveToFile(\"d:\\\\k.bmp\");
label->Caption=\"successful\";
pms->Position=0;
Image1->Picture->Bitmap->LoadFromStream(pms);}
} file://将接收的文件在屏幕上显示。
file://以下函数用于任意分割文件和发送文件。
void __fastcall TForm1::clientWrite(TObject *Sender,TCustomWinSocket *Socket)
{ void *p[20000];
static long k=20000;//x=0;//hui=0;
static long bmpsize,/*i=0*/c,mod;
static TMemoryStream* pms = new TMemoryStream();
if(hui==0){pms->LoadFromFile(filename);hui++;}//装入要发送的文件。
bmpsize=pms->Size; file://计算文件的大小（字节）
c=(int)bmpsize/k; file://分割文件为c
mod=bmpsize%k; file://分割后于下的字节数
emod=mod; file://使mod在整个程序都可访问
if(i
{pms->Position=x; file://改变内存流读取指针
pms->ReadBuffer(p,k); file://把内存流读入缓冲区，即改变流的类型
x=x+k;
client->Socket->SendBuf(p,k); file://将分割的文件发送
i++; }
else
{ shi++;
if(shi==1)
{pms->ReadBuffer(p,mod); file://发送最后mod个字节后，发送完毕
client->Socket->SendBuf(p,mod); }}}
//下面函数用于选择要发送的文件（*.bmp）
void __fastcall TForm1::Button2Click(TObject *Sender)
{ if(OpenDialog1->Execute()){
filename = OpenDialog1->FileName;
label->Caption=\"选择图片成功\";
hui=0; shi=0; a=0;
x=0; i=0;}}
file://---------------------------------------------------------------------------
由于在文件中要用到全局变量gan，所以要在unit.h的头文件中加入其定义，如下：
