如何用delphi程序实现把客户端的文件保存到服务器的某个目录下？？？

Question

如何用delphi程序实现把客户端的文件保存到服务器的某个目录下？？？
请写出具体的程序！！！
谢谢

Answer 1

呵呵，简单点可以在SERVER下某个目录设FTP目录，然后CLIENT上传文件。

Answer 2

不好意思，本人是新手，请诸位大哥把代码写的具体一点。至少告诉我函数命令。还有，如果我想通过客户端访问服务器上的word,并用ie打开，该怎么实现？？？
谢谢！！！

Answer 3

用intraweb上传下载，有例子
先把服务器上的文件放在本地，在进行操作，操作完了再上传，我是这么做的，但我的文件不是word

Answer 4

ftp：上传
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;