ftp ,
如果小文件,文件不多,也可以考虑保存到数据库二进制字段;
如果小文件,文件不多,也可以考虑保存到数据库二进制字段;
解决方案 »
- 为什么我的窗体会一直创建
- DELPHI2009的TTrayIcon最小化后,怎么在任务栏还有图标啊
- 如何写这样的查询?
- 数据类型的问题,搞的我头晕,请各位大侠帮忙,谢谢!!!
- 大家帮帮忙啊 delphi简单进销存程序
- 我想问一下软件做好了怎么做连接数据库文件?
- IIS 奇怪问题:ASP访问应用服务器COM接口,结果不对?
- 请教:Delphi中,DBImage添加的BMP,JPG不正确,Why?
- 求救:非常奇怪的乱码 !!!
- 一个入门级问题
- DataSnap2010 服务器连接提示 windows socket error:10061 的问题
- Delphi7 & FastReport 2.5打印二维码问题
用工作组共享文件夹也可
‘合同编号’列那里只需给一个路径
var
Path:string;
Wjname: string;
begin
if not FileExists(Edit_TjWj.Text) then //判断是否选文件
begin
Application.MessageBox(PChar('找不到文件' + Edit_TjWj.Text), '错误', MB_ICONERROR);
Exit;
end;
//创建'我公司名称'+'对方单位'的文件夹
Path:=Mail_WdPath+Trim(ADOQuery_HtUpDate.FieldByName('我公司名称').AsString)+'\';
if not DirectoryExists(Path) then
CreateDir(Path);
Path:=Path+Trim(ADOQuery_HtUpDate.FieldByName('对方单位').AsString)+'\';
if not DirectoryExists(Path) then
CreateDir(Path); //复制文件
Wjname:=ExtractFileName(Edit_TjWj.Text);
if FileExists(PChar(Path+Wjname)) then //判断文件是否存在
if Application.MessageBox('注意:文件已存在,是否覆盖!','提示',mb_YesNo+mb_defbutton2+MB_ICONQUESTION)<>IDYES then
Abort;
try
CopyFile(PChar(Edit_TjWj.Text),PChar(Path+Wjname),False); //True不覆盖同名文件,False覆盖 ExtractFileName(Edit_TjWj.Text),取文件名
Application.MessageBox('新增数据保存成功。','提示',mb_Ok+MB_ICONINFORMATION); except
// ADOConnectionMain.RollbackTrans;
Application.MessageBox('数据保存不成功!','提示',mb_Ok+MB_ICONINFORMATION);
Abort;
end;