クロスソケットマルチパート/フォームデータ

クロスソケットマルチパート/フォームデータ

Net.CrossHttpParamsを使用しています。

VaRの
            部品：THttpMultiPartFormData：= 
              THttpMultiPartFormData（request.Body）。
          VaRの
            MS：TMemoryStream：= TMemoryStream.Create。
          VARパス：文字列：= UpPath。
          してみてください
            ForceDirectories（パス）; //上传路径
            VAR FILENUM：整数：= StrToInt（ParamValue（request.RawPathAndParams、
              'FILENUM'））; 
            VARのために私：整数：= 1 FILENUMには何
            始まり
              ms.Size：.Value.Size = parts.Fields [+ i.ToString 'ファイル']を。
              ms.CopyFrom（parts.Fields [ 'ファイル' + i.ToString] .Valueの、0）;
              VaRのFNAME：列：=パス+ ParamValue（request.RawPathAndParams、 'ファイル名' + i.ToString）。
              ms.SaveToFile（FNAME）。//保存上传的文件
              ms.Clear; 
            終わり; 
          最後に
            ms.Free; 
          終わり;