要从网络服务器上的特定路径下下载文件到本地计算机的特定路径下，并覆盖掉同名文件，用delphil怎么实现?

Question

function tftp.ex_download(remote_dir,local_dir:string):boolean;
var
    i,j,count1:integer;
    att,ss:string;
    current_dir:string;
    temp_dir:string;
begin
    try begin
        NMFTP1.ChangeDir(remote_dir);
        current_dir:=remote_dir;
        temp_dir:=copy(current_dir,2,length(current_dir));
        if not DirectoryExists(local_dir) then CreateDir(local_dir);
        if not directoryexists(local_dir+temp_dir) then createdir(local_dir+temp_dir);
        nmftp1.ParseList:=true;
        NMftp1.list;
        count1:=nmftp1.FTPDirectoryList.name.Count;
        for i:=0 to count1-1  do begin
            file://必须
            NMFTP1.ChangeDir(current_dir);
            nmftp1.list;
            ss:=nmftp1.FTPDirectoryList.name.Strings[i];
            att:=nmftp1.FTPDirectoryList.Attribute.Strings[i];
            if (copy(pchar(att),1,1)<>'d')and(copy(pchar(att),1,1)<>'D') then begin
                if not DirectoryExists(local_dir) then CreateDir(local_dir);
                NMFTP1.Download(current_dir+ss,local_dir+temp_dir+ss);
            end
            else begin
                if not directoryexists(local_dir+temp_dir+ss) then createdir(local_dir+temp_dir+ss);
                file://递归调用
                ex_download(remote_dir+ss+'\',local_dir);
            end;
        end;
           result:=true;
    end
    except
    On E:Exception do begin
        result:=false;
    end;
    end;
end;

Answer 1

用Indy FTP控件可以下载FTP服务器上的文件,Indy HTTP Client可以下载HTTP服务器上的文件,Indy有完整的例子,自己去看看,Copy, Modify就可以用了
覆盖掉同名文件?if FileExists(fn) then DeleteFile(fn)然后写新文件。

Answer 2

上面两位朋友都是采用FTP控件来做的。可能我要做的是这样的情况：
1.服务器就只是局域网内部另外一台电脑；
2.服务器上的文件目录是设定了可以读的共享权限，但是该机器没有开通FTP
之类的服务。
3.除了上面的办法之外，有没有其他的办法？请各位多多指点。多谢！

Answer 3

如果是这样的话，可以直接复制，当本地一样，
设置路径的时候如\\server\net\ddd.txt;本地复制文件实例procedure TForm1.Button1Click(Sender: TObject);
var
p      :  SHFILEOPSTRUCT ;
str    :  string;
begin
   str:=GetCurrentDir();
   p.pFrom :=pchar(str+'\*.*');
   showmessage(p.pFrom);
   p.pTo   :=pchar(str+'\backup\');
   showmessage(p.pTo);
   p.wFunc :=FO_COPY;
   p.Wnd   :=Handle;
   p.lpszProgressTitle:= '请等待...';
   {设定操作选项}
   p.fFlags:= FOF_ALLOWUNDO       or FOF_NOCONFIRMMKDIR
              or  FOF_NOCONFIRMATION or FOF_FILESONLY ;
   try
      SHFileOperation(p);
   except
      messagedlg('备份文件出错!',mtError,[mbOk],0);
      exit;
   end;end;

Answer 4

SHFILEOPSTRUCT 是在什么地方定义的结构呢？

Answer 5

SHFILEOPSTRUCT是在什么地方定义的结构体呢？