Передача файлов по локальной сети - C++ Builder - Ответ 7431175

Port = 1001 ; // Порт по которому будет работать и клиент и сервер
Active = false ; // Пока неактивен

Memo1->Lines->Add("К Вам подключились ;");

ErrorCode = 0 ;
ShowMessage("Server Error");

Server->Active = true ;
Server->Open() ;
Memo1->Lines->Add("Создан сервер.");

void *P; // указатель на файл
int Size; // размер
if( OpenDialog1->Execute() )
{
 MS->LoadFromFile( OpenDialog1->FileName ); // выбираем файл 
 Memo1->Lines->Add( "Загрузили требуемый файл в поток..." ); // заполняем лог 
}
Server->Socket->Connections[0]->SendText( "file#" + OpenDialog1->FileName + "#" + IntToStr( MS->Size ) + "#" ); 
// отправляем заголовок
 
Memo1->Lines->Add ( "Послали заголовок" );
MS->Position = 0 ; // Устанавливаем поток в начальную позицию ;
P = MS->Memory ; // присваиваем указателю поток файла
Size = Server->Socket->Connections[0]->SendBuf( P , MS->Size ); // отправляем буфер клиенту; Size
  //равно размеру отправленной информации
Memo1->Lines->Add( "Отправлено: " + IntToStr( Size ) + " из " + IntToStr( MS->Size ) ); // заполняем лог

if(Server->Socket->Connections[0]->ReceiveText()=="end") // если клиент прислал команду "end"
{
 Memo1->Lines->Add("Клиент принял файл"); // записываем в лог
 MS->Clear() ; // Очищаем поток
}

Port = 1001 ; // Клиент и сервер должны работать на одинаковых портах 
Active = false ; // Пока неактивен
Address = 127.0.0.1 ; // Адрес укажем пока свой, что б протестировать работу сервера и клиента локально
Host = 127.0.01 ;

private: 
 AnsiString Name;

TMemoryStream *MS = new TMemoryStream ; // создаем поток под принимаемый файл
void Write( AnsiString Text ); // ф-я записи получаемой информации в поток
int Size ; // размер передаваемого файла
bool Receive ; // передаем ли мы на данный момент файл
AnsiString FileName ; // имя файла

void Write( AnsiString Text )
{
 if(MS->Size < Size) // если мы еще принимаем файл и размер потока меньше размера файла
 {
  MS->Write( Text.c_str() , Text.Length() ); // записываем в поток
  Form1->Memo1->Lines->Add( "Принимаем данные..." ); // пишем лог
 }
 if(MS->Size == Size) // если файл принят и размер потока соответствует размеру файла
 {
  Receive = false ; // останавливаем режим передачи
  MS->Position = 0 ; // переводим каретку потока в начало
  Form1->Client->Socket->SendText( "end" ); // пишем серверу, что мы приняли файл
  CreateDir( "Downloads" ); // создаем папку для сохраненных файлов
  MS->SaveToFile( "Downloads\\"+FileName ); // сохраняем туда наш файл
  MS->Clear() ; // освобождаем поток
  Size = 0 ;
  Form1->Memo1->Lines->Add("Файл принят !"); // пишем в лог что файл принят
 }
}

void __fastcall TForm1::ClientRead( TObject *Sender,
  TCustomWinSocket *Socket )
{
 AnsiString Rtext ; // текст, который посылает сервер
 Rtext = Client->Socket->ReceiveText() ;
 if( Receive == true ) // если мы в режиме передачи файла, то
 {
  Write( Rtext ); // записываем его в поток
 }
 else // если нет , то
 {
  Memo1->Lines->Add( "Приняли текст :" + Rtext ); // пишем в лог все что принимаем от сервера
  if(Rtext.SubString( 0,Rtext.Pos("#")-1) == "file" ) // Если это строка типа 
  // file#filename#filesize#, то начинаем парсерить полученную информацию :
  {
  Rtext.Delete( 1 , Rtext.Pos( "#" ) ) ; // удаляем слово file
  Name = Rtext.SubString( 0 , Rtext.Pos( "#" ) -1 );// Определяем имя файла
  FileName = Name.SubString( Name.LastDelimiter( "\\" ) + 1 , Name.Length() );
  // Выделяем чистое имя файла , например с c:\\test.txt , берем test.txt
  Rtext.Delete( 1 , Rtext.Pos( "#" ) ); // Удаляем последний разделитель
  Size = StrToInt( Rtext.SubString( 0 , Rtext.Pos( "#" ) - 1) ) ; // Определяем размер файла
  Rtext.Delete( 1 , Rtext.Pos( "#" ) ); // Удаляем последний разделитель
  Memo1->Lines->Add( "Размер файла: " + IntToStr( Size ) + " байт" ); // Выводим размер файла в лог
  Memo1->Lines->Add( "Имя файла: " + Name ); // Выводим имя файла в лог
  Receive = true; 
  // Переводим сервер в режим приёма файла
   
  }
 }
}

void __fastcall TForm1::ClientConnect( TObject *Sender,
  TCustomWinSocket *Socket )
{
 Memo1->Lines->Add( "Вы присоеденились ;" );
}
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ClientError( TObject *Sender,
  TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode )
{
 ErrorCode = 0;
 ShowMessage( "Client Error" );  
}

void __fastcall TForm1::Button1Click( TObject *Sender )
{
 Client->Open() ; // открываем 
 Memo1->Lines->Add( "Коннектимся..." );
}