🚀 go-pugleaf

"CJ" <cluis@yahoo.com> wrote in message 
news:472a33c4$1@newsgroups.borland.com...

> There is one part in the code that it's cashing in, I am not
> sure what kind of value is supposed to be in there.

The size of the file that was previously downloaded.

> isn't new FileStream supposed to be called before you
> check the FileStream->Size  ?????

Yes.  Here is an updated example:

    SaveDialog = new TSaveDialog(NULL);
    try
    {
        if( SaveDialog->Execute() )
            FileName = SaveDialog->FileName;
    }
    __finally
    {
        delete SaveDialog;
    }

    if( FileName != "" )
    {
        TSearchRec sr;
        if( FindFirstFile(FileName, faAnyFile, sr) )
        {
            FindClose(sr);

            if( (AcceptRanges.Pos("bytes") != 0) && (sr.Size > 0) )
            {
                AnsiString Range = ("Range: bytes=" + AnsiString(sr.Size) + 
"-\r\n");
                if( !HttpAddRequestHeaders(hFile, Range.c_str(), -1, 
HTTP_ADDREQ_FLAG_ADD) )
                    throw Exception("unable to add range header to file 
request");
                bIsResuming = true;
            }
        }

        if( !HttpSendRequest(hFile, NULL, 0, NULL, 0) )
            throw Exception("unable to send file request to the server");

        if( bIsResuming )
            FileStream = new TFileStream(FileName, fmOpenReadWrite | 
fmShareDenyWrite);
        else
            FileStream = new TFileStream(FileName, fmCreate);

        try
        {
            if( bIsResuming )
                FileStream->Position = sr.Size;

            dwBytesRead = FileStream->Position;

            ProgressBar->Position = (dwBytesRead * 100 / dwBufLen);
            ProgressBar->Max = dwContentLen;

            while( InternetReadFile(hFile, Data, 1024, &dwBytesRead) )
            {
                if( dwBytesRead == 0 )
                    break;

                iWritten = 0;
                DataPtr = Data;

                do
                {
                    iWritten = FileStream->Write(DataPtr, dwBytesRead);
                    if( iWritten < 1 )
                        throw Exception("unable to write to local file");

                    DataPtr += iWritten;
                    dwBytesRead -= iWritten;

                    ProgressBar->StepBy(iWritten);
                    Application->ProcessMessages();
                }
                while( dwBytesRead != 0 );
            }

            if( FileStream->Size != dwContentLen )
                throw Exception("File saved is incomplete");
        }
        __finally
        {
            delete FileStream;
        }
    }


Gambit