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

Posted 2020-11-30 neugls

上传文件到七牛， 支持分片分段上传， 适用于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