multipart上传下载文件

multipart上传下载文件

插件二演示multipart传输文件。 

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

apiPost上传文件

delphi上传文件

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下载文件

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