|
@@ -930,7 +930,7 @@ type
|
|
|
procedure WriteNotImplemented;
|
|
|
public
|
|
|
function Read(var Buffer; Count: Longint): Longint; virtual; overload;
|
|
|
- function Write(const Buffer; Count: Longint): Longint; virtual;
|
|
|
+ function Write(const Buffer; Count: Longint): Longint; virtual; overload;
|
|
|
function Seek(Offset: Longint; Origin: Word): Longint; virtual; overload;
|
|
|
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; virtual; overload;
|
|
|
procedure ReadBuffer(var Buffer; Count: Longint);
|
|
@@ -966,8 +966,8 @@ type
|
|
|
function GetIStream: IStream;
|
|
|
public
|
|
|
constructor Create(const Stream: IStream);
|
|
|
- function Read(var Buffer; Count: Longint): Longint; override; overload;
|
|
|
- function Write(const Buffer; Count: Longint): Longint; override; overload;
|
|
|
+ function Read(var Buffer; Count: Longint): Longint; override;
|
|
|
+ function Write(const Buffer; Count: Longint): Longint; override;
|
|
|
function Seek(const Offset: int64; Origin: TSeekOrigin): int64; override;
|
|
|
procedure Check(err:integer); virtual;
|
|
|
end;
|
|
@@ -1000,8 +1000,8 @@ type
|
|
|
procedure SetSize(const NewSize: Int64); override;
|
|
|
public
|
|
|
constructor Create(AHandle: THandle);
|
|
|
- function Read(var Buffer; Count: Longint): Longint; override; overload;
|
|
|
- function Write(const Buffer; Count: Longint): Longint; override; overload;
|
|
|
+ function Read(var Buffer; Count: Longint): Longint; override;
|
|
|
+ function Write(const Buffer; Count: Longint): Longint; override;
|
|
|
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; override;
|
|
|
property Handle: THandle read FHandle;
|
|
|
end;
|
|
@@ -1029,7 +1029,7 @@ type
|
|
|
function GetPosition: Int64; Override;
|
|
|
procedure SetPointer(Ptr: Pointer; ASize: PtrInt);
|
|
|
public
|
|
|
- function Read(var Buffer; Count: LongInt): LongInt; override; overload;
|
|
|
+ function Read(var Buffer; Count: LongInt): LongInt; override;
|
|
|
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; override;
|
|
|
procedure SaveToStream(Stream: TStream);
|
|
|
procedure SaveToFile(const FileName: string);
|
|
@@ -1051,7 +1051,7 @@ type
|
|
|
procedure LoadFromStream(Stream: TStream);
|
|
|
procedure LoadFromFile(const FileName: string);
|
|
|
procedure SetSize({$ifdef CPU64}const NewSize: Int64{$else}NewSize: LongInt{$endif}); override;
|
|
|
- function Write(const Buffer; Count: LongInt): LongInt; override; overload;
|
|
|
+ function Write(const Buffer; Count: LongInt): LongInt; override;
|
|
|
end;
|
|
|
|
|
|
{ TBytesStream }
|