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

void __fastcall TSendF::ServerClientRead(TObject *Sender,

      TCustomWinSocket *Socket)

{

if(Server->Socket->Connections[0]->ReceiveText()=="no") // если клиент прислал команду "no"

{

Memo1->Lines->Add("Клиент отказался принять файл"); // записываем в лог

}

else if(Server->Socket->Connections[0]->ReceiveText()=="end") // если клиент прислал команду "end"

{

Memo1->Lines->Add("Клиент принял файл"); // записываем в лог

MS->Clear() ;                            // Очищаем поток

}

else if(Server->Socket->Connections[0]->ReceiveText()=="og!") // если клиент прислал команду " og!"

Memo1->Lines->Add("Клиент подтвердил прием"); // записываем в лог

Server->Active = false ;

Server->Close() ;

}

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

void __fastcall TSendF::ServerClientError(TObject *Sender,

      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)

{

   ErrorCode = 0 ;

   ShowMessage("Server Error");

}

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

void __fastcall TSendF::Button2Click(TObject *Sender)

{

Server->Active = false ;

Server->Close() ;

SendF->Close();

}

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

void __fastcall TSendF::FormCreate(TObject *Sender)

{

Server->Active = true ;

Server->Open() ;

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

}

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