MyException - 我的异常网
当前位置:我的异常网» VFP » 怎么设置messagebox()窗口在表单的指定位置出现?怎

怎么设置messagebox()窗口在表单的指定位置出现?怎么得到FTP服务器上文件的字节数

www.myexceptions.net  网友分享于:2015-08-26  浏览:78次
如何设置messagebox()窗口在表单的指定位置出现?如何得到FTP服务器上文件的字节数?
    现有两个问题向电脑专家请教:
    1、如何设置用户自定义对话框messagebox()窗口在表单的指定位置出现?
    一般messagebox()窗口都在表单的中心位置出现,现在要求在表单的指定位置出现,该如何设置?

    2、如何得到FTP服务器上文件的字节数?
    用木瓜的myfll函数“HttpGetFileSize(cUrl)”获取网络FTP服务器中的文件大小得到的是负数而得不到真值。(该函数的说明中标明:“获取网络中的文件大小,一些服务器可能不支持文件大小。”) 
   本人为某公司开发的一个VFP运行软件中,打开软件时首先要求用户下载FTP服务器上的“上级来文汇编”(dbf表文件,字段有发文日期、发文部门、文件标题、文件内容,该表不定期增添新文件),让用户能查阅最新发表的文件。但FTP服务器上的“上级来文汇编”内容较多,下载需要化费时间,也没有必要每次都要下载,只有当FTP服务器上的“上级来文汇编”中内容新增时就需要下载。这就要求用户软件先检查FTP服务器上的“上级来文汇编”的字节数与本机上的“上级来文汇编”的字节数是否一致,如不一致就下载,这样就不需要每次打开软件时都重复下载。因此,需要得到FTP服务器上文件的字节数。

    敬向电脑专家请教,不胜感激!

------解决方案--------------------
1、不用 Messagebox(),用表单或容器仿一个。
2、HttpGetFileSize 函数应该是不能用于 FTP 服务器。
用 FtpAFile(hFtp,cArrayName) 枚举Ftp当前路径下的所有文件和文件夹
然后通过文件大小修改日期、时间来判断文件是否有更新

返回值:
整型,文件(包含文件夹)的个数。 
参数:
hFtp:由FtpConnect()返回的句柄 
cArrayName:字符型,要创建的数组名字。
此数组结构等同于VFP的ADir()函数生成的数组:

1-文件名
2-文件大小
3-最后修改日期
4-最后修改时间
5-文件属性,共5字节,如果包含"D",则这是一个文件夹,具体请参阅VFP帮助中的ADir()函数 

------解决方案--------------------
VFP中压缩工具WinRAR的调用
-------------------------------------------
压缩:

Erase bak.rar
Run /N7 WinRAR.Exe a -ibck -r -k -o+ -Y -hp123 -p123 bak.rar Dbf\*.*

Run /N7 WinRAR.Exe a -ibck -r -o+ -Y -hp123 -p123 bak.rar Dbf\*.*

解压:

Run /N7 WinRAR.Exe x -ibck -r -k -o+ -Y -hp123 -p123 bak.rar Dbf\*.*

Run /N7 WinRAR.Exe x -ibck -r -o+ -Y -hp123 -p123 bak.rar Dbf\*.*

bak 变量可以这样用:
cmd = "路径\rar.exe a -ibck -r -k -o+ -ep1 -y " + bak + ".rar email\" + abc + ".*"
RUN /n7 &cmd

 要等待 rar 命令结束,可以用其他方法,例如:

cmd = ["c:\Program Files\WinRar\rar.exe" a -ibck -r -k -o+ -ep1 -y ] + bak + [.rar email\] + bak + [.*]
oWsh = CreateObject("wscript.shell")
oWsh.Run(cmd, 8, .T.)     &&将 8 改为 0 则不显示运行界面
*窗口显示模式取值:
* Hide = 0                 '不显示窗口
* MaximizedFocus = 3       '最大化显示,并设置为活动
* MinimizedFocus = 2       '最小化显示,并设置为活动
* MinimizedNoFocus = 6     '最小化显示
* NormalFocus = 1          '正常显示,并设置为活动
* NormalNoFocus = 4        '正常显示



参数说明:
a:添加到档案文件中
x:从档案文件中全路径释放文件

-ibck:后台运行WinRAR
-r:连同子文件夹操作
-k:锁定档案文件
-o+:覆盖已经存在的文件
-Y:对所有询问均回应为“是”
-hp123:加密文件数据和文件头,密码为123
-p123:设置密码为123,此密码上一个密码可以不一样

bak.rar:压缩后的文件名或要解压的文件(.rar为自定义扩展名)
Dbf\*.*:要压缩的文件或要解压到的文件位置

更详细参数请参考:WinRAR中帮助文件

调用 WinRAR,要将 WinRAR 安装到目标机或将安装后的 WinRAR 发布到你的程序目录下。

文章评论

不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
我的丈夫是个程序员
我的丈夫是个程序员
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
2013年美国开发者薪资调查报告
2013年美国开发者薪资调查报告
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
编程语言是女人
编程语言是女人
旅行,写作,编程
旅行,写作,编程
总结2014中国互联网十大段子
总结2014中国互联网十大段子
Google伦敦新总部 犹如星级庄园
Google伦敦新总部 犹如星级庄园
漫画:程序员的工作
漫画:程序员的工作
老程序员的下场
老程序员的下场
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
每天工作4小时的程序员
每天工作4小时的程序员
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
Web开发人员为什么越来越懒了?
Web开发人员为什么越来越懒了?
十大编程算法助程序员走上高手之路
十大编程算法助程序员走上高手之路
程序员的鄙视链
程序员的鄙视链
鲜为人知的编程真相
鲜为人知的编程真相
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
那些争议最大的编程观点
那些争议最大的编程观点
10个调试和排错的小建议
10个调试和排错的小建议
代码女神横空出世
代码女神横空出世
为什么程序员都是夜猫子
为什么程序员都是夜猫子
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
中美印日四国程序员比较
中美印日四国程序员比较
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
程序员必看的十大电影
程序员必看的十大电影
程序员和编码员之间的区别
程序员和编码员之间的区别
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
 程序员的样子
程序员的样子
什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
如何成为一名黑客
如何成为一名黑客
我是如何打败拖延症的
我是如何打败拖延症的
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
Java程序员必看电影
Java程序员必看电影
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
程序员应该关注的一些事儿
程序员应该关注的一些事儿
2013年中国软件开发者薪资调查报告
2013年中国软件开发者薪资调查报告
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
那些性感的让人尖叫的程序员
那些性感的让人尖叫的程序员
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有