在PB中实现FTP传输.docVIP

在PB中实现ftp传输（深圳：独孤求败?2003-05-20） ????在用PB进行开发时常常需要用到ftp功能，最典型的应用就是将数据窗口中的数据生成txt文件，然后将此数据文件用ftp发送到远程服务器上去。由于pb本身并未提供任何ftp的功能，因此想在pb中进行ftp传输，只能应用pb以外的资源。以下是笔者在pb开发中总结出来的几种方法。? 一、使用外部命令? ---?这种方法就是在pb程序中运行Windows中自带的ftp命令。具体做法是在程序中生成一个.bat文件，将要运行的ftp命令写到此文件中，再运行这个批处理文件。假设ftp服务器ip为?，用户名为user，口令12345，现在要将本地c:\temp\下的t00001.txt文件上传到服务器的\txtdata\目录下去。则pb代码如下：? integer?li_bat??//文件名指针li_bat?=?FileOpen(path_ftp+get_file.bat,lineMode!,?Write!,?LockWrite!,?Replace!)FileWrite(li_bat,?cd?c:\temp\)FileWrite(li_bat,?ftp?0)FileWrite(li_bat,?user)FileWrite(li_bat,?12345)FileWrite(li_bat,?put爐00001.txt燶txtdata\t00001.txt)FileWrite(li_bat,?bye)FileWrite(li_bat,?exit)FileClose(li_bat)Run(path_ftp+get_file.BAT,Minimized!)messagebox(提示信息,数据上报完毕) ---?此方法的优点是简单易行，既不要调用API函数，也不需加入OLE。缺点一是要运行外部命令，将会打开dos窗口，显得不够和谐；二是数据传输成功与否无法判断，在编程时不好控制。? 二、使用Internet?Transfer控件 ---?Internet?Transfer控件是网络编程中非常常用的控件。它支持目前Internet上使用最为广泛的两种协议，即Http和Ftp。在windows98中它是由系统自带。有关此控件的详细资料请查看相关书籍。这里我们只使用它的Ftp功能。在PB中加入一个与此控件的OLE，取名ole_1，并按以下数据设置此控件的属性（注意不是ole_1的属性），表中没有列出的属性请用缺省值：? 属性????????????值???????????说明Protocol????????2??????????指定用Ftp协议Remotehost???????Username????????User1?Password????????12345? ---?Internet?Transfer控件支持两种数据传输方式，即同步传输方式和异步传输方式。同步传输方式在数据传输时会阻塞程序，此功能是通过调用该控件的OpenUrl方法来实现的；而异步方式则不会阻塞程序，它通过调用控件的Execute方法来实现。同步方式虽然易于控制，但它只能下载文件，不能上传文件，这使得它在实际的应用受到限制。要实现数据的上传下载，只能使用此控件的异步传输方式。要完成上例中的功能，在PB程序中加入以下语句即可： ????Ole_1.object.execute(,put?c:\temp\t00001.txt???\txtdata\t00001.txt) ---?同理，如果要将服务器上的文件下载到本地，在程序中加入即下语句：?????Ole_1.?object.execute(,get?\txtdata\t00001.txt??c:\temp\t00001.txt) ----Internet?Transfer控件的功能很强大，利用它足以制作一个功能比较完善的FTP工具，而且它是操作系统自带的，在编程时不需要注册新的控件。但根据笔者的使用经验，此控件也有两个不能忽视的缺点，其一、它的数据上传下载是异步传输的，在每次只运行一个ftp命令时尚可，如果一次运行多个ftp命令就会出错。比如说，我们想先进入服务器的\file目录，再上传数据，这样程序应如下：?Ole_1.object.execute(,cd?\file\)Ole_1.object.execute(,put?c:\temp\t00001.txt???\txtdata\t00001.txt) ---?由于execute方法是异步执行的，它不等第一个语句完成就开始执行第二条语句，这样可能服务器还来不及将当前目录转到\file下数据已经开始上传，造成错误。?---?其二、笔者还发现一个莫名其妙的问题