🚀 go-pugleaf

"Remy Lebeau (TeamB)" <gambit47.no.spam@no.spam.yahoo.com> wrote in message
news:403d3651$1@newsgroups.borland.com...
>
> "Bob Gonder" <notbg@notmindspring.invalid> wrote in message
> news:25cq305gvts4b23ajlk1j18te0ctcsposn@4ax.com...
>
> > I've never thought about CreateFile hanging. Always
> > expect it to return one way or another.
>
> Agreed.  I've never seen it happen myself either.  But from Jt's original
> message, that is the only way TFileStream's constructor can freeze, since
> all it does is call either FileOpen() or FileCreate() based on the Mode
> parameter, which in turn simply call CreateFile() directly with various
> parameters.
>
> > Spec#1) Might the file be a "temporary" file that the os
> > deletes as soon as it is closed? Trapping the Open mid-stream?
>
> I would expect CreateFile() to fail on that.
>
> > Spec#2) Might there be a "race" condition in the os where the
> > file "starts" to be created, his services gets notified, and he tries
> > to open the file before it is fully created?
>
> Hmm, interesting.  Considering that Jt has not yet answered my question
> regarding *when* he is calling his OpenFile() method, that might be a
> possibility.
>
>
> Gambit
>
>



void __fastcall TScanThread::Execute()
{
const TCHAR szDirectory[]       = "D:\\Apps\\CDNT\\Verizon";    // directory
const DWORD ExitPollInterval    = 5 * 60 * 1000; // milliseconds

HANDLE hChange = FindFirstChangeNotification(
    szDirectory,                  // directory to monitor
    FALSE,                        // don't monitor sub-directories
    FILE_NOTIFY_CHANGE_FILE_NAME  // notifiy on file rename, create or
delete
    );

if( FindNextChangeNotification( hChange ) )
    while(!Terminated)
        {
        DWORD WaitResult = WaitForSingleObject(    // enter efficient wait
state
            hChange,
            ExitPollInterval
            );

        if( WaitResult == WAIT_OBJECT_0 )    // a file has changed
            {
            ptr = fopen("d:\\Apps\\CDNT\\Verizon\\Processed\\log.txt", "a");
            // Process new file
            fprintf(ptr, "Scanning for file %s\n", DateTimeToStr(Now()));

            bool goodScan = Scan();

 inside the scan function  i call a function to check oracle to make sure
the file has not all ready been loaded. If it has no then I call the
OpenFile() function.

            fclose(ptr);
            }
        else if( WaitResult == WAIT_TIMEOUT )    // timeout has occured
without a change notification
            continue;                            // check StopMonitoring
flag, then continue
        else
            break;                               // something unexpected
happened, stop monitoring

        if( !FindNextChangeNotification( hChange ) )
            break;
        }

FindCloseChangeNotification( hChange );
}

I have added more granular logging as suggested. I am not able to reproduce
this error when testing it. I have to just let in run in production for a
day or two and the problem will reoccur.