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

zykj · 发表于 2007-10-30 15:38:02

自己开发的附件上传下载如何让它可以支持在线打开

不是通过表现类型OLE的二进制流实现的

yancm · 发表于 2007-10-30 16:02:44

?ole字段本来就是支持在线打开的阿。您的上传下载菜单怎么写的？

zykj · 发表于 2007-10-30 16:08:42

上传
procedure TFJ.SpeedButton1Click(Sender: TObject);
begin
TFZFile.SendFile(FFilter, TSQLDATASET(DataSource1.DataSet)) ;
end;
下载
procedure TFJ.SpeedButton2Click(Sender: TObject);
begin
TFZFile.BackFile(DataSource1.DataSet.FieldByName('WJ'),DataSource1.DataSet.FieldByName('WJMC').AsString+DataSource1.DataSet.FieldByName('WJHZ').AsString);
end;

zykj · 发表于 2007-10-30 17:00:30

有没有人理啊

yancm · 发表于 2007-10-30 17:26:01

TFZFile是什么？不了解。
您直接用olecontainer带的菜单进行打开和上传不可以吗？

zykj · 发表于 2007-10-30 17:30:28

不可以啊。。。因为现在做的附件资料上了好多了。。。用户想在线打开。。不想下载下来再打开麻烦

yancm · 发表于 2007-10-31 09:36:31

那打开功能只能这样做
1。先下载到本地（为了和下载相区别，可以放在一个临时目录里面）
2。打开临时目录里面的文件。

zykj · 发表于 2007-10-31 09:39:45

最初由 yancm 发布
[B]那打开功能只能这样做
1。先下载到本地（为了和下载相区别，可以放在一个临时目录里面）
2。打开临时目录里面的文件。 [/B]

程序上如何实现点打开时会自动下载到临时目录再打开

yancm · 发表于 2007-10-31 10:42:58

下载您不是做了吗？参考下载的代码即可
打开文件参考这个
Borland.Delphi.ShellAPI.ShellExecute(0, 'open', 'c:\aa.xls', '', '', borland.Delphi.Windows.Sw_ShowNormal);

zykj · 发表于 2007-10-31 15:51:50

TFZFile.BackFile(DataSource1.DataSet.FieldByName('WJ'),DataSource1.DataSet.FieldByName('WJMC').AsString+DataSource1.DataSet.FieldByName('WJHZ').AsString);

我这个方法，老是会提示另存我想让存到指定目录然后我再用
Borland.Delphi.ShellAPI.ShellExecute(0, 'open', 'c:aa.xls', '', '', borland.Delphi.Windows.Sw_ShowNormal);
打开

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

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

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