delphi 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端接收代码

<?php

//注意PHP代码仅实现功能演示，没有安全过滤，不要对外开放。

  $fileInfo = $_FILES["file"];

  $fileInfoName = $fileInfo["name"];//文件名

  $fileInfoPath = $fileInfo["tmp_name"];//文件当前路径文件夹

  move_uploaded_file($fileInfoPath,"./MyFiles/".$fileInfoName);//将上传的文件移动到指定目录

?>

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

————————————————

原文链接：https://blog.csdn.net/yoie01/article/details/105529594