Difference between revisions of "THandleStreamEx"

Latest revision as of 03:57, 22 January 2025

@@ Line 23: / Line 23: @@
 |colspan="2"|&nbsp;
 |-
-| <code>constructor Create(AHandle:Integer);</code>
+| <code>constructor Create(AHandle:THandle);</code>
 | style="width: 50%;"|&nbsp;
 |-
 |colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
 |-
-| <code>FHandle:Integer;</code>
+| <code>FHandle:THandle;</code>
 | &nbsp;
 |-
@@ Line 53: / Line 53: @@
 | &nbsp;
 |-
-| <code>property Handle:Integer read FHandle;</code>
+| <code>property Handle:THandle read FHandle;</code>
 | &nbsp;
 |-
@@ Line 65: / Line 65: @@
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">constructor THandleStreamEx.Create(AHandle:Integer);</pre>
+<pre style="border: 0; padding-bottom:0px;">constructor THandleStreamEx.Create(AHandle:THandle);</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">

Note: A 64bit capable Handle Stream class

`constructor Create(AHandle:THandle);`
private
`FHandle:THandle;`
protected
`procedure SetSize(NewSize:LongInt); override;`
`procedure SetSizeEx(const NewSize:Int64); override;`
public
`function Read(var Buffer; Count:LongInt):LongInt; override;`
`function Write(const Buffer; Count:LongInt):LongInt; override;`
`function Seek(Offset:LongInt; Origin:Word):LongInt; override;`
`function SeekEx(const Offset:Int64; Origin:Word):Int64; override;`
`property Handle:THandle read FHandle;`