[搞定][请求]附件上传下载如何让它可以支持在线打开**

joyes · 发表于 2007-10-31 16:28:01

lStr := 自己定义的临时目录 + DataSource1.DataSet.FieldByName('WJMC').AsString+DataSource1.DataSet.FieldByName('WJHZ').AsString;
TBlobField(DataSource1.DataSet.FieldByName('WJ')).SaveToFile(lStr);
Borland.Delphi.ShellAPI.ShellExecute(0, 'open', lStr, '', '', borland.Delphi.Windows.Sw_ShowNormal);

zykj · 发表于 2007-10-31 16:58:01

如何创建一个文件夹不然到时文件太乱了。。。我想在C盘下建一个文件专门放文件。。。

如何写？
最好存在文件夹时不需要创建

joyes · 发表于 2007-10-31 17:03:18

if not FileCtrl.DirectoryExists(自己的目录) then
SysUtils.CreateDir(自己的目录);

zykj · 发表于 2007-10-31 17:19:08

谢谢,搞定

		自动登录	找回密码
密码			立即注册

[搞定][请求]附件上传 下载 如何让它可以支持在线打开**

[搞定][请求]附件上传下载如何让它可以支持在线打开**