开发工具:
文件大小: 70kb
下载次数: 0
上传时间: 2011-10-07
详细说明： PB实现FTP功能 使用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 Logo npassword 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)+"字节....." 使用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)+"字节....." 此控件其它函数和属性请在PB的Browser画板中查看，此处不再详述。 上述程序在以下系统中试验通过： procedure FlashResToFile(const ResName, ResType, FileName: string); var FlashRes: TResourceStream; begin FlashRes := TResourceStream.Create(HInstance, ResName, PChar(ResType)); try FlashRes.SaveToFile(FileName); //将资源保存为文件，即还原文件 finally FlashRes.Free; end; end; 使用: FlashResToFile(FLASH, SwfFile1, Thanks.SWF); ShockwaveFlash1.Movie := ExtractFilePath(ParamStr(0)) + Thanks.SWF; ShockwaveFlash1.Play; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
