TidHttp上传文件，PHP接收文件

delphi版本 10.2

引用单元

uses
   IdHTTP, IdMultipartFormData,IdGlobalProtocols

delphi端上传代码

function UploadFile(FilePath,Url:String):string;
var
  Http:TidHttp;
  Resp:TStringStream;
  MutPartForm : TIdMultiPartFormDataStream;
begin
  Result:='';
  if FileExists(FilePath) then
    begin
      Http:=TidHttp.Create(nil);
      Resp:=TStringStream.Create;
      MutPartForm := TIdMultiPartFormDataStream.Create;
      try
        //MutPartForm.AddFormField('UserId', 0);       //如果有其他参数使用这个传递
        MutPartForm.AddFile('file', FilePath, GetMIMETypeFromFile(FilePath));
        Http.Post(Url, MutPartForm, Resp);
        Result:=Resp.DataString;
      finally
        Http.Free;
        Resp.Free;
        MutPartForm.Free;
      end;
    end;
end;

PHP端接收代码

*注意：服务器上存放文件的目录需要给予写的权限，否则会无法移动文件