我的目的是想实现从ftp上下载文件，弄一个进度条显示下载完成
的情况。现在我用一段程序获得了从ftp上下载文件的大小、已下载大小。在prg程序里用“？”是可以在屏幕上显示下载信息。就是不知道如何将prg里变量的值（文件大小，已下载大小，文件名等）实时传倒表单上。如果实时传到表单上的话我就可以用一个进度条来显示。这样就直观多了！
我想请高手帮我指点迷津！谢谢！（不胜感激）

我是利用myfll来实现的！myfll代码如下：
Set Library To myfll
SetVfpEvents("test()",1)
FtpDownFile("127.0.0.1","www\test.rar","d:\test.rar")
Set Library To  


然后用test.rg文件里:
Procedure test
Lparameters a,b,c,d
?"当前ID",a ,"已发送字节：" ,b ,"总字节：",c ,"附加参数：", d
Return .t.
EndProc  


我就是想在表单里获取b，c，d的值。要实时获得！这样就可以弄进度条！

请高手帮忙解决！

比较奇怪，你a、b、c咋来的？

关注中

public不行吗？

可能有较大的难度，因为在FTP下载过程中很难获得当前下载的进度和内容。

楼主就是想让高手帮他解决这个问题。

我确实不知道那个myfll库的函数是用什么方式传出那些数据的，没用过。楼主说得到那些数了，就想问问是怎么得到的，从他的代码中看不出来。

呵呵。abcd四个变量Lparameters a,b,c,d已经的出来了！它们分别是id，文件大小，已下载大小，文件名！我就是想要把abcd这结果返回倒表单里引用！

我看你还不知道是怎么回事，说白了：你如何在test()中得到的abcd，就同样如何在表单中得到它们。

代码如下(通过测试), 供参考~

***
fmTest=createobject("fmTest")
fmTest.show(1)
define class fmTest as form
   autocenter =.t.
   width =630
   height=60
   add object ed1 as textbox with top=15,height=30,left=15, width=600,value=""
proc activate
     Set Library To myfll
         SetVfpEvents("this.ed1.gotfocus()",1)
         FtpDownFile("服务器地址","远程文件名","本地文件名")
     Set Library To  
proc ed1.gotfocus
     Lparameters a,b,c,d
     this.width =iif(vart(b)="N",600*(c-b)/c,0)
     thisform.caption =iif(vart(b)="N",allt(str(b)),"操作完毕")
enddefine