如何用PB实现FTP文件上下传文件

PowerBuilder > API 调用
收藏 回复
[问题点数：100分，结帖人CSDN]
更多帖子
私信 空间 博客
chenlong9610
等级
本版专家分：368
结帖率 100%
如何用PB实现FTP文件上下传文件
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
仰天长啸qsx
等级
本版专家分：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

只看TA 引用 举报 #1得分 0
更多帖子
私信 空间 博客
仰天长啸qsx
等级
本版专家分：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  
只看TA 引用 举报 #2得分 0
更多帖子
私信 空间 博客
仰天长啸qsx
等级
本版专家分：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

只看TA 引用 举报 #3得分 0
更多帖子
私信 空间 博客
polestarxu
等级
本版专家分：3672
勋章
Blank
蓝花 2006年10月 PowerBuilder大版内专家分月排行榜第三
2006年8月 PowerBuilder大版内专家分月排行榜第三
mark.

只看TA 引用 举报 #4得分 0
更多帖子
私信 空间 博客
仰天长啸qsx
等级
本版专家分：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
只看TA 引用 举报 #5得分 0
更多帖子
私信 空间 博客
yaiger
等级
本版专家分：472
勋章
Blank
红花 2018年7月 Oracle大版内专家分月排行榜第一
楼上的，CompareFileTime的定义在哪里？
只看TA 引用 举报 #6得分 0
更多帖子
私信 空间 博客
仰天长啸qsx
等级
本版专家分：1576
function ulong CompareFileTime( REF FILETIME lpFileTime1, REF FILETIME lpFileTime2) library "kernel32.dll" Alias for "CompareFileTime"
只看TA 引用 举报 #7得分 0
更多帖子
私信 空间 博客
版主
wfexp
等级
本版专家分：924
勋章
Blank
红花 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月 硬件使用大版内专家分月排行榜第一
Blank
黄花 2010年7月 硬件使用大版内专家分月排行榜第二
2010年6月 硬件使用大版内专家分月排行榜第二
2005年6月 硬件使用大版内专家分月排行榜第二
Blank
蓝花 2005年5月 硬件使用大版内专家分月排行榜第三
收藏！
只看TA 引用 举报 #8得分 0
更多帖子
私信 空间 博客
li_d_s
等级
本版专家分：23948
勋章
Blank
黄花 2007年6月 Java大版内专家分月排行榜第二
2007年5月 Java大版内专家分月排行榜第二
2006年3月 PowerBuilder大版内专家分月排行榜第二
2006年2月 PowerBuilder大版内专家分月排行榜第二
2005年4月 PowerBuilder大版内专家分月排行榜第二
2005年3月 PowerBuilder大版内专家分月排行榜第二
Blank
蓝花 2005年2月 PowerBuilder大版内专家分月排行榜第三
原来陶清论坛上有个别人做好的superftp的，如果需要可以发给你
只看TA 引用 举报 #9得分 0
更多帖子
私信 空间 博客
bedsb
等级
本版专家分：57
MARK
只看TA 引用 举报 #10得分 0
1 2 3 4
收起
收藏 回复
chenlong9610

等级：

关注 私信 TA的帖子
在PB中实现ftp传输

在用PB进行开发时常常需要用到ftp功能，最典型的应用就是将数据窗口中的数据生成txt文件，然后将此数据文件用ftp发送到远程服务器上去。由于pb本身并未提供任何ftp的功能，因此想在pb中进行ftp传输，只能应用pb以外...

电子书下载网址大全

http://asp2.6to23.com/blueshand/default.asp http://www.mycnknow.com/srindex.htm http://pcbook.godcn.net/ http://www.helpwork.net/ http://www.chinathink.net/edown/default.asp http://www.ebook007.com/ h

Hadoop Operations(Hadoop操作) 详解(二) HDFS

Hadoop之HDFS原理介绍。

AIX 比较全的FAQ

FAQ:怎样在AIX 5.1中建立热后备(hot spare)磁盘？环境 AIX 5.1 问题 怎样在AIX 5.1中建立热后备(hot spare)磁盘？ 解答 在AIX 5.1中可以在操作系统的级别上建立hot spare磁盘。如需要在某一卷组(VG)中建立hot ...

AIX常见问题整理（二）

AIX常见问题整理（二）  工作需要，接触了AIX，然后是各种懵逼，各种慌，于是各种百度谷歌，电脑上存了一些网上找的，对应的具体问题已经不知道飞到天边了没，现暂时做一些摘抄，以下正文： ...

一些常用的资料_硬件/系统/等

一些常用的资料_硬件/系统/等标题前数字代表专题所在楼层数2. BIOS报警声意义3. BIOS自检与开机故障相关问题5. 计算机几个常见指标的意义6. 显卡GPU参数7. 显示卡常见故障全面解决8. 集成声卡常见故障及解决9....

ffmpeg mplayer x264 代码重点详解 详细分析

ffmpeg和mplayer中求平均值得方法 1 ordinary c language level #define avg2(a,b) ((a+b+1)>>1) #define avg4(a,b,c,d) ((a+b+c+d+2)>>2) 显而易见．．．，注意a，b宏表达式...实现方法１： inline static uint64

AIX常见问题整理

AIX常见问题整理创建时间：2002-08-17文章属性：原创文章来源：www.cnsafe.net文章提交：mayi (mayi99_at_263.net)by:ciline来自：www.cnsafe.net提纲：用feprom_update升级Firmware 2002-07-24 CHRPSystems系统启动...

S3C2410中利用Servfox和Spcaview使用WEBCAM(适用于zc301芯片的摄像头)

源代码下载:http://www.mcuos.com/viewthread.php?tid=262&extra=page%3D1&page=1相关问题讨论:...

linux常用命令-part3

中文怎么发音 Ubuntu 有奔头，乌版图 Fedora 费德勒，菲朵拉 Debian 迪扁，德槟 CentOS 桑托斯 森头斯   Linux发展历史: 1) RedHat ---> 1.RedHat  2.CentOS  3.Fedora 桌面图形系统 ...2)

linux常用命令-part2

Ubuntu,Fedora,Debian,CentOS中文怎么发音 有奔头， 费德勒， 迪扁， 桑托斯。 乌版图 菲朵拉 德槟 森头斯 ...================================ ...使用find和wc命令统计代码行数 ...wc -l `find ....

x264 代码重点详解 详细分析

eg mplayer x264 代码重点详解 详细分析 分类： ffmpeg 2012-02-06 09:19 4229人阅读 评论(1) 收藏 举报 h.264codecflv优化initializationinteger 目录(?)[+] ffmpeg和mplayer中求平均值得...#def

[转载]AIX 常见问题整理

怎样在AIX 5.1中建立热后备(hot spare)磁盘？ 环境 AIX 5.1 问题 怎样在AIX 5.1中建立热后备(hot spare)磁盘？ 解答 在AIX 5.1中可以在操作系统的级别上建立hot spare磁盘。 如需要在某一卷组(VG)中建立hot spare...

常用电脑资料速查

总目录1.《BIOS报警声意义》2.《BIOS自检与开机故障相关问题》3.《计算机几个常见指标的意义》4.《显卡GPU参数和比较[转译]》5.《显示卡常见故障全面解决》6.《显示器经典故障以及处理办法》7.《主板代码大全》8....

流氓软件的完全卸载的一些方法

1.3721的卸载 首先，用3721自带的卸载功能卸载3721，但是这个3721网络实名插件是使用Rundll32.exe调用连接库的，系统无法终止Rundll32.exe进程，所以我们必须重新启动计算机，按 F8 进入安全模式（F8 只能按一次，...

常用linux网络相关命令使用和输出详解

2) 网卡驱动程序所在目录 /lib/modules/2.6.29.4-167.fc11.i686.PAE/kernel/drivers/net 3) 查看网卡信息命令 ethtool eth0 (^ 查看网卡信息 ^) dmesg | grep -i eth (^ 查看网卡信息 ^) ...

架构设计：系统间通信（1）——概述从“聊天”开始上篇

这个文章系列专门整理总结了目前系统间通信的主要原理、手段和实现。我们将讲解典型的信息格式、讲解JAVA RMI调用并延伸出来重点讲解RPC调用和使用案例；最后我们还会讲到SOA架构的实现，包括ESB实现和服务注册/治理...

计算机网络第五版谢希仁答案

《计算机网络》课后习题答案 第一章 概述 1-1计算机网络向用户可以提供哪些服务？ 答：计算机网络向用户提供的最重要的功能有两个，连通性和共享。...答：分组交换实质上是在“存储——转发”基础上发展起来的。...

delphi控件使用

Standard页 1- Tlistbox控件 重要属性items.* 举例，界面设计如下左，执行结果如下右：   代码为 procedure TForm1.Button1Click(Sender: TObject); begin ...edit2.Tex

drupal7翻译

drupal7英汉对照  "Home"  "首页"  "User interface"  "用户界面"  "Title"  "标题"  "Body"  "正文"  "Next"  "下一个"  "user"  "用户"  "Pages"  "页面" ... "Reset to

【应届生笔试资料分享一】中国人民银行计算机笔试资料汇总

2009 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 看点书还是有用的 把学过的计算机的所有科目都串了遍 现在回忆今年的计算机类...

shell学习资料：shell十三问

SHELL十三问 2008125163340     SHELL十三问之五：var=value？export 前后差在哪？ 文章整理: 文章来源: 网络 这次让我们暂时丢开command line，先来了解一下bash变量(variable)吧... 所谓的变量，就是就是利用一...

hadoop相关(以期为单位）

学习Hadoop不错的系列文章 1）Hadoop学习总结 　（1）HDFS简介 　地址：http://forfuture1978.iteye.com/blog/615033 　（2）HDFS读写过程解析 　地址：...　地址

数学、物理、化学、生物、地理常用软件介绍（草稿）

一 数学： 1、数学软件： （1）常见的通用数学软件包包括：Matlab和Mathematica和Maple，其中Matlab以数值计算见长，Mathematica和Maple以符号运算、公式推导见长 （2）专用数学包包括： ...

《计算机网络》第一章习题

计算机网络可以向用户提供哪些服务？buj 试简述分组交换的要点 试从多个方面比较电路交换、报文交换和分组交换的主要优缺点。 为什么说互联网是自印刷术以来人类在存储和交换信息领域中的最大变革？...

笔试面试题集（java）

前言 本书为自己的面试试题和收藏自认为比极好的题目，整理归类在word文档中。然后复制到csdn中，涵盖了java面试中出现的各个知识点，包括java语言基础、数据库、web编程、框架等。其中每个部分都按小知识点进行...

那些年我准备的前端面试题

commonJS相关： (1)在commonJS规范中，require,exports,module，__filename,__dirname都是通过动态编译后添加到模块的头部的，这样就不存在全局变量污染的问题  但是他们传入的require,exports,module都是一个空...

Linux Kernel - Debug Guide (Linux内核调试指南 )

linux内核调试指南 一些前言 作者前言 知识从哪里来 为什么撰写本文档 为什么需要汇编级调试 ***第一部分：基础知识*** 总纲：内核世界的陷阱 源码阅读的陷阱 ...原理理解的陷阱

linux内核调试指南

linux内核调试指南一些前言作者前言知识从哪里来为什么撰写本文档为什么需要汇编级调试***第一部分：基础知识***总纲：内核世界的陷阱源码阅读的陷阱代码调试的陷阱原理理解的陷阱建立调试环境发行版的选择和安装...

计算机缩写术语完全介绍

计算机缩写术语完全介绍 在使用计算机的过程中，你可能会碰到各种各样的专业术语， 特别是那些英文缩写常让我们不知所云，下面收集了各方面的词组， 希望对大家有帮助。 一、港台术语与内地术语之对照 由于港台的...

相关热词 c#中post获取页面 c# 写一个文本编辑器 c# 相对路径./ c#变量查询数据库语句 c#winfrom打印 c#显示数据库信息 c# 多线程工具类 c# 判断字符串相等 c#线程池类 c#如何遍历容器