multipart上传下载文件

multipart上传下载文件

插件二演示multipart传输文件。 

multipart/form-data是传输文件的国标，支持任何语言、前后端调用。

apiPost上传文件

delphi上传文件

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button2Click(Sender: TObject); //上传 begin   if OpenDialog1.Execute then   begin     var mul: TMultiPart;     mul.resource := 'multipart';     mul.filename := OpenDialog1.FileName;     var res: TRes := mul.UploadFile;     if res.Status = 500 then       ShowMessage('Upload fail: ' + res.Exception)     else       ShowMessage('Upload success');   end; end;

　　

apipost下载文件

 

delphi下载文件

?

1 2 3 4 5 6 7 8 9

procedure TForm1.Button4Click(Sender: TObject); //下载 begin   var mul: TMultiPart;   mul.resource := 'multipart';   mul.filename := '1.exe';   mul.filesaveto := 'e:\';   mul.DownloadFile; end;