delphi上传文件到服务器,Delphi 上传文件到七牛，纯原生

unit qiniu;

interface

type

TNwUploadToQiniuStatus = (uqsUploaded, uqsUploadFail, uqsFileNotExists, uqsHttpNoneOK);

TNwUpQiniuProgressCallback = reference to procedure(p: integer);

function uploadToQiniu( filename, token, key:string; progress:TNwUpQiniuProgressCallback ):TNwUploadToQiniuStatus;

function directUploadToQiniu( filename, token, key:string ):TNwUploadToQiniuStatus;

implementation

uses System.Net.HttpClient, System.Classes,System.Net.Mime, System.SysUtils,

system.Net.URLClient, Winapi.Windows, CommonFunction, System.Math, System.JSON,

System.netencoding, System.threading,SyncObjs;

function directUploadToQiniu( filename, token, key:string ):TNwUploadToQiniuStatus;

var

http: THttpClient;

data:TMultipartFormData;

response:IHTTPResponse;

content:string;

begin

if not FileExists(f