C++ builder 网络传输程序含服务器和客户端源码

使用C++ builder 编写的网络传输文件程序，包含服务器和客户端全部源码，可以传输文件。

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

#include 
#pragma hdrstop
#include 
#include “Client_Send.h“
#include “File_Send.h“
//---------------------------------------------------------------------------
#pragma package（smart_init）
#pragma resource “*.dfm“
TForm_Client *Form_Client;
AnsiString name;
//---------------------------------------------------------------------------
__fastcall TForm_Client::TForm_Client（TComponent* Owner）
        : TForm（Owner）
{
Application->OnHint = DisplayHint;
     FileCount=0;

}
//---------------------------------------------------------------------------
void __fastcall TForm_Client::SpeedButton1Click（Tobject *Sender）
{
  if（OpenDialog1->Execute（））
  name=OpenDialog1->FileName;
}
//---------------------------------------------------------------------------
void __fastcall TForm_Client::SpeedButton2Click（Tobject *Sender）
{
  if（name.IsEmpty（））
  {
  MessageBox（NULL“请选择要发送的文件““信息“MB_OK）;
  return;
  }
  if（ComboBox1->Text.IsEmpty（））
  {
  MessageBox（NULL“请选择或输入对方的IP地址““信息“MB_OK）;
  return;
  }
//  if（Panel1->Caption.IsEmpty（））
 if（Edit1->Text.IsEmpty（））
  {
  MessageBox（NULL“没有可用的端口，请稍后再试““信息“MB_OK）;
  return;
  }
  TClientSocket *sock=new TClientSocket（this）;
  sock->Active=false;
  try
  {
  sock->Address=ComboBox1->Text;
  //sock->Port=port;
  sock->Port=StrToInt（Edit1->Text）;
  sock->ClientType = ctNonBlocking;
  sock->Active=true;
  }
  catch（...）
  {
  MessageBox（NULL“输入的IP地址不对或没有可用的端口““信息“MB_OK）;
  return;
  }
  try
  {
  FileCount+=1;
  StatusBar1->Panels->Items[1]->Text=IntToStr（FileCount）+“个文件发送中...“;
  TSend *p=new TSend（truesockname）;
  p->FreeOnTerminate=true;
  p->Resume（）;
  }
  catch（...）
  {
  MessageBox（NULL“程序出错““错误“MB_OK）;
  return;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm_Client::N1Click（Tobject *Sender）
{
  if（ListView1->Items->Count<=0）
  {
    MessageBox（NULL“没有发送完毕的记录““信息“MB_OK）;
    return;
    }
  if（ListView1->Selected->SubItems->Strings[1]!=“100%“）
  {
    MessageBox（NULL“还没有发送完毕，不能删除““Warning“MB_OK）;
    return;
    }
  else
  {
   try{
   ListView1->DeleteSelected（）;
   }
    catch（...）
    {
     MessageBox（NULL“操作有误““信息“MB_OK）;
     return;
     }
     }
}
//---------------------------------------------------------------------------
void __fastcall TForm_Client::ClientSocket1Read（Tobject *Sender
      TCustomWinSocket *Socket）
{
      AnsiString data = Socket->ReceiveText（）;
      try
      {
      port=StrToInt（data）;
      Panel1->Caption=data;
      }
      catch（...）
      {
        return;
      }
}
//---------------------------------------------------------------------------
void __fastcall TForm_Client::SpeedButton3Click（Tobject *Sender）
{
  ClientSocket1->Active=true;
}
//--------------------------------------

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

     文件       4181  2017-11-20 17:38  网络文件传输20171110\客户端\Client_Send.cpp

     文件         51  2017-11-21 14:53  网络文件传输20171110\客户端\Client_Send.ddp

     文件       2988  2017-11-21 13:56  网络文件传输20171110\客户端\Client_Send.dfm

     文件       2110  2017-11-21 13:56  网络文件传输20171110\客户端\Client_Send.h

     文件     155643  2017-11-21 13:58  网络文件传输20171110\客户端\Client_Send.obj

     文件       4181  2017-11-20 17:38  网络文件传输20171110\客户端\Client_Send.~cpp

     文件         51  2017-11-20 18:25  网络文件传输20171110\客户端\Client_Send.~ddp

     文件       2855  2017-11-20 17:38  网络文件传输20171110\客户端\Client_Send.~dfm

     文件       2087  2017-11-20 08:57  网络文件传输20171110\客户端\Client_Send.~h

     文件       1762  2017-11-21 13:59  网络文件传输20171110\客户端\File_Send.cpp

     文件        691  2017-11-10 18:30  网络文件传输20171110\客户端\File_Send.h

     文件     591795  2017-11-21 13:59  网络文件传输20171110\客户端\File_Send.obj

     文件       1728  2017-11-20 18:21  网络文件传输20171110\客户端\File_Send.~cpp

     文件        691  2017-11-10 18:30  网络文件传输20171110\客户端\File_Send.~h

     文件       3835  2017-11-20 09:19  网络文件传输20171110\客户端\Project1.bpr

     文件       1093  2017-11-10 18:30  网络文件传输20171110\客户端\Project1.cpp

     文件      39936  2017-11-21 13:59  网络文件传输20171110\客户端\Project1.exe

     文件      18588  2017-11-11 17:39  网络文件传输20171110\客户端\Project1.obj

     文件        876  2017-11-10 16:44  网络文件传输20171110\客户端\Project1.res

     文件    2359296  2017-11-21 14:53  网络文件传输20171110\客户端\Project1.tds

     文件       3835  2017-11-11 21:06  网络文件传输20171110\客户端\Project1.~bpr

     文件       1093  2017-11-10 18:30  网络文件传输20171110\客户端\Project1.~cpp

     文件        523  2017-11-10 17:18  网络文件传输20171110\客户端\Unit1.cpp

     文件        328  2017-11-10 16:59  网络文件传输20171110\客户端\Unit1.dfm

     文件        750  2017-11-10 16:44  网络文件传输20171110\客户端\Unit1.h

     文件       3702  2017-11-23 14:29  网络文件传输20171110\服务器端\Project1.bpr

     文件       1069  2017-11-10 19:57  网络文件传输20171110\服务器端\Project1.cpp

     文件      38400  2017-11-23 14:28  网络文件传输20171110\服务器端\Project1.exe

     文件      18564  2017-11-10 19:57  网络文件传输20171110\服务器端\Project1.obj

     文件        876  2017-11-10 19:36  网络文件传输20171110\服务器端\Project1.res

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