🚀 go-pugleaf

Hey Remy,

I can not change the file extention.  I am using this in a view file
procedure, I've copied it below.  I am retrieving the file and letting
windows open it with its associated program.  So if I change it, I'm not
sure how to open the file so the end-user can see it.  I guess I was being
lazy by trying to let Windows clean it up without having to write something
to do it.  It didn't look like that was going to happen, so I've ended up
writing a TmpFileCleanUp procedure.  But, if you have any other ideas, I'll
be more then happy to look at them.

Thanks for the help,

Randel Bjorkquist

//--------------------------------------------------------------------------
-
void __fastcall TAuditAttachment::ViewAttachment(void)
{
  char TPath[256];
  AnsiString TmpPath;
  AnsiString TmpFileName;

  AnsiString FilterString;
  TTable* TmpTable = new TTable(Application);

  TmpTable->DatabaseName = DatabaseName;
  TmpTable->TableName = AD_TABLE_NAME;

  FilterString  = "(AuditID = '"    + (AnsiString)FAuditID + "') ";
  FilterString += "AND ";
  FilterString += "([FileName] = '" + FFileName + "')";

  TmpTable->Filter = FilterString;
  TmpTable->Filtered = true;

  TmpTable->ReadOnly = true;
  TmpTable->Active = true;

  TFileStream* FileStream;
  TBlobStream* BlobStream;

  BlobStream =
dynamic_cast<TBlobStream*>(TmpTable->CreateBlobStream(TmpTable->FieldByName(
"FileData"), bmRead));

  GetTempPath(sizeof(TPath), TPath);
  TmpPath = TPath;

  TmpFileName  = TmpPath;
  TmpFileName += "catmp_";
  TmpFileName += FileName;

  try{
    FileStream = new TFileStream(TmpFileName, fmCreate);

    if(BlobStream != NULL){
      FileStream->CopyFrom(BlobStream, 0);
    }//end of "if(BlobStream != NULL)"
  }//end of "try-block"
  __finally{
    delete FileStream;
    delete BlobStream;

    TmpTable->Active = false;
    delete TmpTable;
  }//end of "__finally"

  if((int)ShellExecute(NULL, "open", TmpFileName.c_str(),
                       NULL, NULL, SW_SHOW) == SE_ERR_NOASSOC){
    WinExec(("rundll32.exe shell32.dll, OpenAs_RunDLL " +
TmpFileName).c_str(), SW_NORMAL);
  }//end of "if-statement"
}//end of "TAuditAttachment::ViewAttachment()" method


"Remy Lebeau (TeamB)" <gambit47.no.spam@no.spam.yahoo.com> wrote in message
news:40b2276a$1@newsgroups.borland.com...
>
> "Randel Bjorkquist" <rbjorkquist@coilcraft.com> wrote in message
> news:40b21cf1$1@newsgroups.borland.com...
>
> > I just tried what you were sugguesting, but it didn't work.
> > The "Disk Cleanup.exe", skipped right over my file.
>
> Try giving the file the ".tmp" extension.
>
>
> Gambit
>
>