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

#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個文件信息