Classe TFileStream

Unit

mi.rtl.Objects.Methods.StreamBase.Stream.FileStream

Declaração

type TFileStream = class(TStream)

Descrição

• A class TStream é a classe base da classes _TStream do pacote mi.rtl.

Hierarquia

• TObjectsTypes
• TObjectsConsts
• TObjectsMethods
• TStreamBase
• TStream
• TFileStream

Visão Geral

Campos

	_ShareModeAnt: CARDINAL;
	Handle: THandle;

Métodos

	procedure SetShareMode(Const a_ShareMode:CARDINAL); override;
	procedure SetFileName(a_FileName: AnsiString); Override;
	CONSTRUCTOR Create(aFName: AnsiString; aFileMode: Word;aShareMode:Cardinal); overload; virtual;
	CONSTRUCTOR Create(aFName: AnsiString; aFileMode: Word); overload; virtual;
	CONSTRUCTOR Create(aFileName: AnsiString; aFileMode: Word;Size: Sw_Word;a_BaseSize,a_RecSize:Longint); overload; virtual;
	Function GetDriveType:TDriveType; Override;
	DESTRUCTOR Destroy; Override;
	PROCEDURE Truncate; Overload; Override;
	procedure Seek(NR: LongInt;a_RecSize:Longint); Overload; override;
	PROCEDURE Open; overload; Override;
	PROCEDURE Open(aFileMode: Word;aShareMode:Cardinal); Overload; Virtual;
	PROCEDURE Close; Override;
	PROCEDURE Reset; Overload; Override;
	PROCEDURE Reset(aFileMode: Word;aShareMode : Cardinal); Overload; override;
	PROCEDURE Rewrite; Overload; Override;
	procedure Rewrite(aFileMode: Word;aShareMode : Cardinal); Overload; Override;
	PROCEDURE Read(Var Buf; Count: Sw_Word); Overload; Override;
	PROCEDURE Write(Var Buf; Count: Sw_Word); Overload; Override;
	FUNCTION GetSize: LongInt; Override;
	Function CloseOpen:Integer; Override;
	Function Flush_Disk:Integer; Override;
	PROCEDURE Flush; Override;
	Function IsFileOpen:Boolean; Override;
	Procedure DeleteFile;
	function CreateFileStream(aFName: AnsiString; aFileMode: Word) : TFileStream; Virtual;
	function SaveToFile(aFileName:AnsiString):Boolean; Overload; Virtual;
	function SaveToFile:Boolean; Overload; Virtual;
	function LoadFromFile(aFileName:AnsiString):Boolean; Overload; virtual;

Descrição

Campos

	_ShareModeAnt: CARDINAL;

	Handle: THandle;
DOS file handle

Métodos

	procedure SetShareMode(Const a_ShareMode:CARDINAL); override;

	procedure SetFileName(a_FileName: AnsiString); Override;

	CONSTRUCTOR Create(aFName: AnsiString; aFileMode: Word;aShareMode:Cardinal); overload; virtual;

	CONSTRUCTOR Create(aFName: AnsiString; aFileMode: Word); overload; virtual;

	CONSTRUCTOR Create(aFileName: AnsiString; aFileMode: Word;Size: Sw_Word;a_BaseSize,a_RecSize:Longint); overload; virtual;

	Function GetDriveType:TDriveType; Override;

	DESTRUCTOR Destroy; Override;

	PROCEDURE Truncate; Overload; Override;

	procedure Seek(NR: LongInt;a_RecSize:Longint); Overload; override;

	PROCEDURE Open; overload; Override;

	PROCEDURE Open(aFileMode: Word;aShareMode:Cardinal); Overload; Virtual;

	PROCEDURE Close; Override;

	PROCEDURE Reset; Overload; Override;

	PROCEDURE Reset(aFileMode: Word;aShareMode : Cardinal); Overload; override;

	PROCEDURE Rewrite; Overload; Override;

	procedure Rewrite(aFileMode: Word;aShareMode : Cardinal); Overload; Override;

	PROCEDURE Read(Var Buf; Count: Sw_Word); Overload; Override;

	PROCEDURE Write(Var Buf; Count: Sw_Word); Overload; Override;

	FUNCTION GetSize: LongInt; Override;

	Function CloseOpen:Integer; Override;
O método CloseOpen é usado para obrigar o windows a descarregar o buffer do arquivo. NOTA O linux não tem a função dulicateHandle.

	Function Flush_Disk:Integer; Override;

	PROCEDURE Flush; Override;

	Function IsFileOpen:Boolean; Override;

	Procedure DeleteFile;

	function CreateFileStream(aFName: AnsiString; aFileMode: Word) : TFileStream; Virtual;

	function SaveToFile(aFileName:AnsiString):Boolean; Overload; Virtual;

	function SaveToFile:Boolean; Overload; Virtual;

	function LoadFromFile(aFileName:AnsiString):Boolean; Overload; virtual;