奇怪,wininet用到ftpfindfirstfilea的时候取不到数据了
龙腾九霄 2004-11-03 11:09:25 String filename
Long filehandle
String fullpathfilename
String ftp_remotefile
String localfullpathfilename
String filecontent
String str_error
ftp_remotefile = ftp_remotedir + ftp_remotefiletype
LInternetOpen = InternetOpenA("FTP Control", 1, "", "", 0)
if LInternetOpen =0 then
messagebox("","初始化ftp连接失败")
return ""
end if
LFtpConnect = internetconnecta(LInternetOpen,ftp_ip, ftp_port, ftp_uid, ftp_pwd,1,0,0)
If LFtpConnect = 0 Then
str_error = "由于网络错误导致连接ftp服务器失败"
messagebox("","接收远程服务器文件失败!可能原因:" + str_error )
return ""
end if
messagebox("","连接ftp服务器成功")
//到此处运行正常,并且成功取得了文件句柄...
stru_WIN32_FIND_DATA f_find
LFindFileHandle = ftpfindfirstfilea(LFtpConnect, ref ftp_remotefile, ref f_find, 0, 0)
filename = f_find.cfilename
messagebox(string(LInternetOpen),string(LFtpConnect) +" "+string(LFindFileHandle))
messagebox("",filename)
messagebox("",f_find.calternatefilename)
//此处未获得ftp文件名,请高手指点
If LFindFileHandle > 0 Then
fullpathfilename = ftp_remotedir + filename
localfullpathfilename = localpath + filename
messagebox(fullpathfilename,localfullpathfilename)
end if
(解决此问题可续加分) 急急急。。。。。