怎样建一个临时文件？？(50分)

procedure Tfrmwd.Button2Click(Sender: TObject);
Var
fn:TFilename;
begin
blob:= cds01.fieldbyname('wd') as Tblobfield;
blob.SaveToFile(fn);//fn写成'c:/file.doc'就没问题了，但我想不与硬盘发生联系
WebBrowser1.Navigate(fn);
end;
报错：cannot create file

写成'./file.doc'应该可以了吧。

使用 MemoryStream呀。没有做过Web应用，理论上应该可以。

用stram;在内存中建立。

使用stream可以在内存中建立，但是用webbrowser怎么将它调出呢？？

//得到一个唯一的临时文件名,参数strPath如果为''的话,自动得到windows的临时
//文件目录.strPrefix为临时文件后缀.
function CreateTempFile(strPath,strPrefix : string): string;
var
size : integer;
szTempFile : PChar;
strTempPath : string;
begin
size := MAX_PATH;
GetMem(szTempFile, size);
if strTempPath = '' then strTempPath := GetWinTempPath
else strTempPath := strPath;
GetTempFileName(PChar(strTempPath),strPrefix,0,szTempFile);
result := szTempFile;
FreeMem(szTempFile);
end;

//得到windows的临时文件目录
function GetWinTempPath: string;
var
size : integer;
szPath : PChar;
begin
size := MAX_PATH;
GetMem(szPath, size);
GetTempPath(size, szPath);
result := szPath;
FreeMem(szPath);
end;

多人接受答案了。