【结贴】不能－上、传、打开，附件**

beidou

一个简单窗体用到 OpenDialog和SaveDialog，做的是一个附件的上传下载打开功能（用二进制流保存），代码是下面的代码
我现在遇到问题，上传，下载没有问题，可是打开的时候有错误。
打开就是要求点击按钮后直接打开文件，我考虑的方法是先下载保存到一个系统目录下面然后打开，我想用系统的临时文件夹，因为这个文件夹系统可以自动删除文件。
在打开事件里，我想先得到系统的临时文件夹路径，可是我得不到这个路径，showmessage为空，不知道错误在哪里。。。


上传代码（这个没有问题，就是写一下，客服好知道我是怎么做的）
procedure TMainForm.Button1Click(Sender: TObject);
var
  lFileName: String;
begin

with OpenDialog do
    if Execute then
      with DataSetBrokerAffix.DataSet do
      begin
        Append;
        lFileName := ExtractFileName(FileName);
        FieldByName('Name').AsString := lFileName;
        FieldByName('FSourceFile').AsString := lFileName;
        TBlobField(FieldByName('Content')).LoadFromFile(FileName);
        Post;
        ApplyUpdates;
      end;

end;


打开事件里面的代码：
procedure TMainForm.Button3Click(Sender: TObject);
var
  Reg:TRegistry;
  Cachedir : string;
  //identifier:'TRegistry';
begin
  Reg:=TRegistry.Create;
  try
    Reg.RootKey:=HKEY_CURRENT_USER;
    Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell   Folders\',False);
    Cachedir :=Reg.ReadString('Cache');
    showmessage(Cachedir);
    with DataSetBrokerAffix.DataSet, SaveDialog do
    begin
      TBlobField(FieldByName('Content')).SaveToFile(Cachedir);
    end;
    Borland.Delphi.ShellAPI.ShellExecute(0,'open',Cachedir,'','',Borland.Delphi.Windows.SW_NORMAL);    //pchar(Cachedir)     Application.Handle
  finally
    reg.Free;
  end;
end;

再说一下，问题是得不到系统临时文件夹目录，应该是都有的啊

lixy

那楼主就必须有一个备选目录，比如找不到哪个目录的前提下，放到什么位置。
windows可不能保证必须有这个目录。

beidou

lixy 你的意思是系统不保证有这个目录，可是我所知道只有这个目录是系统本身可以自动删除的，别的就没有了，而且我也不知道删除文件的代码。
lixy 给我一个好的建议，谢谢啊

lixy

NameSpace: Business.System    ClassDelcare: Business.System.SysUtils
--------------------------------------------------------------------------------
static function DeleteFile(FileName: string): Boolean;

lixy

楼主回馈下，谢谢。

lixy

由于长时间没有反馈，先结贴了。

有问题请开新贴。