哪位朋友发一个ＰＢ 操作ＦＴＰ 的例程给我，谢谢！

[wag_enu]

哪位朋友发一个ＰＢ　操作ＦＴＰ　的例程给我，谢谢！

[酒尽雪满天]

是从FTP上下载文件吗？？
你留个邮箱啊，我发给你。

[dawugui]

参考:

在PB中实现FTP传输 
 
　　在用PB进行开发时常常需要用到ftp功能，最典型的应用就是将数据窗口中的数据生成txt文件，然后将此数据文件用ftp发送到远程服务器上去。由于pb本身并未提供任何ftp的功能，因此想在pb中进行ftp传输，只能应用pb以外的资源。以下是笔者在pb开发中总结出来的几种方法。 

　　1、使用外部命令 
　　这种方法就是在pb程序中运行Windows中自带的ftp命令。具体做法是在程序中生成一个.bat文件，将要运行的ftp命令写到此文件中，再运行这个批处理文件。假设ftp服务器ip为 202.114.67.2，用户名为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 202.114.67.2')
FileWrite(li_bat, 'user)
FileWrite(li_bat, '12345')
FileWrite(li_bat, 'put t00001.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窗口，显得不够和谐；二是数据传输成功与否无法判断，在编程时不好控制。 

　　2、使用Internet Transfer控件 
　　Internet Transfer控件是网络编程中非常常用的控件。它支持目前Internet上使用最为广泛的两种协议，即Http和Ftp。在windows98中它是由系统自带。有关此控件的详细资料请查看相关书籍。这里我们只使用它的Ftp功能。在PB中加入一个与此控件的OLE，取名ole_1，并按以下数据设置此控件的属性（注意不是ole_1的属性），表中没有列出的属性请用缺省值： 

属性 值 说明
Protocol 2 指定用Ftp协议
Remotehost 202.114.67.2 
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下数据已经开始上传，造成错误。 

　　其二、笔者还发现一个莫名其妙的问题，那就是利用此控件进行上传时它会将上传到服务器上的文件的文件名改为大写，如上例中，本地的t00001.txt上传到服务器上后，它的名字会变成T00001.TXT，这在NT上自然无妨，但在Unix机器上就可能带来错误。 

　　3、使用Mabry Internet FTP/X Control 
　　此控件是由Mabry Software公司提供的一个用于Ftp的控件，读者可以到www.mabry.com上去下载此控件(mftpx.ocx)。经比较，笔者认为在进行ftp传输方面，使用此控件进行编程最方便。它能完成绝大部分Ftp的功能，而且在编程中能很方便地控制程序的运行。比如说要完成前述功能，我们先注册该控件，然后在PB程序中加入一个该控件的Ole，取名Ole_1；一个单行编辑器Sle_1，用为显示有关信息；一个按钮Cb_1，点击它时进行Ftp操作。另设一个boolean 型Instance Variables，取名is_con，并将它设为false，用于指示网络是否已连通。对该控件的属性进行如下设置： 

属性 值 说明
Host 202.114.67.2 
Logonname User 
Logonpassword 12345 
Timeout 10 根据实际情况设置

　　在Cb_1的clicked事件中加入以下代码： 

sle_1.text = "正在连接....."
setpointer(hourglass!)
ole_1.object.connect()

if is_con then
sle_1.text = "开始传输...."
ole_1.object.putfile
("c:\temp\t00001.txt","/txtdata/t00001.txt")
sle_1.text = "传输完毕！"
end if

setpointer(arrow!)
is_con = false
在Ole_1的各事件中加入相应代码：
connected事件：
if fconnected then
sle_1.text = "连接成功！"
is_con = true
else
sle_1.text = "连接失败！"
is_con = false
end if
externalexception事件：
sle_1.text = "外部错误,可能网络不通"

action = ExceptionIgnore!
progress事件：
sle_1.text = "已传输"
+ string(bytestransfered)+"字节....." 
 

[dawugui]

参考:

FTP应用
（独孤求败二零零四年一月二十四日整理于深圳市南山区）

先制作一个用户自定义不可视用户对象，然后用封装好的用户对象开发FTP应用。

1、建立一个工作空间（workspace），取名为：ftp。

2、建立一个应用（application），取名为：ftp。

3、建立一个自定义不可视用户对象，取名为：nov_ftp。在这个用户对象中将使用一个外部动态链接库，所有的文件传输函数都封装在里面。

4、声明本地的4个外部函数和5个外部过程。
function  int  GetWebFile(string host,string user,string password,string remotefile,string localfile,int UpDowntype,ref string RtnError) Library "seinweb.DLL"
function  int insert_ie_button(string host,string user) Library "seinweb.DLL"
function  int IsInternetConnection() Library "seinweb.DLL"
function  int GetFile(string host,string filename) Library "seinweb.DLL"
SUBROUTINE  Open_Wait_window(string as_text,string as_exe)  LIBRARY"seinweb.dll"
SUBROUTINE  Close_Wait_window() LIBRARY"seinweb.dll"
SUBROUTINE  Open_Ras_window(int RasType)  LIBRARY"seinweb.dll"
SUBROUTINE  Open_IE_Properties()  LIBRARY"seinweb.dll"
SUBROUTINE  Open_Wzd_Window(int WzdType)  LIBRARY"seinweb.dll"

5、声明一个用户对象级函数，取名为：of_online()，用来检测当前用户是否已经连上Inertnet，其定义如下：
 
脚本如下：
Return IsInternetConnection()

6、声明一个用户对象级函数，取名为：of_dial()，弹开一个对话框，提供给用户拨号上网，其定义如下：

 
脚本如下：
Open_Ras_window(1)

7、声明一个用户对象级函数，取名为：of_hangup()，用来挂断本机，其定义如下：
 
脚本如下：
Open_Ras_window(0)

8、建立一窗口，取名为：w_ftp。设置如下控件：
 

9、窗口open事件：
//******************************************************
//*初始化下载窗口,从ftp.ini中读取配置信息					 *
//******************************************************
String ls_FTPFile
String ls_LocalFile
ls_FTPFile = ProfileString("FTP.INI", "FTP Setup","FTP FileName", "")//服务器文件
ls_LocalFile = ProfileString("FTP.INI", "FTP Setup","Local FileName", "")//本地文件
st_3.Text = ls_FTPFile
st_4.Text = ls_LocalFile

10、cb_1（立即下载）按钮的clicked事件：
//************************************
//*开始下载文件							 *
//************************************
//数据有效性验证
String ls_ServerFileName
String ls_LocalFileName
ls_ServerFileName = st_3.Text
ls_LocalFileName = st_4.Text
If Trim(ls_ServerFileName)="" OR Trim(ls_LocalFileName)="" Then
	MessageBox("错误","没有有效的服务器文件或本地下载文件名称。")
	Return 1
End If
//检测用户计算机是否已经连网
Integer li_IsConnected
li_IsConnected = IsInternetConnection()
If li_IsConnected<=0 Then
	If MessageBox("提示","用户现在尚未连网,是否要拨号上网?",question!,YesNo!)=1 then
		Open_Ras_window(1)
	End If
	Return
End If
//根据下载方式进行下载
If rb_1.Checked Then 
	wf_ftpfile(ls_ServerFileName,ls_LocalFileName)
else
	wf_httpfile(ls_ServerFileName,ls_LocalFileName)
End If
Close(Parent)

11、其它设置请参阅例子。

12、效果图：

[WorldMobile]

可以参考一下链接

pb ftp自动更新

http://download.csdn.net/down/2022729/zjf1119

[new4everlau]

好贴！！！顶贴无罪！！！

[newease]

兄弟，已经将几个FTP示例发至邮箱，请查收

[wag_enu]

谢谢各位了．．．．

[wag_enu]

试了一下,mabry ftp 最强,

再谢谢 新意和大乌龟哈....

[tftyt2008]

正好可以参考下，谢谢了

[gglgf]

[e-mail] 请给我再传一份吧，我也需要。
另外我有一个问题，就是连续（或者间隔1分钟）对于ftp进行上传下载文件，容易造成pb程序的死机，不知道怎么解决，请各位帮忙分析下