如何用delphi程序实现把客户端的文件保存到服务器的某个目录下???
请写出具体的程序!!!
谢谢
请写出具体的程序!!!
谢谢
解决方案 »
- 如何获得fkLookup类型的字段sum值?
- 关于indy10 发邮件问题
- 寻找D7组件,圆形按钮,电子键盘? 找到给分
- 创建
- 高手请帮忙!!如何生成运动会的秩序册呢??
- 怎么用tdatabase控件联结桌面数据库,桌面数据库支持事务操作吗?
- dickeybird888(于伟刚) 请进来领分.
- 谁有适合delphi7用的,视屏控件(用于摄像头)如可用定给分。
- 右键弹出菜单问题:我所定义的事件滞后一次,该如何解决!
- 300分求答案,怎样打印OLE中连接的内容
- 100分求delphi6.0中NMSMTP控件发送邮件的代码(服务器要身份验证的)
- 我建了一个链,最后想释放它,该怎么做?是不是用dispose()。distpose是用在一个节点上的,还是可以用在整条链上.
谢谢!!!
先把服务器上的文件放在本地,在进行操作,操作完了再上传,我是这么做的,但我的文件不是word
procedure ex_upload(remote_dir:string;atable:tcustomadodataset;fieldname:string);
var
remotefname,localfname:string;
label lab;
begin
begin
datamodule2.NMFTP1.Connect;
try if not DirectoryExists('ftp://'+trim(sysshezhi.edtAddress.text)+'/'+remote_dir) then
datamodule2.nmftp1.MakeDirectory(remote_dir);
except
On E:Exception do begin
end;end;
datamodule2.NMFTP1.ChangeDir(remote_dir);
lab: if datamodule2.OpenDialog1.Execute then
begin
temp_dir:='ftp://'+trim(sysshezhi.edtAddress.Text)+'/'+remote_dir;
localfname:=datamodule2.OpenDialog1.FileName;
remotefname:=extractfilename(localfname);
remotefnam:=remotefname;
if remotefname='' then
begin
showmessage('没有选中文件!请重新选择!');
goto lab;
end
else
begin
if findfile(atable,remotefnam,fieldname) then
begin
if MessageDlg('此文件已存在,要覆盖吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
bool:=true;
ins:=false;
datamodule2.NMFTP1.upload(localfname,remotefname);
end
else
begin
bool:=false;
messagebox(0,'请改名后重试!','提示!',0);
end;
end;
if not findfile(atable,remotefnam,fieldname) then
begin
bool:=true;ins:=true;
datamodule2.NMFTP1.upload(localfname,remotefname);
end;
end;
end;
end;
datamodule2.NMFTP1.Disconnect;
end;