如何用PB实现FTP文件上下传文件-CSDN论坛

⋅jsp实现支付宝接口 ⋅如何在可视的用户对像中打开一批用户对象 ⋅如何用PB实现FTP文件上下传文件 更多帖子 关注私信空间博客 chenlong9610 本版专家分：368 结帖率 100%: 如何用PB实现FTP文件上下传文件

0 2006-10-12 13:07:01

回复数 31 只看楼主引用举报楼主

⋅很久没来了，看看pb的兄弟姐妹们，散分了！ ⋅MySQL3.23数据如何导入到MySQL5.2中？ ⋅年前跳槽，马上就要转正了，散分！ 更多帖子 关注私信空间博客 lovemq 本版专家分：1576: pb使用wininet的ftp方式自动更新（一、api和全局变量）
一些结构和API在非FTP方式文档中有了定义就不再说明。
一、API声明
function uLong InternetOpenA(string lpszAgent, ulong dwAccessType,string lpszProxyName,string lpszProxyBypass, ulong dwFlags) library "wininet.dll"
function ulong InternetConnectA(ulong hInternet,string lpszServerName,ulong nServerPort,string lpszUsername,string lpszPassword,ulong dwService,ulong dwFlags,ulong dwContext) library "wininet.dll"
function boolean InternetCloseHandle(ulong hInternet) library "wininet.dll"
function boolean FtpSetCurrentDirectoryA(ulong hConnect,string lpszDirectory) library "wininet.dll"
function ulong FtpFindFirstFileA(ulong hConnect,string lpszSearchFile,ref s_WIN32_FIND_DATA lpFindFileData,ulong dwFlags,ulong dwContext) library "wininet.dll"
function boolean InternetFindNextFileA(ulong hFind,ref s_WIN32_FIND_DATA lpvFindData) library "wininet.dll"
function boolean FtpGetFileA(ulong hConnect, string lpszRemoteFile,string lpszNewFile,boolean fFailIfExists,ulong dwFlagsAndAttributes,ulong dwFlags,ulong dwContext) library "wininet.dll"
二、全局变量
string gs_application_name
STRING GS_FTPSERVER1
STRING GS_FTPSERVER2
STRING GS_FTPSERVER3
STRING GS_FTPLOGINUSER1
STRING GS_FTPLOGINUSER2
STRING GS_FTPLOGINUSER3
STRING GS_FTPLOGINPASS1
STRING GS_FTPLOGINPASS2
STRING GS_FTPLOGINPASS3
STRING GS_FTPLOGINPORT1
STRING GS_FTPLOGINPORT2
STRING GS_FTPLOGINPORT3
LONG   GL_FTPLOGINPORT1
LONG   GL_FTPLOGINPORT2
LONG   GL_FTPLOGINPORT3
STRING GS_FTPDIR1
STRING GS_FTPDIR2
STRING GS_FTPDIR3

GS_FTPSERVER1    = ProfileString("autodown.ini","downpath","FTPSERVER1","")
GS_FTPSERVER2    = ProfileString("autodown.ini","downpath","FTPSERVER2","")
GS_FTPSERVER3    = ProfileString("autodown.ini","downpath","FTPSERVER3","")
GS_FTPLOGINUSER1 = ProfileString("autodown.ini","downpath","FTPLOGINUSER1","")
GS_FTPLOGINUSER2 = ProfileString("autodown.ini","downpath","FTPLOGINUSER2","")
GS_FTPLOGINUSER3 = ProfileString("autodown.ini","downpath","FTPLOGINUSER3","")
GS_FTPLOGINPASS1 = ProfileString("autodown.ini","downpath","FTPLOGINPASS1","")
GS_FTPLOGINPASS2 = ProfileString("autodown.ini","downpath","FTPLOGINPASS2","")
GS_FTPLOGINPASS3 = ProfileString("autodown.ini","downpath","FTPLOGINPASS3","")
GS_FTPLOGINPORT1 = ProfileString("autodown.ini","downpath","FTPLOGINPORT1","")
GS_FTPLOGINPORT2 = ProfileString("autodown.ini","downpath","FTPLOGINPORT2","")
GS_FTPLOGINPORT3 = ProfileString("autodown.ini","downpath","FTPLOGINPORT3","")
GS_FTPDIR1        = ProfileString("autodown.ini","downpath","FTPDIR1","")
GS_FTPDIR2        = ProfileString("autodown.ini","downpath","FTPDIR2","")
GS_FTPDIR3        = ProfileString("autodown.ini","downpath","FTPDIR3","")

pb使用wininet的ftp方式自动更新（二、判断是否可以连接）
global type f_connect_ftpserver from function_object
end type

forward prototypes
global function integer f_connect_ftpserver ()
end prototypes

global function integer f_connect_ftpserver ();
long ll_hret
long ll_hftp
integer li_ret = -1

do while yield()
loop

ll_hret = InternetOpenA(gs_application_name,0,'','',0)
if ll_hret = 0 or isnull(ll_hret) then
  //messagebox('错误！','缺少动态连接库WinInet.Dll！',stopsign!)
return li_ret
end if
ll_hftp = InternetConnectA(ll_hret,GS_FTPSERVER1,GL_FTPLOGINPORT1,GS_FTPLOGINUSER1,GS_FTPLOGINPASS1,1,0,0)
if ll_hftp = 0 then
  ll_hftp = InternetConnectA(ll_hret,GS_FTPSERVER2,GL_FTPLOGINPORT2,GS_FTPLOGINUSER2,GS_FTPLOGINPASS2,1,0,0)
if ll_hftp = 0 then
  ll_hftp = InternetConnectA(ll_hret,GS_FTPSERVER3,GL_FTPLOGINPORT3,GS_FTPLOGINUSER3,GS_FTPLOGINPASS3,1,0,0)
  if ll_hftp = 0 then
   InternetCloseHandle(ll_hret)
   return li_ret
  ELSE
   li_ret = 3
  END IF
ELSE
  li_ret = 2
END IF
else
li_ret = 1
end if
InternetCloseHandle(ll_hret)
InternetCloseHandle(ll_hftp)
return li_ret

end function

0 2006-10-12 14:38:29

只看TA 引用举报 #1    得分 0

⋅很久没来了，看看pb的兄弟姐妹们，散分了！ ⋅MySQL3.23数据如何导入到MySQL5.2中？ ⋅年前跳槽，马上就要转正了，散分！ 更多帖子 关注私信空间博客 lovemq 本版专家分：1576: pb使用wininet的ftp方式自动更新（三、获得要更新的文件数）

三、获得要更新的文件数
（只是处理二级目录）
global type f_connect_ftpcount from function_object
end type

forward prototypes
global function integer f_connect_ftpcount ()
end prototypes

global function integer f_connect_ftpcount ();
do while yield()
loop

string ls_directorya1,ls_directorya2

ls_directorya2 = gs_application_path

string ls_directoryb1,ls_directoryb2
string ls_filename1,ls_filename2

long ll_hret
long ll_hftp1
long ll_hftp2
long ll_fftp1
long ll_fftp2
integer li_ret
long ll_filehandle1,ll_filehandle2
long ll_k

boolean lb_success

s_WIN32_FIND_DATA ss_file1,ss_file2

li_ret = f_connect_ftpserver()
if li_ret = -1 then return -1

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
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
ll_k = 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
  ll_k++
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
   ll_k++
  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
     //下载
     ll_k++
    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
    ll_k++
   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
      //下载
      ll_k++
     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
  ll_k++
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
    //下载
    ll_k++
   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
   ll_k++
  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
    ll_k++
   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
      //下载
      ll_k++
     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
     ll_k++
    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
       //下载
       ll_k++
      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
   ll_k++
  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
     //下载
     ll_k++
    case -1
     //如lpFileTime1小于lpFileTime2，返回-1
   end choose
  end if
end if
loop
InternetCloseHandle(ll_hret);
InternetCloseHandle(ll_hftp1);
InternetCloseHandle(ll_fftp1);
return ll_k

end function

本文地址：http://www.newbooks.com.cn/info/16879.html

0 2006-10-12 14:41:16

只看TA 引用举报 #2    得分 0

⋅很久没来了，看看pb的兄弟姐妹们，散分了！ ⋅MySQL3.23数据如何导入到MySQL5.2中？ ⋅年前跳槽，马上就要转正了，散分！ 更多帖子 关注私信空间博客 lovemq 本版专家分：1576: pb使用wininet的ftp方式自动更新（四、下载）
四、下载
(只是处理二级目录)
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

0 2006-10-12 14:44:25

只看TA 引用举报 #3    得分 0

⋅window live mail转发邮件后，显示内容不全 ⋅PB调用摄像头问题 ⋅调用SOAP失败,request might exceed MaxPostSize 更多帖子 关注私信空间博客 polestarxu 本版专家分：3672 蓝花 2006年10月 PowerBuilder大版内专家分月排行榜第三 2006年8月 PowerBuilder大版内专家分月排行榜第三: mark.

0 2006-10-12 14:49:24

只看TA 引用举报 #4 得分 0

⋅很久没来了，看看pb的兄弟姐妹们，散分了！ ⋅MySQL3.23数据如何导入到MySQL5.2中？ ⋅年前跳槽，马上就要转正了，散分！ 更多帖子 关注私信空间博客 lovemq 本版专家分：1576: //遍历目录
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

0 2006-10-12 15:08:42

只看TA 引用举报 #5    得分 0

yaiger 本版专家分：472 红花 2018年7月 Oracle大版内专家分月排行榜第一: 楼上的，CompareFileTime的定义在哪里？

0 2006-10-16 10:54:27

只看TA 引用举报 #6 得分 0

⋅很久没来了，看看pb的兄弟姐妹们，散分了！ ⋅MySQL3.23数据如何导入到MySQL5.2中？ ⋅年前跳槽，马上就要转正了，散分！ 更多帖子 关注私信空间博客 lovemq 本版专家分：1576: function ulong CompareFileTime( REF FILETIME lpFileTime1, REF FILETIME lpFileTime2) library "kernel32.dll" Alias for "CompareFileTime"

0 2006-10-16 12:39:37

只看TA 引用举报 #7 得分 0

wfexp 本版专家分：924 版主 红花 2012年8月硬件使用大版内专家分月排行榜第一 2012年7月硬件使用大版内专家分月排行榜第一 2012年3月硬件使用大版内专家分月排行榜第一 2012年2月硬件使用大版内专家分月排行榜第一 2011年12月硬件使用大版内专家分月排行榜第一 2011年10月硬件使用大版内专家分月排行榜第一 2011年8月硬件使用大版内专家分月排行榜第一 2011年7月硬件使用大版内专家分月排行榜第一 2011年6月硬件使用大版内专家分月排行榜第一 2011年5月硬件使用大版内专家分月排行榜第一 2011年3月硬件使用大版内专家分月排行榜第一 2010年11月硬件使用大版内专家分月排行榜第一 2010年10月硬件使用大版内专家分月排行榜第一 2010年9月硬件使用大版内专家分月排行榜第一 2010年8月硬件使用大版内专家分月排行榜第一 2010年5月硬件使用大版内专家分月排行榜第一 2010年4月硬件使用大版内专家分月排行榜第一 2010年3月硬件使用大版内专家分月排行榜第一 2010年1月硬件使用大版内专家分月排行榜第一 2009年12月硬件使用大版内专家分月排行榜第一 2009年11月硬件使用大版内专家分月排行榜第一 2006年5月硬件使用大版内专家分月排行榜第一 2006年4月硬件使用大版内专家分月排行榜第一 2006年3月硬件使用大版内专家分月排行榜第一 2006年2月硬件使用大版内专家分月排行榜第一 2006年1月硬件使用大版内专家分月排行榜第一 2005年12月硬件使用大版内专家分月排行榜第一 2005年11月硬件使用大版内专家分月排行榜第一 2005年10月硬件使用大版内专家分月排行榜第一 2005年9月硬件使用大版内专家分月排行榜第一 2005年8月硬件使用大版内专家分月排行榜第一 2005年7月硬件使用大版内专家分月排行榜第一 黄花 2010年7月硬件使用大版内专家分月排行榜第二 2010年6月硬件使用大版内专家分月排行榜第二 2005年6月硬件使用大版内专家分月排行榜第二 蓝花 2005年5月硬件使用大版内专家分月排行榜第三: 收藏！

0 2006-10-20 08:39:24

只看TA 引用举报 #8 得分 0

⋅安装时都很顺利，但是nova db创建不出来 ⋅Apache Proxy配置问题 ⋅强直结贴多出来这么多分？ 更多帖子 关注私信空间博客 li_d_s 本版专家分：23948 黄花 2007年6月 Java大版内专家分月排行榜第二 2007年5月 Java大版内专家分月排行榜第二 2006年3月 PowerBuilder大版内专家分月排行榜第二 2006年2月 PowerBuilder大版内专家分月排行榜第二 2005年4月 PowerBuilder大版内专家分月排行榜第二 2005年3月 PowerBuilder大版内专家分月排行榜第二 蓝花 2005年2月 PowerBuilder大版内专家分月排行榜第三: 原来陶清论坛上有个别人做好的superftp的，如果需要可以发给你

0 2006-10-20 09:15:53

只看TA 引用举报 #9 得分 0

bedsb 本版专家分：57: MARK

0 2006-10-20 09:55:02

只看TA 引用举报 #10 得分 0

fireflysky 本版专家分：0: mark

0 2006-10-21 14:15:46

只看TA 引用举报 #11 得分 0

小灰灰 本版专家分：87: mark

0 2006-10-22 01:06:27

只看TA 引用举报 #12 得分 0

zbx1219_ 本版专家分：0: ini 文件在哪声明的？

0 2006-11-01 12:33:10

只看TA 引用举报 #13 得分 0

idluqiang 本版专家分：0: 我要一个完整的例子能发给我吗？我邮箱:luqiangid@tom.com

0 2006-11-01 14:52:48

只看TA 引用举报 #14 得分 0

zhu_liping 本版专家分：44: 12-23@21cn.com

0 2006-11-06 17:01:28

只看TA 引用举报 #15 得分 0

generalchenhero 本版专家分：0: 我急用请发给我一份，谢谢了！！
sychendl@163.com

0 2006-11-07 10:13:14

只看TA 引用举报 #16 得分 0

yphappy 本版专家分：0: 我也想要一份,谢谢了
yp.happy@163.com

0 2006-11-07 11:52:54

只看TA 引用举报 #17 得分 0

generalchenhero 本版专家分：0: 上面的s_WIN32_FIND_DATA这个结构怎么定义?

请大侠们指教!!

0 2006-11-07 17:03:46

只看TA 引用举报 #18 得分 0

xiao_deng 本版专家分：0: 我急用请发给我一份，谢谢了！！
deng727@126.com

0 2006-11-07 17:22:06

只看TA 引用举报 #19 得分 0

guangli_zhang 本版专家分：343: 我也想要一份，wufubao@sina.com 谢谢

0 2006-11-10 14:01:44

只看TA 引用举报 #20 得分 0

chinaicbc 本版专家分：0: 发份给我,万份感谢!
twinapple@gmail.com

0 2006-11-21 13:52:38

只看TA 引用举报 #21 得分 0

⋅此用户还没有发表过任何帖子 关注私信空间博客 chinaicbc 本版专家分：0: 原来陶清论坛上有个别人做好的superftp的，如果需要可以发给你

===========================================================
发份superftp给我啊,万份感谢了!twinapple@gmail.com

0 2006-11-21 13:53:57

只看TA 引用举报 #22 得分 0

toujifenzi 本版专家分：1: 请发一份给我，谢谢！
wjx7708@126.com

0 2006-11-21 14:42:33

只看TA 引用举报 #23 得分 0

pieroshi 本版专家分：60: Mark 关注。

0 2006-11-29 10:16:55

只看TA 引用举报 #25 得分 0

liyi830 本版专家分：345: 关注

0 2006-11-30 20:34:30

只看TA 引用举报 #26 得分 0

anzhuge 本版专家分：15: ddddd

0 2006-12-22 12:58:07

只看TA 引用举报 #27 得分 0

jojophak 本版专家分：246: mark

0 2007-01-17 08:32:15

只看TA 引用举报 #28 得分 0

xiaofei1107 本版专家分：76: 没有这么多，用个OCX就行，可容易了！！！

0 2007-01-18 12:30:29

只看TA 引用举报 #29 得分 0

⋅刚工作如何给领导送礼？ ⋅oracle安装失败，创建数据库的时候报ORA-12560 ⋅请教大家都是怎么解决系统的性能问题 更多帖子 关注私信空间博客 lovelihp 本版专家分：2486: 太多了，没时间看

0 2007-01-18 17:54:30

只看TA 引用举报 #30 得分 0

the7thsense 本版专家分：259: mark

0 2007-01-24 09:51:04

只看TA 引用举报 #31 得分 0

如何用PB实现FTP文件上下传文件 [问题点数：100分，结帖人CSDN]