51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1880|回复: 2
打印 上一主题 下一主题

[原创] QTP如何上传文件到FTP

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-5-11 13:17:44 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
各位:
   QTP如何将文件上传到FTP上面
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2010-5-11 14:29:08 | 只看该作者
  1. Const DEFAULT_FTP_PORT =21
  2. Const SERVICE_FTP = 1
  3. Const OPEN_TYPE_DIRECT = 1
  4. Const FTP_TRANSFER_TYPE_ASCII = 1

  5. Extern.Declare micLong,"InternetOpen","wininet.dll","InternetOpenA",micString,micDWord,micString,micString,micDWord
  6. Extern.Declare micLong,"InternetConnect","wininet.dll","InternetConnectA",micLong,micString,micInteger,micString,micString,micDWord,micDWord,micDWord
  7. Extern.Declare micInteger,"FtpGetFile","wininet.dll","FtpGetFileA",micLong,micString,micString,micInteger,micDWord,micDWord,micDWord
  8. Extern.Declare micInteger,"FtpPutFile","wininet.dll","FtpPutFileA",micLong,micString,micString,micDWord
  9. Extern.Declare micInteger,"InternetCloseHandle","wininet.dll","InternetCloseHandle",micLong

  10. '  打开
  11. hInternet = Extern.InternetOpen("QTP_FTP",OPEN_TYPE_DIRECT,vbNullChar,vbNullChar,0)
  12. If hInternet=0 Then Print("QTP_FTP:Failed to setup FTP environment.")

  13. ' 连接
  14. hConnection = Extern.InternetConnect(hInternet,"www.atstudy.com",DEFAULT_FTP_PORT,"user1","user1",1,0,0)
  15. If hConnection =0 Then Print("Failed to setup FTP environment")

  16. ' 上传
  17. ' bRetval = Extern.FtpPutFile(hConnection,sLocalFile,sRemoteFile,0)

  18. ' 下载
  19. bRetval = Extern.FtpGetFile(hConnection,"/Mercury/QuickTest/QTP crack.rar","D:\QTP crack.rar",0,0,1,0)
  20. If Not CBool(bRetVal) Then
  21.         Reporter.ReportEvent micFail,"FTP:FtpGetFile function","Failed to open download file."
  22. else
  23.         Print("FTP:File :QTP crack.rar downloaded successfully")
  24.         'Reporter.ReportEvent micPass,"FTP:FtpPutFile function","FTP:File"&sLocalFile&"upload successfully."
  25. End If

  26. ' 关闭
  27. Extern.InternetCloseHandle(hConnection)
  28. Extern.InternetCloseHandle(hInternet)
复制代码
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2010-5-13 09:58:10 | 只看该作者
谢谢楼上的 你帮了我大忙
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-22 07:31 , Processed in 0.068883 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表