Передача файла от клиента серверу

[UbeiBobra]

Помогите пожалуйста сделать передачу файла от клиента к серверу, ничего не получается

[Krok27]

Функции отправки/получения файлов выложите.

[UbeiBobra]

Отправка

   TMemoryStream *MS = new TMemoryStream ; 
   void *P;
   int Size;
   if( OpenDialog1->Execute() )
   {
      MS->LoadFromFile( OpenDialog1->FileName );
     
   }
   ClientSocket->Socket->SendText( "file#" + OpenDialog1->FileName + "#" + IntToStr( MS->Size ) + "#" );
   MS->Position = 0 ;
   P = MS->Memory ;
   Size=ClientSocket->Socket->SendBuf( P , MS->Size );

[UbeiBobra]

Получение

void Write( AnsiString Text );
TMemoryStream *MS = new TMemoryStream ;
int Size ;
bool Receive ;
AnsiString FileName ;


void Write( AnsiString Text )
{
 if(MS->Size < Size)
 {
  MS->Write( Text.c_str() , Text.Length() );
 }
 if(MS->Size == Size)
 {
  Receive = false;
  MS->Position = 0;
  FormMain->ServerSocket->Socket->Connections[0]->SendText("end");
  CreateDir( "Downloads" );
  MS->SaveToFile( "Downloads\\"+FileName );
  MS->Clear() ;
  Size = 0 ;
  }
}

void __fastcall TFormMain::ServerSocketClientRead(TObject *Sender,
      TCustomWinSocket *Socket) //Обработчик читающий сообщения
{
//       SendingMessages(Socket->ReceiveText()); //Читаем сообщния и рассылаем их через функцию SendingMessages()
       AnsiString Rtext ;
       Rtext = ServerSocket->Socket->ReceiveText() ;
       if( Receive == true )
       {
          Write( Rtext );
       }
       else
       {
          
          if(Rtext.SubString( 0,Rtext.Pos("#")-1) == "file" )
          {
             Rtext.Delete( 1 , Rtext.Pos( "#" ) ) ;
             Name = Rtext.SubString( 0 , Rtext.Pos( "#" ) -1 );
             FileName = Name.SubString( Name.LastDelimiter( "\\" ) + 1 , Name.Length() );
             Rtext.Delete( 1 , Rtext.Pos( "#" ) );
             Size = StrToInt( Rtext.SubString( 0 , Rtext.Pos( "#" ) - 1) ) ;
             Rtext.Delete( 1 , Rtext.Pos( "#" ) );
             Receive = true;
          }
       }
}

[Krok27]

В этом примере, кот. используешь, там же все расписано.
При отправке так же используй TFileStream

   void *P;
   int Size;
   TFileStream* FS = 0; 
   if( OpenDialog1->Execute() )
   {
       FS = new TFileStream(OpenDialog1->FileName, fmOpenRead);
      //  MS->LoadFromFile( OpenDialog1->FileName );
     
   }
   ClientSocket->Socket->SendText( "file#" + OpenDialog1->FileName + "#" + IntToStr( FS->Size ) + "#" );
   FS->Position = 0 ;
  // P = MS->Memory ;
   Size=ClientSocket->Socket->SendStream(FS);
   delete FS;
   FS = 0;

Получение:

    bool Receive  = false;
    

void Write( AnsiString Text )
{
   // проверить, есть ли папка Downloads, если нет, то создать

  TFileStream *FS = new TFileStream(FileName, fmCreate);
   FS->Write( Text.c_str() , Text.Length() );

 if(FS->Size == Size)
 {
    
   delete FS;
    FS = 0;
  }
}

Приблизительно так. Отладкой не занимался, так что это на твоей совести.

[UbeiBobra]

Ничего не получается
Ошибка

[Krok27]

http://www.programmersforum.ru/showthread.php?t=256788