🚀 go-pugleaf

well i have the following code

//client//------------------------------------------------------------------
---------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//--------------------------------------------------------------------------
-
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//--------------------------------------------------------------------------
-
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//--------------------------------------------------------------------------
-

   bool __fastcall ReadRaw(TCustomWinSocket *Socket, LPVOID Buffer, int
BufSize)
   {
       int read;
       LPBYTE pBuf = (LPBYTE) Buffer;

       while( BufSize > 0 )
       {
           read = Socket->ReceiveBuf(pBuf, BufSize);
           if( read == -1 )
           {
               if( WSAGetLastError() != WSAEWOULDBLOCK )
                   return false;
           }
           else
           {
               pBuf += read;
               BufSize -= read;
           }
       }

       return true;
   }


 //-----------------------------------------------------------
 bool __fastcall ReadStream(TCustomWinSocket *Socket, TStream *Stream)
   {
       BYTE buf[1024];
       int BufSize;

       int BytesToRead = 0;
       if( !ReadRaw(Socket, &BytesToRead, sizeof(int)) )
           return false;

       while( BytesToRead > 0 )
       {
           if( BytesToRead >= 1024 )
               BufSize = 1024;
           else
               BufSize = BytesToRead;

           if( !ReadRaw(Socket, buf, BufSize) )
               return false;

           Stream->Write(buf, BufSize);
           BytesToRead -= BufSize;
       }

       return true;
   }
//--------------------------------------------

 void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
TCustomWinSocket *Socket)
   {
       TFileStream *file = new TFileStream("a.dat",fmCreate);
       try {
           ReadStream(Socket, file);
       }
       __finally {
           delete file;
ClientSocket1->Active=false;Application->Terminate();
       }
   }
//--------------------------------------------------------------------------
-
//--------------------------------------------------------------------------
//server//------------------------------------------------------------------
---------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//--------------------------------------------------------------------------
-
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//--------------------------------------------------------------------------
-
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//--------------------------------------------------------------------------
----
bool __fastcall SendRaw(TCustomWinSocket *Socket, LPVOID Buffer, int
BufSize)
   {
       int sent;
       LPBYTE pBuf = (LPBYTE) Buffer;

       while( BufSize > 0 )
       {
           sent = Socket->SendBuf(pBuf, BufSize);
           if( sent == -1 )
           {
               if( WSAGetLastError() != WSAEWOULDBLOCK )
                   return false;
           }
           else
           {
               pBuf += sent;
               BufSize -= sent;
           }
       }

       return true;
   }
//--------------------------------------------------------------------------
-
   bool __fastcall SendStream(TCustomWinSocket *Socket, TStream *Stream)
   {
       BYTE buf[1024];
       int BytesToSend = (Stream->Size - Stream->Position);

       if( !SendRaw(Socket, &BytesToSend, sizeof(int)) )
           return false;

       while( BytesToSend > 0 )
       {
           int read = Stream->Read(buf, sizeof(buf));
           if( read < 1 )  // unexpected end-of-stream
               return false;
           if( !SendRaw(Socket, buf, read) )
               return false;
           BytesToSend -= read;
       }

       return true;
   }

//**********************************************************************


void __fastcall TForm1::ServerSocket1GetSocket(TObject *Sender, int Socket,
      TServerClientWinSocket *&ClientSocket)
{

           TFileStream* file = new TFileStream("a.dat",fmOpenRead);
           try
           {
              SendStream(ServerSocket1->Socket->Connections[0],file) ;


           }
           __finally {
               delete file;Edit1->Text=Edit1->Text.ToInt()+1;

           }
}
//--------------------------------------------------------------------------
-

the program sends a file from the server socket to the client socket when
the client socket connects to the servver socket
if 2 client socket connect simutanuesly to the server the second client
doesnt get the file and the program crashes.if the client take the file in a
row it works(i mean 1st client ask file,take file,closses connection,then
come 2nd client etc)
what changes should be made in order that many clients can take the file
from the server at the same time?

� "loukiachr" <loukiachr@hotmail.com> ������ ��� ������
news:423963b8$2@newsgroups.borland.com...
> can one server socket handle many client sockets?
> i want to create a server (using server socket)that transfers file to each
> client that is connected accordingly to the file that is requested..for
> example if client1 asks for a.txt give him,but in the same time client2
> might ask b.txt and give him...i have checked the code for file transfer
> from serversocket to client socket
> i use the code that (i think)remy posted many weeks ago...
>
>