如题
我用的是IDFtp需要代码,多谢!
我用的是IDFtp需要代码,多谢!
解决方案 »
- cxGrid的2个小问题???
- 有没有QUICKREPORT的高手帮忙解决一下动态报表的问题啊?
- 简单问题:如何更改我的应用程序的图标啊?
- delphi get GetFrame 的问题。奇怪,奇怪,真奇怪。。。
- turbo pascal中for循环问题
- 请能帮我得到DELPHI中的所有函数的中文说明书,我给500分。
- 请问如何在Access里面如何定义BLOB字段,是定义OLE对象吗?为什么不能够指定BLOB的大小?回答了对了立即就给分!!!!
- 设计中,启动画面,登录窗口,能否不在主窗口的Create事件中?
- 请教各位大侠,有没有可以让循环暂停运行的命令?
- 一个关于局域网的问题?
- 大家帮我看看这程序,已经调通了,但.....
- 如何把数组转换成字符串流
根据日期,加到下载队列,然后下载吧,
//参考下吧,//执行下载操作
procedure TFTPModel.DownLoad;
var
FileName : String;
Item : TListItem;
QueueItem : TListItem;
begin
//没有连接,不做下载处理。
if not FFTPClient.Connected Then Exit;
//没有选中文件,不做下载处理。
if FLVRemoteFile.Selected = nil then Exit;
Item := FLVRemoteFile.Selected;
FLVQueue.Clear;
while Item <> nil do
begin
//这里加了约束,是文件夹的话,不加到下载队列,
//也就是说不支持文件夹的下载。
if Item.SubItems[0]<>'文件夹' then
begin
QueueItem := FLVQueue.Items.Add;
QueueItem.Caption := Item.Caption;
QueueItem.SubItems.Add(FLocaLPath);
QueueItem.SubItems.Add(Item.SubItems[1]);
QueueItem.SubItems.Add('<-');
QueueItem.SubItems.Add('');
QueueItem.SubItems.Add(FRemotePath);
end; //End Of If
//得到下一个选中的目录或文件
Item:=FLVRemoteFile.GetNextItem(Item,sdAll, [isSelected]);
end; //End Of while Item <> nil do
FLVQueue.Refresh;
//IsTransParent:=True;表示正在传输数据。
FIsTransParent:=True;
//UpDownLoadCode:=2;表示正在下载(DownLoad)文件
FUpDownLoadCode:=2;
while FLVQueue.Items.Count > 0 do
begin
FileName:=FLVQueue.Items[0].Caption;
FLVQueue.Items[0].SubItems[3]:='正在下载';
FLVQueue.Refresh;
if FileExists(FileName) then
begin
if Application.MessageBox('文件已存在,是否继续下载?点击 【 是 】,继续下载,点击 【 否 】 重新下载',SysHintMsgTitle,MB_YESNO)=IDYES then
begin
//继续下载。
FFTPClient.Get(FileName, FLocalPath+'\'+FileName,false, true)
end
else
begin
//重新下载。
FFTPClient.Get(FileName, FLocalPath+'\'+FileName, true);
end; //End Of if Application.MessageBox('文件
end
else
begin
//本地没有该文件,正常下载
FFTPClient.Get(FileName, FLocalPath+'\'+FileName, false);
end; //End Of if FileExists(FileName) then
FLVQueue.items[0].Delete;
FLVQueue.Refresh;
//********************
//LocalChangeDirExecute(Sender);
end; //End Of While
FIsTransParent:=False;
end;//End Of Begin
List -T为返回完整时间,当然需要服务器支持http://lysoft.7u7.net