🚀 go-pugleaf

"Remy Lebeau (TeamB)" <gambit47@yahoo.com> wrote in message
news:3edd00ef$2@newsgroups.borland.com...
>
> "Duane Hebert" <duane@nitrex.com> wrote in message
> news:3edcf095$3@newsgroups.borland.com...
>
> > I'll have to do some more testing but it
> > doesn't seem like the dtor is being called.
>
> I can assure that that until normal conditions, it does.  If it is not,
then
> you must be doing something else in your code to cause the process to
> terminate prematurely.  If you can reproduce it, then please provide a
> complete snippet of test code that reproduces the problem.

I created a new application.  I added a function that we generally use
to write to files.  I use it in the dtor.  On close it works as expected.
I logoff and it doesn't write the file.  I'm actually doing this at my desk.
I was pretty surprised.

//--------------------------------------------------------------------------
-

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <memory>
//--------------------------------------------------------------------------
-
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;


// AnsiString version of Xprtf using TFileStream
int Xprtf(AnsiString output, AnsiString filename, long filesize) {

     try {
        int FileMode;
        if(!FileExists(filename)) FileMode = fmCreate|fmShareDenyWrite;
        else FileMode = fmOpenReadWrite|fmShareDenyWrite;

        std::auto_ptr<TFileStream>Infile(new
TFileStream(filename,FileMode));
        if(Infile->Size < filesize || !filesize) Infile->Position =
Infile->Size;
        else {
                Infile->Position = 0;
                Infile->Size = 0;
        }
        Infile->WriteBuffer(static_cast<void*>(output.c_str()),
output.Length());
     }catch (Exception &e) {
        return -1;
     }

     return 0;

}

//--------------------------------------------------------------------------
-
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//--------------------------------------------------------------------------
-

__fastcall TForm1::~TForm1() {

    Xprtf("Dtor Called\r\n","c:\\spoo.txt");


}