delphi – 如何处理临时文件?
发布时间:2020-12-15 09:44:07 所属栏目:大数据 来源:网络整理
导读:在我的应用程序中,我的用户可以将文件(pdf / xls / doc)导入表或将它们导出到文件夹.现在我想直接打开这些文件. 到目前为止,我能够: – 获得一个独特的名字 – 将blob文件保存到生成的文件中 – 打开它 问题是我不知道如何删除(或更新)文件,之后用户将关闭
在我的应用程序中,我的用户可以将文件(pdf / xls / doc)导入表或将它们导出到文件夹.现在我想直接打开这些文件.
到目前为止,我能够: 问题是我不知道如何删除(或更新)文件,之后用户将关闭该文件. 如果有人可以帮助我,我会很高兴:) 这是我的代码的快照: 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; 解决方法
不幸的是,现在有4个upvotes用于
this answer by Remy Lebeau,当时该技术根本不适用于大多数应用程序.也许其中一位支持者可以发布一个代码片段,允许用Acrobat Reader打开PDF文件,而文件仍然打开时带有FILE_FLAG_DELETE_ON_CLOSE标志?
无论如何,您可以在这里结合一些提示以获得最佳结果: >拥有应用程序使用的临时文件的内部列表. 我更喜欢这种方法在重启时注册所有文件以进行删除,因为我不确定应用程序可能打开多少个临时文件 – 也许MOVEFILE_DELAY_UNTIL_REBOOT可以注册的文件数量有限制?这是一个系统范围的资源,我只会谨慎使用. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |