修复类似哈白HBZCB-2，接收文件后，无法上报的问题。

Units/UtilMethods.pas

@@ -847,12 +847,14 @@ end;
 {Zip}
 procedure ZipFolder(AFileFolder, AFileName: string);
 var
+  sTempFile: string;
   vZip: TVCLZip;
 begin
+  sTempFile := GetTempFileName;
   vZip := TVCLZip.Create(nil);
   try
     vZip.FilesList.Clear;
-    vZip.ZipName := AFileName;
+    vZip.ZipName := sTempFile;
     vzip.RootDir := AFileFolder;
     vZip.OverwriteMode := Always;
     //vZip.AddDirEntriesOnRecurse:=True;
@@ -860,8 +862,11 @@ begin
     //vZip.RecreateDirs := True;
     vZip.FilesList.Add(AFileFolder + '\*.*');
     vZip.Zip;
+    CopyFileOrFolder(sTempFile, AFileName);
   finally
     vZip.Free;
+    if FileExists(sTempFile) then
+      DeleteFile(sTempFile);
   end;
 end;