delphi实现上傳本地目錄到FTP服務器

时间:2010-03-07 14:01:20  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:     //schleife über alle dateien im ordner     if FindFirst(dir + ’*.*’, faAnyFile, SearchRec) = 0 then   begin     repeat         //get rid of the both "dummy-directories" ’.’ and ’....
  正文:procedure UploadPerFTP;
procedure GetDir(dir: string);
var
SearchRec: TSearchRec;
details, nodetails: TStringList;
k: Integer;
begin
  //iterate through directory given
    //schleife über alle dateien im ordner
    if FindFirst(dir + ’*.*’, faAnyFile, SearchRec) = 0 then
  begin
    repeat
    
    //get rid of the both "dummy-directories" ’.’ and ’..’
        //die ordner ’.’ und ’..’ brauchen man nicht
        if (SearchRec.Name <> ’.’) and (SearchRec.Name <> ’..’) then
    begin
      //if we found a folder
          //falls wir einen ordner haben
          if (SearchRec.Attr and faDirectory) = faDirectory then
      begin
        //get folder contents from ftp. one with details, one without
            //holen wir uns den ordnerinhalt mit details und einmal ohne vom server
            details   := TStringList.Create;
        nodetails := TStringList.Create;
        FTPClient.List(details, ’’, True);
        FTPClient.List(nodetails, ’’, False);
        
        //we only want to have directories in the list (without ’.’ and ’..’)
            //nun filtern wir das nach den ordnern (ohne ’.’ und ’..’)
            for k := details.Count - 1 downto 0 do
        begin
          if details.Strings[k] <> ’’ then
          begin
            if (details.Strings[k][1] <> ’d’) or
            (nodetails.Strings[k] = ’.’) or
            (nodetails.Strings[k] = ’..’) then
            begin
              details.Delete(k);
              nodetails.Delete(k);
            end;
          end;
        end;
        
        //if our directory does not exists on the server, create it
            //falls unser ordner auf dem server noch nicht existiert, legen wir ihn an
            if nodetails.IndexOf(SearchRec.Name) = -1 then
        begin
          FTPClient.MakeDir(SearchRec.Name);

"delphi实现上傳本地目錄到FTP服務器"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/13113.html

 1/4    1 2 3 4 下一页 尾页


关键字:

关于《delphi实现上傳本地目錄到FTP服務器》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td