有个简单的问题请教高手，在线等待 (50分)

在delphi6.0中，不用Tnmftp控件如何实现从服务器上下载文件？？？
或者有高手可以用tnmftp实现也可以？
数据库为sql server 2000，请高手帮忙！！！
******有如何用delphi实现对SQL数据库的备份*********
(最好附上一段源码)

在数据库中，建一个表，其中一个字段为BLOB类型（用来存储文件）；
上传时：
新增纪录，向BLOG字段存储文件，同时一个字段保存文件名。

下载时：
与前面相反。

to linion
我的意思是说假如我在服务器中的数据库里面有一个表,其中有一个字段是存放文件的路径.而现在我想根据路径下载该文件.我应该怎么做呢.(不用共享,不载FTP),请给源码...我可以再加分..

伪码
LoadFileToStream(FileName, Stream)
Server: SendStreamToClient(Stream)
or Client: GetStreamFromServer

非要用文件路径吗？直接存到数据库里处理不好吗？即便是用文件路径，为什么不用FTP机制呢，用IDFTP也不错的。用IDFTP可参考d6的demo。

to wlmmlw
用伪码.但我的服务器端纯粹只有数据库,没有其它的了..

to manana
因为我觉得使用文件路径是一种比较好的方法.而直接把数据存入数据库会使的数据库的文件很大.处理速度变慢.

因为这是我毕业设计的需要.请大家多给点意见吧...

nm的控件不好用。
id的好的多。

1.将该文件的全路径名显示在你的 DBEdit 控件中，即保证存放该文件路径数据的数据表已经打开
2.在你的单元文件中的uses部分加入 ShellAPI
3.在你的 DBEdit 控件中指定一个 PopupMenu, 写一个右击鼠标事件N1Click, 源代码示例如下：
procedure TMyForm.N1Click(Sender: TObject);
var v_FileName: String;
begin

// 测试文件的存在性
if DM.QFiles['FileName'] = null
then exit;

// 根据指定的文件全路径名打开这个文件（利用Windows的文件关联特性，如 .doc .xsl .txt...... etc.）
v_FileName := DM.QFiles['FileName'];
if FileExists(v_FileName)
then
ShellExecute(handle, nil, Pchar(v_FileName), nil, nil, SW_SHOWNORMAL)
else
Application.MessageBox('指定的文件不存在！',
'系统提示', MB_OK+MB_ICONINFORMATION);

end;

谢谢各位高手的解答，小弟我..........
因为现在老师叫我们改用NMFTP控件来做。但我还有一个问题要请教高手
假如，我NMFTP已经连接成功，而把FTP在的内容显示在listbox框中，但我现在要求的是显示在listbox框中的如果是目录(dir),我的双击应该目录进入下一个子目录，若是文件则取出该文件的文件名，以便进行下载保存？
请问这该如何实现，请给出源码？？
我可以再加分？希望高手们多多指教？？？

快毕业了,加紧做啊........呵呵......