814123
2018-02-27 10:45
采纳率: 100%
浏览 1.2k
已采纳

delphi 加载FTP文件时,弹出进度条显示加载进度?

delphi 加载FTP文件时,弹出进度条显示加载进度?
利用ProgressBar进度条显示进度,新手么有思路,老师给代码参考。

  • 写回答
  • 关注问题
  • 收藏
  • 邀请回答

2条回答 默认 最新

  • 堕落恶魔_Delphi 2018-02-28 04:04
    已采纳

    你用的什么FTP组件? 另外加载FTP文件? 你是指下载么?

    如果使用idftp的话, 在onWorkBegin事件里取AWorkCountMax是总进度, OnWork事件里取AWorkCount是当前进度
    AWorkCount * 100/AWorkCountMax 是进度百分比

    打赏 评论
  • KAIFranK 2018-02-27 10:53

    转自csdn:
    通过FTP的方式访问FTP中的指定路径,并通过指定路径获取了该路径下的所有文件的列表
    方法如下:
    using System;
    using System.Collections.Generic;
    using System.ComponentModel;
    using System.Data;
    using System.Drawing;
    using System.Linq;
    using System.Text;
    using System.Windows.Forms;
    using System.Net;
    using System.IO;

    namespace 获取指定时间段内的数据
    {
    class FtpUpDown
    {
    string ftpServerIP; //服务IP
    string ftpUserID; //用户名
    string ftpPassword; //密码
    FtpWebRequest reqFTP; //实现FTP客户端

        /// <summary>
        ///连接ftp 
        /// </summary>
        /// <param name="path"></param>
        private void Connect(string path)
        {
            //根据uri创建FtpWebRequest对象
            reqFTP = (FtpWebRequest)FtpWebRequest.Create(new Uri(path));
            reqFTP.UseBinary = true;
            //ftp用户名和密码
            reqFTP.Credentials = new NetworkCredential(ftpUserID, ftpPassword);
    
        }
    
        /// <summary>
        /// 登陆信息
        /// </summary>
        /// <param name="ftpServerIP"></param>
        /// <param name="ftpUserID"></param>
        /// <param name="ftpPassword"></param>
        public FtpUpDown(string ftpServerIP, string ftpUserID, string ftpPassword)
        {
            this.ftpServerIP = ftpServerIP;
            this.ftpUserID = ftpUserID;
            this.ftpPassword = ftpPassword;
        }
    
        /// <summary>
        /// 从ftp服务器上获得文件列表
        /// </summary>
        /// <param name="path"></param>
        /// <param name="WRMethods"></param>
        /// <returns></returns>
        public string[] GetFileList(string path, string WRMethods)//上面的代码示例了如何从ftp服务器上获得文件列表
        {
    
            string[] downloadFiles;
            StringBuilder result = new StringBuilder();    // StringBuilder是干什么用的?  值为可变字符序列的类似字符串的对象  
            try
            {
                Connect("ftp://" + path);
                reqFTP.Method = WRMethods;
                WebResponse response = reqFTP.GetResponse();
                StreamReader reader = new StreamReader(response.GetResponseStream(), System.Text.Encoding.UTF8);//中文文件名
    
                string line = reader.ReadLine();            //有个问题,如何剔除文件夹???
                while (line != null)
                {
                    result.Append(line);
    
                    result.Append(" ");
    
    
                    line = reader.ReadLine();
                }
                // to remove the trailing ' '
                result.Remove(result.ToString().LastIndexOf(' '), 1);
                reader.Close();
                response.Close();           //为何要关闭response?
                return result.ToString().Split(' ');
            }
            catch (Exception ex)
            {
                System.Windows.Forms.MessageBox.Show(ex.Message);
                downloadFiles = null;
                return downloadFiles;
            }
        }
        /// <summary>
        /// 获取文件大小
        /// </summary>
        /// <param name="filename"></param>
        /// <returns></returns>
        public long GetFileSize(string filename)
        {
            long fileSize = 0;
            try
            {
                FileInfo fileinfo = new FileInfo(filename);
                string uri = "ftp://" + ftpServerIP + "/" + fileinfo.Name;
                Connect(uri);       //连接
                reqFTP.Method = WebRequestMethods.Ftp.GetFileSize;
                FtpWebResponse response = (FtpWebResponse)reqFTP.GetResponse();
                fileSize = response.ContentLength;
                response.Close();
            }
            catch (Exception ex)
            {
                MessageBox.Show(ex.Message);
            }
            return fileSize;
        }
    
        /// <summary>
        /// 文件下载
        /// </summary>
        /// <param name="filePath"></param>
        /// <param name="fileName"></param>
        /// <param name="errorinfo"></param>
        /// <returns></returns>
        //public bool Download(string filePath, string fileName, out string errorinfo)
        public bool Download(string filePath, string fileName, out string errorinfo, System.Windows.Forms.ProgressBar prog)
        {
            try
            {
                String onlyFileName = Path.GetFileName(fileName);
                string newFileName = filePath + "/" + onlyFileName;
                if (File.Exists(newFileName))
                {
    
                    errorinfo = string.Format("本地文件{0}已存在,无法下载", newFileName);
    
                    return false;
    
                }
                else
                {
                    string url = "ftp://" + ftpServerIP + "/" + fileName;
    
                    Connect(url);//连接
    
                    reqFTP.Credentials = new NetworkCredential(ftpUserID, ftpPassword);
    
                    FtpWebResponse response = (FtpWebResponse)reqFTP.GetResponse();
    
                    Stream ftpStream = response.GetResponseStream();
    
                    long cl = response.ContentLength;
                    //if (prog != null)                                         //(新加的)
                    //{
                    //    prog.Maximum = (int)cl;
                    //}
                    long totalDownLoadByte = 0;                                //(新加的 )
                    float percent = 0;
                    int bufferSize = 2048;
    
                    int readCount;
                    byte[] buffer = new byte[bufferSize];
                    int osize = ftpStream.Read(buffer, 0, (int)buffer.Length);      //这句是什么意思?
                    while (osize > 0)                                           //(新加的)
                    {
                        totalDownLoadByte = osize + totalDownLoadByte;
                        //if (prog != null)
                        //{
                        //    prog.Value = (int)totalDownLoadByte;
                        //}
                        osize = ftpStream.Read(buffer, 0, (int)buffer.Length);
                        percent = (float)totalDownLoadByte / (float)totalDownLoadByte * 100;
    
                    }
    
    
                    readCount = ftpStream.Read(buffer, 0, bufferSize);
    
                    FileStream outputStream = new FileStream(newFileName, FileMode.Create);
    
                    while (readCount > 0)
                    {
    
                        outputStream.Write(buffer, 0, readCount);
    
                        readCount = ftpStream.Read(buffer, 0, bufferSize);
    
                    }
    
                    ftpStream.Close();
    
                    outputStream.Close();
    
                    response.Close();
    
                    errorinfo = "";
    
                    return true;
                }
    
            }
    
            catch (Exception ex)
    
            {
    
                errorinfo = string.Format("因{0},无法下载", ex.Message);
    
                return false;
    
            }
    
        }
    
    }
    

    }

    打赏 评论

相关推荐 更多相似问题