Question

在我的应用程序中，我的用户可以将文件（pdf / xls / doc）导入表格或将其导出到文件夹。现在我想直接打开这些文件。

到目前为止，我能够： - 获得一个独特的名字 - 将blob文件保存到生成的文件中 - 打开它

问题是我不知道如何删除（或更新）文件，之后用户将关闭该文件。

如果有人可以帮助我，我将非常高兴：）

以下是我的代码的快照：

procedure OpenTemporaryFile(AFileExtension: String; AKey: Integer;
            AMyConnection: TMyConnection);
     Var
       qrDocuments : TMyQuery ;
       TmpName,ExtName: string;
       TempFileName: TFileStream;
    begin
       //Generate an unique tmp file located into user temp folder
       TmpName:=  FileGetTempName('~SI');
       ExtName:= ChangeFileExt(TmpName, AFileExtension);
       //Change files extension so that Shellexecute will be able to open the file
       RenameFile(TmpName,ExtName );
       //Creating the FileStream (data is fetched from an blob field)
       TempFileName := TFileStream.Create(ExtName, fmOpenReadWrite );

       qrDocuments := TMyQuery.create(nil);
       try
        qrDocuments.Connection := AMyConnection;
        qrDocuments.Close;
        qrDocuments.SQL.Clear;
        qrDocuments.SQL.Text:='Select Id,FileName,Data from files where Id = :prId And Data IS NOT NULL';
        qrDocuments.ParamByName('prId').AsInteger := AKey;
        qrDocuments.open;
        TBlobField(qrDocuments.FieldByName('Data')).SaveToStream(TempFileName);
       finally
          TempFileName.Free;
          qrDocuments.free;
       end;
       ShellExecute(Application.Handle, 'open', Pchar(ExtName), '', '', SW_SHOWNORMAL);
       DeleteFile( ExtName);
    end;

Answer 1

不幸的是，this answer by Remy Lebeau现在有4个upvotes，当这项技术根本不适用于大多数应用程序时。也许其中一位支持者可以发布一个代码片段，允许用Acrobat Reader打开PDF文件，而文件仍然以FILE_FLAG_DELETE_ON_CLOSE标志打开？

无论如何，您可以在此处结合一些提示以获得最佳效果：

拥有应用程序使用的临时文件的内部列表。
在程序关闭时，请遍历临时文件列表并尝试删除它们。如果其中一些失败（因为它们仍在外部应用程序中打开），请在重新启动时使用the code gabr gave you注册这些文件以进行删除。
每当您需要一个新的临时文件时，首先浏览您的内部文件列表并尝试重用其中一个文件。仅当失败时才创建新文件（并将其名称添加到列表中）。

我更喜欢这种方法在重新启动时注册所有文件以便删除，因为我不确定您的应用程序可能打开多少个临时文件 - 也许可以使用{{注册的文件数量限制1}？这是一个系统范围的资源，我只会谨慎使用。

Answer 2

一种可能性是将每个临时文件添加到系统启动期间删除的文件列表中。

在Windows NT平台上（自Windows 2000起），您只需调用MoveFileEx函数，并将第二个参数（目标）设置为nil，并使用标记MOVEFILE_DELAY_UNTIL_REBOOT。

在Windows 9x上，这要复杂得多。您必须编辑文件％WINDIR％\ wininit.ini并在[重命名]部分写入一个条目。

MSDN条目How To Move Files That Are Currently in Use描述了这两种技术。

函数DSiMoveOnReboot（免费DSiWin32库的一部分）处理两个操作系统。如果传递空字符串作为第二个参数，它将在重新启动时删除源文件。

function DSiMoveOnReboot(const srcName, destName: string): boolean;
var
  wfile: string;
  winit: text;
  wline: string;
  cont : TStringList;
  i    : integer;
  found: boolean;
  dest : PChar;
begin
  if destName = '' then
    dest := nil
  else
    dest := PChar(destName);
  if DSiIsWinNT then
    Result := MoveFileEx(PChar(srcName), dest, MOVEFILE_DELAY_UNTIL_REBOOT)
  else
    Result := false;
  if not Result then begin
    // not NT, write a Rename entry to WININIT.INI
    wfile := DSiGetWindowsFolder+'\wininit.ini';
    if FileOpenSafe(wfile,winit,500,120{one minute}) then begin
      try
        cont := TStringList.Create;
        try
          Reset(winit);
          while not Eof(winit) do begin
            Readln(winit,wline);
            cont.Add(wline);
          end; //while
          if destName = '' then
            wline := 'NUL='+srcName
          else
            wline := destName+'='+srcName;
          found := false;
          for i := 0 to cont.Count - 1 do begin
            if UpperCase(cont[i]) = '[RENAME]' then begin
              cont.Insert(i+1,wline);
              found := true;
              break;
            end;
          end; //for
          if not found then begin
            cont.Add('[Rename]');
            cont.Add(wline);
          end;
          Rewrite(winit);
          for i := 0 to cont.Count - 1 do
            Writeln(winit,cont[i]);
          Result := true;
        finally cont.Free; end;
      finally Close(winit); end;
    end;
  end;
end; { DSiMoveOnReboot }

Answer 3

使用Win32 API CreateFile（）函数打开文件，指定FILE_FLAG_DELETE_ON_CLOSE标志，然后将生成的句柄传递给THandleStream对象，这样您仍然可以使用SaveToStream（）。

此外，您的代码中存在错误 - 您将错误的句柄传递给ShellExecute（）。它需要一个窗口句柄，但是你传递的是一个文件句柄，更糟糕的是你在释放TFileStream后访问文件句柄，从而关闭句柄。

Answer 4

也许您可以将它们存储在一些众所周知的文件夹中（例如，TEMP文件夹中的子文件夹，其中包含您的应用程序的名称），并在下次加载您的应用时清除该文件夹的内容？或者您可以安装其他清除实用程序并将其设置为在自动启动中运行。
再次启动后清除文件的另一个想法 - 您可以在启动时清除子文件夹中的所有内容，或者创建使用上次修改时间，最后大小创建的文件列表，将此列表存储在XML文件中，然后删除或更新将temp子文件夹的内容与该列表中的文件详细信息进行比较？

Answer 5

如果我没记错的话，CreateFile有一个标志，告诉Windows一旦关闭它的最后一个句柄，它应该删除该文件。因此，正常创建文件，关闭并使用share deny none和上面提到的标志重新打开它。然后让外部应用程序打开它并自己关闭它。这会导致Windows在外部应用程序关闭后删除文件。

（我没试过。）

Answer 6

在类Unix操作系统中，通常的技巧是打开它并立即删除。它不会出现在目录中，但数据仍然分配给保持打开的进程。一旦它关闭（要么很好地由于进程死亡），文件系统将回收空间。

它不是一个黑客，它是文档和支持的（打开文件句柄被视为文件的'引用'，就像目录条目一样）。

也许在Windows上有一些类似的技巧？我似乎记得NTFS支持对同一文件的多个引用（不，快捷方式不是那些）。如果是这样，删除文件但仍然挂在最后一个引用上作为临时资源可能会有效。

显然，我只是在猜测......

Answer 7

实际上我们的应用程序在特定的临时文件夹中创建de文件。当应用程序关闭时，将删除fies。如果应用程序未正确关闭，则下一次执行（关闭时）将删除所有文件。

此外，您可以启动后台进程以删除不再打开的文件。 ShellExecute返回一个Handle（内部将此句柄与FileName关联）。此后台进程必须测试不存在的进程句柄并删除关联的文件。

英语不好的借口。 ; - ）

问候。

我该如何处理临时文件？

7 个答案: