压缩包带回车换行符导致MD5码改变。

DataModules/PHPWebDm.pas

@@ -297,12 +297,12 @@ begin
       IdDataStream.AddFormField('CheckerMemo', ReplaceCharsForJson(ACheckerMemo));
     end;
 
+    IdDataStream.AddFile('upfile', AFile, 'text/plain');
     IdDataStream.AddFormField('upfile', AFile);
-//    IdDataStream.AddFormField('submit', 'submit');
     IdDataStream.AddFormField('MD5_JL', AMD5_JL);
     sZipMD5 := MD5_File(AFile);
     IdDataStream.AddFormField('MD5_Zip', sZipMD5);
-    IdDataStream.AddFile('upfile', AFile, 'text/plain');
+
     IdDataStream.Position := 0;
     try
       sResult := IdHTTP.Post(sURL, IdDataStream);
@@ -601,11 +601,12 @@ begin
   vMPFDS := TIdMultiPartFormDataStream.Create;
   try
     sURL := Format('%stender/attachment/%d/%d/upload', [FMeasureURL, AWebID, AUperID]);
+    vMPFDS.AddFile('upitem', AFile, 'text/plain');
     vMPFDS.AddFormField('itemid', IntToStr(ABillID));
     vMPFDS.AddFormField('Category', ACategory);
     vMPFDS.AddFormField('Memo', ReplaceCharsForJson(AMemo));
     vMPFDS.AddFormField('PhaseName', APhaseName);
-    vMPFDS.AddFile('upitem', AFile, 'text/plain');
+
     vMPFDS.Position := 0;
     try
       sResult := IdHTTP.Post(sURL, vMPFDS);