瀏覽代碼

Fixed TStream.CopyFrom.

Martijn Laan 1 年之前
父節點
當前提交
388d4a2a72
共有 3 個文件被更改,包括 3 次插入2 次删除
  1. 1 1
      Components/UniPs
  2. 1 1
      ISHelp/isxclasses.pas
  3. 1 0
      whatsnew.htm

+ 1 - 1
Components/UniPs

@@ -1 +1 @@
-Subproject commit 2f8fa960b0939789dfeb2e7b14a8ab28e90fe26f
+Subproject commit c4edfd87f078d235192ee1860fcd3742e149cfc9

+ 1 - 1
ISHelp/isxclasses.pas

@@ -63,7 +63,7 @@ TStream = class(TObject)
   function Seek(Offset: Int64; Origin: Word): Int64;
   procedure ReadBuffer(var Buffer: AnyString; ByteCount: Longint);
   procedure WriteBuffer(const Buffer: AnyString; ByteCount: Longint);
-  function CopyFrom(Source: TStream; ByteCount: Int64): Int64;
+  function CopyFrom(Source: TStream; ByteCount: Int64; BufferSize: Integer): Int64;
   property Position: Longint; read write;
   property Size: Longint; read write;
 end;

+ 1 - 0
whatsnew.htm

@@ -89,6 +89,7 @@ For conditions of distribution and use, see <a href="files/is/license.txt">LICEN
     <li><tt>TInputDirWizardPage</tt>: Added new <tt>NewFolderName</tt> property to update the initial value passed to <tt>CreateInputDirPage</tt>.</li>
     <li>Documented support functions <tt>VarArrayGet</tt> and <tt>VarArraySet</tt> which were already available but not documented.</li>
     <li>Renamed the <tt>FileCopy</tt> support function to <tt>CopyFile</tt>. The old name is still supported, but it is recommended to update your scripts to the new name and the compiler will issue a warning if you don't.</li>
+    <li>Pascal Scripting change: Fixed support function <tt>TStream.CopyFrom</tt> by adding a <tt>BufferSize</tt> parameter which was required but missing. Using <tt>$100000</tt> as the value is recommended.</li>
   </ul>
   </li>
   <li>ISPP change: Added support functions <tt>GetSHA256OfFile</tt>, <tt>GetSHA256OfString</tt>, and <tt>GetSHA256OfUnicodeString</tt>.</li>