其他分享
首页 > 其他分享> > 纯Delphi 原生写的 上传到七牛的功能

纯Delphi 原生写的 上传到七牛的功能

作者:互联网

上传文件到七牛, 支持分片分段上传, 适用于Delphi XE, 10等新版本

分两个函数: uploadToQiniu 和 directUploadToQiniu

uploadToQiniu 这个函数使用分片, 分段的方式上传, 并有上传进度回调, 采用多线程同时进行, 该方法适用于上传较大文件。

directUploadToQiniu 该函数直接使用Form表单的形式上传, 没有上传进度回调, 适用于上传较小的文件。

上面两个方法已经使用于 好智学项目中, 被大量用户实际验证可行。

 

具体代码: https://github.com/Neugls/uploadtoqiniu/blob/master/qiniu.pas

 

使用方法:

var dlg: TOpenDialog;

begin
   
    dlg := TOpenDialog.create;
    try
       uploadToQiniu(dlg.filename, qiniuToken, 'file/20191107_zjj3ijad.zip',   procedure ( p:integer ) begin
         self.pbProgress.value = p
       end);
    finaly
        dlg.free;
    end;

  

 

如遇到使用问题, 请到github上发issue

 

标签:原生,dlg,Delphi,七牛,uploadToQiniu,directUploadToQiniu,上传
来源: https://www.cnblogs.com/neugls/p/11816280.html