🚀 go-pugleaf

"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message 
news:426eaf63@newsgroups.borland.com...
>
> "Egi2kaZz" <egi2kas@gmail.com> wrote in message
> news:426e9298@newsgroups.borland.com...
>
>> Well I'm using your code posted 2005 01 11  "please help
>> me..socket file transfer "
>
> Ok.
>
>> And if don't use:
> <snip>
>> Client's program crashes with no responding :(
>
> You need to be more specific.  What does all of the client's reading code
> look like?  What is happening when it crashes?  Are there any error
> messages?  Please show code for both parties that actually compiles.
client's code:

         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("film.avi",fmCreate);
        try {
            ReadStream(Socket, file);
        }
        __finally {
            delete file;

        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
ClientSocket1->Host = "192.168.0.1";
ClientSocket1->Address = "192.168.0.22";
ClientSocket1->Active = true;


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

Server's code:
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::Button1Click(TObject *Sender)
{
   if( OpenDialog1->Execute() )
        {
            TFileStream* file = new TFileStream(OpenDialog1->FileName,
fmOpenRead);
            try
            {
                if( 
!SendStream(ServerSocket1->Socket->Connections[0],file) )
                    ShowMessage("Could not send file");

            }
            __finally {
                delete file;
            }
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{

ServerSocket1->Active = true;

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

first I start server's program, then client's..I can see that file is 
transfering if I send
big file 700mb(it's takes more time:)), in client pc it's growing, BUT in 
the end program stop responding
with no errors and then I close it,file became 0,0kb size..
As I mentioned, I if I place:
try {
            ReadStream(Socket, file);
     }
__finally {
            delete file;
            ClientSocket1->Active=false; <----
             }
then program work's fine, but every time I send file, have to disactive, 
active..:(

e.