UC知道delphi FTP 多线程下载 （能支持断点更好）
来源：百度知道 编辑：UC知道 时间：2024/05/18 04:06:36
我在做一个 软件自动升级的控件
用delphi的nmftp控件做的
测试可以成功 但是不支持 多线程和 断点，请问
我应该如何实现？
给点例子，我比较菜，希望大家能够详细些！
发一部分代码上来 希望能够帮帮我啊
unit U_update;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, Psock, NMFtp,inifiles,FileCtrl, ExtCtrls;
//文件信息
Const
DOWNLOAD_EXECUTING =0;
DOWNLOAD_SUCCESS =1;
DOWNLOAD_FAILURE =2;
type
PFileInfo=^TFileInfo;
TFileInfo=record
NAME : string;
DATE : string;
REMOTE_PATH : string;
LOCAL_PATH : string;
EXISTS_FILE : integer;
end;
TUpgrade_Form = class(TForm)
Up_NMFTP: TNMFTP;
Timer1: TTimer;
Panel1: TPanel;
Label5: TLabel;
Panel2: TPanel;
Hint_Label: TLabel;
file_Label: TLabel
用delphi的nmftp控件做的
测试可以成功 但是不支持 多线程和 断点，请问
我应该如何实现？
给点例子，我比较菜，希望大家能够详细些！
发一部分代码上来 希望能够帮帮我啊
unit U_update;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, Psock, NMFtp,inifiles,FileCtrl, ExtCtrls;
//文件信息
Const
DOWNLOAD_EXECUTING =0;
DOWNLOAD_SUCCESS =1;
DOWNLOAD_FAILURE =2;
type
PFileInfo=^TFileInfo;
TFileInfo=record
NAME : string;
DATE : string;
REMOTE_PATH : string;
LOCAL_PATH : string;
EXISTS_FILE : integer;
end;
TUpgrade_Form = class(TForm)
Up_NMFTP: TNMFTP;
Timer1: TTimer;
Panel1: TPanel;
Label5: TLabel;
Panel2: TPanel;
Hint_Label: TLabel;
file_Label: TLabel
我给你发在了油箱里了，请查收
看不懂
我给你个Q,我朋友,他玩delphi还行,我喜欢VB体,对delphi不熟,另外我写程序也是个半调子.我直接发消息给你,你问问他试试.
太专业了吧!!!
你就是想要一个FTP程序吗，建议下载一个免费的FTP Server。
nmftp本身不支持多线程！
支持多线程的FTP控件都是收费的！
我在编一个程序的时候也想做一个多线程的FTP，当时研究了一段时间，发现代码太大了！
最后用了一个Linux下的Proftpd解决了这个问题。