IDC资讯中心
四、下载
(只是处理二级目录)
global type f_connect_ftpcopyfile from function_object
end type
forward prototypes
global function integer f_connect_ftpcopyfile (hprogressbar hpb_1, long al_copycount)
end prototypes
global function integer f_connect_ftpcopyfile (hprogressbar hpb_1, long al_copycount);
do while yield()
loop
string ls_directorya1 //远程目录
string ls_directorya2 //本地目录
string ls_filename,ls_file
//本地目录
ls_directorya2 = gs_application_path
string ls_directoryb1 //远程目录
string ls_directoryb2 //本地目录
string ls_filename1 //远程文件
string ls_filename2 //本地文件
long ll_hret
long ll_hftp1
long ll_hftp2
long ll_fftp1
long ll_fftp2
long ll_m
long ll_filehandle1,ll_filehandle2
integer li_ret
boolean lb_success
boolean lb_find
s_win32_find_data ss_file1,ss_file2
w_autodown_test.st_ts.text = 正在检查需要更新软件的数量…
li_ret = f_connect_ftpserver()
if li_ret = -1 then return -1
w_autodown_test.st_ts.text = 正在更新软件版本…
//建立连接
ll_hret = internetopena(gs_application_name,0,,,0)
choose case li_ret
case 1
ls_directorya1 = gs_ftpdir1
ll_hftp1 = internetconnecta(ll_hret,gs_ftpserver1,gl_ftploginport1,gs_ftploginuser1,gs_ftploginpass1,1,0,0)
case 2
ls_directorya1 = gs_ftpdir2
ll_hftp1 = internetconnecta(ll_hret,gs_ftpserver2,gl_ftploginport2,gs_ftploginuser2,gs_ftploginpass2,1,0,0)
case 3
ls_directorya1 = gs_ftpdir3
ll_hftp1 = internetconnecta(ll_hret,gs_ftpserver3,gl_ftploginport3,gs_ftploginuser3,gs_ftploginpass3,1,0,0)
case else
internetclosehandle(ll_hret);
return -1
end choose
//进入ftp目录
lb_success = ftpsetcurrentdirectorya(ll_hftp1,ls_directorya1)
if not lb_success then
internetclosehandle(ll_hret);
internetclosehandle(ll_hftp1);
return -1
end if
//获取第一个文件
ll_fftp1 = ftpfindfirstfilea(ll_hftp1,,ss_file1,0,0)
if ll_fftp1 = 0 then
internetclosehandle(ll_hret);
internetclosehandle(ll_hftp1);
internetclosehandle(ll_fftp1);
return 0
end if
//初始化提示栏
hpb_1.position = 0
ll_m = 0
//是目录
if ss_file1.dwfileattributes = 16 then
//远程目录
ls_directoryb1 = ls_directorya1 + / + ss_file1.cfilename
//本地目录
ls_directoryb2 = ls_directorya2 + \ + ss_file1.cfilename
//本地目录不存在的创建目录
if directoryexists(ls_directoryb2) = false then
createdirectory(ls_directoryb2)
ll_m++
hpb_1.position = ll_m / al_copycount * 100
end if
//创建第二个目录句柄
choose case li_ret
case 1
ll_hftp2 = internetconnecta(ll_hret,gs_ftpserver1,gl_ftploginport1,gs_ftploginuser1,gs_ftploginpass1,1,0,0)
case 2
ll_hftp2 = internetconnecta(ll_hret,gs_ftpserver2,gl_ftploginport2,gs_ftploginuser2,gs_ftploginpass2,1,0,0)
case 3
ll_hftp2 = internetconnecta(ll_hret,gs_ftpserver3,gl_ftploginport3,gs_ftploginuser3,gs_ftploginpass3,1,0,0)
end choose
//转移到第二级目录
lb_success = ftpsetcurrentdirectorya(ll_hftp2,ls_directoryb1)
if lb_success then
//浏览目录内容
ll_fftp2 = ftpfindfirstfilea(ll_hftp2,,ss_file1,0,0)
//本地文件
ls_filename2 = ls_directoryb2 + \ + ss_file1.cfilename
if fileexists(ls_filename2) = false then
//本地文件不存在的，直接获取
ftpgetfilea(ll_hftp2,ss_file1.cfilename,ls_filename2,false,0,0,0)
ll_m++
hpb_1.position = ll_m / al_copycount * 100
else //本地文件存在的，比较文件时间
ll_filehandle2 = findfirstfilea(ls_filename2,ss_file2)
findclose(ll_filehandle2)
choose case comparefiletime(ss_file1.ftlastwritetime,ss_file2.ftlastwritetime)
case 0
//两个时间相等，就返回零
case 1
//如lpfiletime2小于lpfiletime1，返回1
//下载
ftpgetfilea(ll_hftp2,ss_file1.cfilename,ls_filename2,false,0,0,0)
ll_m++
hpb_1.position = ll_m / al_copycount * 100
case -1
//如lpfiletime1小于lpfiletime2，返回-1
end choose
end if
//遍历目录
do while internetfindnextfilea(ll_fftp2, ss_file1)
yield()
//本地文件
ls_filename2 = ls_directoryb2 + \ + ss_file1.cfilename
if fileexists(ls_filename2) = false then
//本地文件不存在的，直接获取
ftpgetfilea(ll_hftp2,ss_file1.cfilename,ls_filename2,false,0,0,0)
ll_m++
hpb_1.position = ll_m / al_copycount * 100
else //本地文件存在的，比较文件时间
ll_filehandle2 = findfirstfilea(ls_filename2,ss_file2)
findclose(ll_filehandle2)
choose case comparefiletime(ss_file1.ftlastwritetime,ss_file2.ftlastwritetime)
case 0
//两个时间相等，就返回零
case 1
//如lpfiletime2小于lpfiletime1，返回1
//下载
ftpgetfilea(ll_hftp2,ss_file1.cfilename,ls_filename2,false,0,0,0)
ll_m++
hpb_1.position = ll_m / al_copycount * 100
case -1
//如lpfiletime1小于lpfiletime2，返回-1
end choose
end if
loop
internetclosehandle(ll_hftp2);
internetclosehandle(ll_fftp2);
end if
else //是文件
//本地文件
ls_filename2 = ls_directorya2 + \ + ss_file1.cfilename
if fileexists(ls_filename2) = false then
//本地文件不存在的，直接获取
lb_find = ftpgetfilea(ll_hftp1,ss_file1.cfilename,ls_filename2,false,0,0,0)
ll_m++
hpb_1.position = ll_m / al_copycount * 100
else //本地文件存在的，比较文件时间
ll_filehandle2 = findfirstfilea(ls_filename2,ss_file2)
findclose(ll_filehandle2)
choose case comparefiletime(ss_file1.ftlastwritetime,ss_file2.ftlastwritetime)
case 0
//两个时间相等，就返回零
case 1
//如lpfiletime2小于lpfiletime1，返回1
//下载
lb_find = ftpgetfilea(ll_hftp1,ss_file1.cfilename,ls_filename2,false,0,0,0)
ll_m++
hpb_1.position = ll_m / al_copycount * 100
case -1
//如lpfiletime1小于lpfiletime2，返回-1
end choose
end if
end if
//遍历目录
do while internetfindnextfilea(ll_fftp1, ss_file1)
yield()
//是目录
if ss_file1.dwfileattributes = 16 then
//远程目录
ls_directoryb1 = ls_directorya1 + / + ss_file1.cfilename
//本地目录
ls_directoryb2 = ls_directorya2 + \ + ss_file1.cfilename
//本地目录不存在的创建目录
if directoryexists(ls_directoryb2) = false then
createdirectory(ls_directoryb2)
ll_m++
hpb_1.position = ll_m / al_copycount * 100
end if
//创建第二个目录句柄
choose case li_ret
case 1
ll_hftp2 = internetconnecta(ll_hret,gs_ftpserver1,gl_ftploginport1,gs_ftploginuser1,gs_ftploginpass1,1,0,0)
case 2
ll_hftp2 = internetconnecta(ll_hret,gs_ftpserver2,gl_ftploginport2,gs_ftploginuser2,gs_ftploginpass2,1,0,0)
case 3
ll_hftp2 = internetconnecta(ll_hret,gs_ftpserver3,gl_ftploginport3,gs_ftploginuser3,gs_ftploginpass3,1,0,0)
end choose
//转移到第二级目录
lb_success = ftpsetcurrentdirectorya(ll_hftp2,ls_directoryb1)
if lb_success then
//浏览目录内容
ll_fftp2 = ftpfindfirstfilea(ll_hftp2,,ss_file1,0,0)
//本地文件
ls_filename2 = ls_directoryb2 + \ + ss_file1.cfilename
if fileexists(ls_filename2) = false then
//本地文件不存在的，直接获取
lb_find = ftpgetfilea(ll_hftp2,ss_file1.cfilename,ls_filename2,false,0,0,0)
ll_m++
hpb_1.position = ll_m / al_copycount * 100
else //本地文件存在的，比较文件时间
ll_filehandle2 = findfirstfilea(ls_filename2,ss_file2)
findclose(ll_filehandle2)
choose case comparefiletime(ss_file1.ftlastwritetime,ss_file2.ftlastwritetime)
case 0
//两个时间相等，就返回零
case 1
//如lpfiletime2小于lpfiletime1，返回1
//下载
lb_find = ftpgetfilea(ll_hftp2,ss_file1.cfilename,ls_filename2,false,0,0,0)
ll_m++
hpb_1.position = ll_m / al_copycount * 100
case -1
//如lpfiletime1小于lpfiletime2，返回-1
end choose
end if
//遍历目录
do while internetfindnextfilea(ll_fftp2, ss_file1)
yield()
//本地文件
ls_filename2 = ls_directoryb2 + \ + ss_file1.cfilename
if fileexists(ls_filename2) = false then
//本地文件不存在的，直接获取
lb_find = ftpgetfilea(ll_hftp2,ss_file1.cfilename,ls_filename2,false,0,0,0)
ll_m++
hpb_1.position = ll_m / al_copycount * 100
else //本地文件存在的，比较文件时间
ll_filehandle2 = findfirstfilea(ls_filename2,ss_file2)
findclose(ll_filehandle2)
choose case comparefiletime(ss_file1.ftlastwritetime,ss_file2.ftlastwritetime)
case 0
//两个时间相等，就返回零
case 1
//如lpfiletime2小于lpfiletime1，返回1
//下载
lb_find = ftpgetfilea(ll_hftp2,ss_file1.cfilename,ls_filename2,false,0,0,0)
ll_m++
hpb_1.position = ll_m / al_copycount * 100
case -1
//如lpfiletime1小于lpfiletime2，返回-1
end choose
end if
loop
internetclosehandle(ll_hftp2);
internetclosehandle(ll_fftp2);
end if
else //是文件
//本地文件
ls_filename2 = ls_directorya2 + \ + ss_file1.cfilename
if fileexists(ls_filename2) = false then
//本地文件不存在的，直接获取
lb_find = ftpgetfilea(ll_hftp1,ss_file1.cfilename,ls_filename2,false,0,0,0)
ll_m++
hpb_1.position = ll_m / al_copycount * 100
else //本地文件存在的，比较文件时间
ll_filehandle2 = findfirstfilea(ls_filename2,ss_file2)
findclose(ll_filehandle2)
choose case comparefiletime(ss_file1.ftlastwritetime,ss_file2.ftlastwritetime)
case 0
//两个时间相等，就返回零
case 1
//如lpfiletime2小于lpfiletime1，返回1
//下载
lb_find = ftpgetfilea(ll_hftp1,ss_file1.cfilename,ls_filename2,false,0,0,0)
ll_m++
hpb_1.position = ll_m / al_copycount * 100
case -1
//如lpfiletime1小于lpfiletime2，返回-1
end choose
end if
end if
loop
internetclosehandle(ll_hret);
internetclosehandle(ll_hftp1);
internetclosehandle(ll_fftp1);
return 1
end function
