//============ Создать сервер================
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Server->Active = true ;
Server->Open() ;
Memo1->Lines->Add("Создан сервер.");
}
//============Отправить файл ================
void __fastcall TForm1::Button2Click(TObject *Sender)
{
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 ) ); // заполняем лог
}
//==============Подключился клиент==================
void __fastcall TForm1::ServerAccept(TObject *Sender,
TCustomWinSocket *Socket)
{
Memo1->Lines->Add("К Вам подключились ;");
}
//==============Ошибка сервера или клиента===========
void __fastcall TForm1::ServerClientError(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
ErrorCode = 0 ;
ShowMessage("Server Error");
}
//==============Файл принят=========
if(Server->Socket->Connections[0]->ReceiveText()=="end") // если клиент прислал команду "end"
{
Memo1->Lines->Add("Клиент принял файл"); // записываем в лог
MS->Clear() ; // Очищаем поток
}
