🚀 go-pugleaf

"Safari" <Safari@alloymail.com> wrote in message
news:3E8F1D05.40008@alloymail.com...

> How can i split a file with TFileStream?
> I want to read Exmp:
> 1..50,000 bytes of 1,000,000 bytes to MyFile.001
> 50,001..100,000 bytes of 1,000,000 bytes to MyFile.002

Simply read the file in a loop, each iteration of the loop reading a block
of data and processing it as needed, continuing until the loop has read the
entire stream in full.  For example:

    int iSourceFile = FileOpen("C:\\somefile.ext", 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++ )));

                int iNewFile = FileCreate("c:\\MyFile." + 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