收录日期:2019/06/20 13:35:50 时间:2016/06/01 15:43:46 标签:基础类
我想实现每隔两分钟就自动下载FTP某文件夹下的文件,然后删除这些文件。代码如下:
void __fastcall TForm1::startClick(TObject *Sender)
{
AnsiString RomoteFile,TheDir;
NMFTP1->Connect();
if(InputQuery("改变目录","目录名",TheDir))
NMFTP1->ChangeDir(TheDir);
NMFTP1->List();
TStringList * str=NMFTP1->FTPDirectoryList->name;
for (int i=0;i <str->Count ;i++)
{
  AnsiString s=str->Strings[i];
  NMFTP1->Download(s,s);
  NMFTP1->Delete(s);
     }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::stopClick(TObject *Sender)
{

 NMFTP1->Disconnect();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
     Timer1->Enabled=true;
     Timer1->Interval=120000;
}
//---------------------------------------------------------------------------
  测试的时候,下载是可以实现的,可是我在文件下载完毕后又往FTP上上传了文件,可是隔了好久都没有下载,好象定时器没有起到什么作用。请大家帮我看看怎么回事,该怎样改?
void __fastcall TForm1::startClick(TObject *Sender)
{
  Timer1->Enabled=true;
  Timer1->Interval=120000;
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
AnsiString RomoteFile,TheDir;
NMFTP1->Connect();
if(InputQuery("改变目录","目录名",TheDir))
NMFTP1->ChangeDir(TheDir);
NMFTP1->List();
TStringList * str=NMFTP1->FTPDirectoryList->name;
for (int i=0;i <str->Count ;i++)
{
  AnsiString s=str->Strings[i];
  NMFTP1->Download(s,s);
  NMFTP1->Delete(s);
}
}
你做的事情应该放在OnTimer事件中,在其他地方(比如你的OnClick()事件里)设置Timer的Enabled属性
而你做的恰恰相反
哦,明白了,谢谢!

怎么样才能让鼠标指在屏幕的中间。 SQL语句太慢了,想换又报错,帮我看看! 这个问题简单,但我解决不了!求助了! 帮忙啊,怎么做关联的listbox啊 本论坛没有高手!!令人失望!!!太失望了!!!!别来了!!! 江湖救急:关于球形地图投影算法。 这是我遭遇的第一个mysql和php的问题,我该怎么解决(在线等待) questions about java.util.Observer and java.util.Observable 汇编代码如何与机器码相对应呢? PHP中,如何取得一个类的实例的函数的引用,并且运行它 如何读excel中的数据? 请大家帮忙看看错再哪了,谢谢! 求救!!网络的问题。 在内网怎样配置DHCP服务? 头痛啊~~,请教VC++对WORD编程中SELECTION对象的用法,MSDN里的参数搞不明白 请问如何用javascript取得下拉框的当前值,谢谢 pq后,硬盘丢了三个逻辑分区,急!! 请教:Strutc结构的WEB代码如何在WEBLOGIC7.01下部署 关于smtp的问题? 一个关于CRecordset的问题(急,谢谢!) 怎样从文件倒入数据呢? 购买现成wap游戏和其他wap程序(急) AVI文件在本机上虚拟站点可以播放 为什么发到服务器就只是一个图标呢 恳求各位大侠帮我解决这个关于数据导入的问题!!!! 装了msdn2003Apri,提示成功安装,打开什么都没有,直接转到微软msn网站??? 请教 assert 关键字的用法 有众多应用软件.急须合作空间. 用ADOConnection1.OpenSchema()方法获取字段的描述啊? 【交流】.net 从数据库中得到xml的方法 声卡的问题