1. 首页
  2. 开始使用
  3. fun_downlaod/fun_upload

fun_download

fun_download 单元包含了下载文件的代码。代码提供了2中调用方式,分别是窗体下载和参数下载,使用的控件分别是IdHTTP、IdAntiFreeze。

function Download(var sdownsite,ssavepatch,snewname:string):string;

函数解析:

  • 函数用途:用于下载小体积文件,因为是单线程的操作。
  • 调用范例:
    var sdownsite,sname,slj:string;
    begin
    sdownsite:='http://www.iamhack.com/abc.jpg';
    sname:='cde.jpg';
    fun_basic.funbasic.getpatch(slj);
    form23.download(sdownsite,slj,sname);
    end;
    
  • 实例解析:主需要载入参数:文件网络地址、存储路径和存储文件名,代码会生成一个新的存储文件名并返回。

fun_upload

fun_upload 单元包含文件上传的模块,包括FTP上传的代码。

procedure Getuserinfo();

函数解析:

  • 函数用途:读取本地的FTP信息,并进行FTP数据库链接配置。
  • 调用范例:
    begin
    form24.getuserinfo;
    end;
    
  • 实例解析:FTP上传需要添加 IdFTP1 控件。
    测试的时候请保证FTP的信息正确;
    过程代码中的upload.txt信息格式为:
    ftpadmin
    123456
    192.168.1.102
    \
    http://127.0.0.1/ftpupload/
    
    分别ftp账号、fpt密码、ftp服务器地址、ftp缺省目录、ftp上传文件目录。

procedure ConnectFtp();

函数解析:

  • 函数用途:连接到FTP服务器。
  • 调用范例:
    begin
    form24.connectftp;
    end;
    

function Upload(var spatch:string):string;

函数解析:

  • 函数用途:上传文件到FTP服务器(单线程)。
  • 调用范例:
    var slj,spatch:string;
    begin
    fun_basic.funbasic.getpatch(slj);
    spatch:=slj+'abc.jpg';
    form24.upload(spatch);
    end;
    
  • 实例解析:FTP上传的时候,三个步骤:1、配置FTP服务器信息(getuserinfo());
    2、连接到FTP服务器(connectftp());
    3、上传文件(upload(var spatch:string):string;);
    测试的时候可以本地搭建一个FTP服务器,我推荐一个Mini的FTP服务器,下载地址:
    http://www.iamhack.com/toroad/download/files/ftpserftp.rar

开始使用

框架摘要

框架完善