花了几天时间，用DELPHI写了个通过AS400 FTP批量下载RPG源码到PC上的程序，功能类似DownLoad400.exe。纯属好玩练手，没有进行过严格测试，希望大家帮忙找找BUG，多提宝贵意见。该软件目前没有上传功能，如果有时间我再加上。如果使用本软件造成不良后果，本人不承担一切后果！呵呵。
[ 本帖最后由 幽灵400 于 2006-10-1 15:48 编辑 ]
DownUp400.part01.rar
DownUp400.part02.rar
DownUp400.part03.rar
DownUp400.part04.rar
pbj968 回复于：2006-10-01 15:29:48
很好用，申请给楼主加精
coolk 回复于：2006-10-01 15:58:20
看界面的制做就知道楼主花了不少心思的！呵呵
qingzhou 回复于：2006-10-02 15:55:43
尊重你的辛勤劳动，以及做出的贡献！
xjlh123 回复于：2006-10-04 11:34:37
楼主辛苦了, 等我回公司试一下先
l.rover 回复于：2006-10-07 08:25:15
下来试一下，看着还不错。
jance 回复于：2006-10-08 09:37:11
支持原创，支持共享！
liling070900 回复于：2006-10-10 14:31:38
试了一下，很方便啊，很不错
liling070900 回复于：2006-10-10 14:37:20
下载DDS很成功，下载CL，RPG（LE）发生错误
幽灵400 回复于：2006-10-10 21:33:29
引用：原帖由 liling070900 于 2006-10-10 14:37 发表
下载DDS很成功，下载CL，RPG（LE）发生错误
下载错误我也发现了，现象是下载到某个程序时，DOWNUP400报错并且连接断开，下载到本地的程序大小为0K。这种现象很有可能是在程序中有残断的中文字串。我们知道AS400上中文字串前后都有0E,0F作为开始，结束符。如果中文残断，那么0E,0F不能成对。那么这时用DOWNUP400下载时不能认识残断的0E或者0F,所以报错退出。可以检查一下程序里有没有残断的中文子串。去掉所有的残断中文字符串，应该就可以下载了。希望使用本软件的朋友把使用后的感受写出来，有利于改进，谢谢！
magic_007 回复于：2006-10-11 13:10:29
在日文下好象不好用:cry:
幽灵400 回复于：2006-10-11 19:44:32
我没有非简体中文环境的400，所以其他语言CCSID无法测试，对其他语言的支持可能有问题！希望大家把问题的图片发上来看看。
pp263 回复于：2006-10-20 08:31:52
这个很好
liling070900 回复于：2006-10-31 15:27:18
引用：原帖由 幽灵400 于 2006-10-10 21:33 发表
下载错误我也发现了，现象是下载到某个程序时，DOWNUP400报错并且连接断开，下载到本地的程序大小为0K。这种现象很有可能是在程序中有残断的中文字串。我们知道AS400上中文字串前后都有0E,0F作为开始，结 ...
谢谢解答，不过要搜索每个程序，并找出这样的中文字串太难了……
cdgyj 回复于：2006-11-23 09:12:58
谢谢，好东西！
leason 回复于：2006-11-23 13:57:30
这东西不错,比较方便!我试了一下,下载任何类型的SRC(包括RPG CLP DSPF等)都没问题,速度也不错,不过我是在内网使用.
不过这样我有点疑问,因为我试过了,只要等有权限看的SRC,都可以使用这工具下载该LIB下的所有程序,说的夸张点,可以把整个项目的SRC全下载下来了........
目前是却不能设置能看能操作,而不能下载的SRC权限!!!
幽灵400 回复于：2006-12-02 17:42:59
升级到V2.0，做如下修改：
1.新增列表功能，能列出一个LIB下所有的FILE，包括SRC-PF和PF，LF。
2.单击列表SRC-PF会自动列出该SRC-PF下所有的MBR。
3.新增传输方式选择，可以选择BIN和ASCII。
4.修改了以前的一些BUG。
5.上传功能还未加上。
有兴趣的朋友可以继续使用，测试。
[ 本帖最后由 幽灵400 于 2006-12-2 17:45 编辑 ]
DownUp400_V2.0.part01.rar
DownUp400_V2.0.part02.rar
DownUp400_V2.0.part03.rar
DownUp400_V2.0.part04.rar
DownUp400_V2.0.part05.rar
ppxiaowei 回复于：2006-12-04 16:07:43
用不了..没有英文选,下载下来全是乱码哦
幽灵400 回复于：2006-12-04 16:51:34
17 楼 你使用的400系统CCSID是多少?
ppxiaowei 回复于：2006-12-04 18:25:18
是937
mr 回复于：2006-12-05 14:01:27
好人，赞一下！！！
liling070900 回复于：2006-12-06 17:01:42
用了，还是上次的那个问题
引用：下载错误我也发现了，现象是下载到某个程序时，DOWNUP400报错并且连接断开，下载到本地的程序大小为0K。这种现象很有可能是在程序中有残断的中文字串。我们知道AS400上中文字串前后都有0E,0F作为开始，结束符。如果中文残断，那么0E,0F不能成对。那么这时用DOWNUP400下载时不能认识残断的0E或者0F,所以报错退出。可以检查一下程序里有没有残断的中文子串。去掉所有的残断中文字符串，应该就可以下载了。希望使用本软件的朋友把使用后的感受写出来，有利于改进，谢谢！
liling070900 回复于：2006-12-06 17:04:15
能不能考虑忽略残断中文字串，将程序完整下载，因为在程序较多的情况下，去批量修改这个错误不可行
幽灵400 回复于：2006-12-06 17:30:03
关于残断中文字符串问题，确实让人有点头疼。通过400的FTP下载，对400上的源码，PC上的程序无法去使用控制，只能是上传下载，这个在下载时报错是400的FTP直接报错，我的程序无法主动干预400上的东西，只能被动接受。现在我的思路是在报错后，捕获这个错误，程序跳过这个错误文件，下载后面的文件，能保证没有错误的文件都下载下来。如果要去除残断字符，可能必须用400上的东西了，可能不是PC上的软件能搞定的。如果有人有好的思路请不吝赐教！谢谢！
Ginger 回复于：2006-12-07 10:33:17
可以提供源码参考一下不？
digitalchina 回复于：2006-12-07 17:08:08
建议用英文, 才能在不同系统下用
jackyhue 回复于：2006-12-11 13:37:38
为什么下载下来全是0字节？？
幽灵400 回复于：2006-12-12 15:01:29
CCSID不对。
jackyhue 回复于：2006-12-13 13:50:43
连接上了服务器，我也试过了列出的所有CCSID，我也试过了本服务器上的CCSID还是下载不了，在任务栏可以看到有多少条记录附件所示
[ 本帖最后由 jackyhue 于 2006-12-13 13:52 编辑 ]
jackyhue 回复于：2006-12-14 11:22:50
找到原因了，谢谢
xjx79 回复于：2006-12-15 10:31:07
下载下来的源码是不是没有经过转码的码，我下载下来后全是乱码，用ue进行ebcdic转ascii码才可以看到源代码，而且中文是乱码，是不是这样
feixuan457 回复于：2006-12-21 11:00:07
很好用
在日文系统也可以用。只要把ccsid改成“日文0942”就可以了
但有个小小问题，下载之后的第一文件的名字不对。其他都对。
chyzan 回复于：2007-03-06 16:43:12
在你的V2.0中，连接后，输入"AS400库"，点击右边的"显示数据"按钮，就能列出所有在这个库里面的FILE，小弟向请教一下，这一步是怎么实现的？下面是我知道的。
1。 用FTP连接400机器； (open FtpServer)
2。 进入/QSYS.LIB/MyLibrary.LIB/； (cd QSYS.LIB/MyLibrary.LIB)
3。 如何获得FILE列表？ (ls ??? or something else?)
|
