🚀 go-pugleaf

"Safari" <Safari@alloymail.com> wrote in message
news:3E9466BC.8060508@alloymail.com...

> 1. I fail to write or complete this code! return me two errors.
>     {a. Stream read error.

The only time that can happen is inside TStream::ReadBuffer() when
TStream::Read() returns a value other than the requested amount.  Which
makes sense if you are requesting 50000 bytes and it reads fewer (due to end
of file, for example).

The same applies to WriteBuffer() as well - it will throw an exception if
the amount written does not match the amount requested.

You should be calling Read() and Write() instead of ReadBuffer() and
WriteBuffer().

> 2. Your simple code dosn't write any file!, excuse me.

The following code works fine for me:

    int iSourceFile = FileOpen("C:\\test.rtf", fmOpenRead |
fmShareDenyWrite);
    if( iSourceFile != -1 )
    {
        BYTE buffer[50000];
        int iNum = 1;

        do
        {
            int iRead = FileRead(iSourceFile, buffer, 50000);
            if( iRead != -1 )
            {
                if( iRead == 0 )
                    break;    // finished

                AnsiString ext = Format("%.3d", ARRAYOFCONST(( iNum )));
                ++iNum;

                int iNewFile = FileCreate("C:\\test." + ext);
                if( iNewFile != -1 )
                {
                    if( FileWrite(iNewFile, buffer, iRead) != iRead )
                        // an error occured, handle it as needed

                    FileClose(iNewFile);
                }
                else
                    // an error occured, handle it as needed
            }
            else
                // an error occured, handle it as needed
        }
        while( true );
        FileClose(iSourceFile);
    }
    else
        // an error occured, handle it as needed


Gambit