ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/DataAccess/DataAccess.pas

Comparing oup/rewrite/DataAccess/DataAccess.pas (file contents):
Revision 93 by alloc, Thu Jan 18 17:15:59 2007 UTC vs.
Revision 97 by alloc, Mon Jan 22 23:05:45 2007 UTC

#	Line 12 | Line 12 | type
12		FConnectionID:  Integer;
13		FFileName:      String;
14		FBackend:       TDataBackend;
15	+	FDataOS:        TDataOS;
16		FLevelNumber:   Integer;
17		FChangeRights:  TChangeRights;
18	+	procedure SetDataOS(DataOS: TDataOS);
19		protected
20		public
21		property ConnectionID: Integer      read FConnectionID;
22	<	property FileName:    String        read FFileName;
23	<	property Backend:     TDataBackend  read FBackend;
24	<	property LevelNumber: Integer       read FLevelNumber;
22	>	property FileName:     String       read FFileName;
23	>	property Backend:      TDataBackend read FBackend;
24	>	property DataOS:       TDataOS      read FDataOS write SetDataOS;
25	>	property LevelNumber:  Integer      read FLevelNumber;
26
27		constructor Create(FileName: String; ConnectionID: Integer; var Msg: TStatusMessages); virtual; abstract;
28		procedure Close; virtual; abstract;
#	Line 33 | Line 36 | type
36		function GetExtensionsList(ExtListFormat: TExtensionFormat): TStrings; virtual; abstract;
37
38		procedure LoadDatFile(FileID: Integer; var Target: TStream); overload; virtual; abstract;
39	<	procedure LoadDatFile(FileID: Integer; var Target: TByteArray); overload; virtual; abstract;
39	>	procedure LoadDatFile(FileID: Integer; var Target: TByteData); overload; virtual; abstract;
40		procedure UpdateDatFile(FileID: Integer; Src: TStream); overload; virtual; abstract;
41	<	procedure UpdateDatFile(FileID: Integer; Src: TByteArray); overload; virtual; abstract;
41	>	procedure UpdateDatFile(FileID: Integer; Src: TByteData); overload; virtual; abstract;
42		procedure LoadDatFilePart(FileID, Offset, Size: Integer; var Target: TStream); overload; virtual; abstract;
43	<	procedure LoadDatFilePart(FileID, Offset, Size: Integer; var Target: TByteArray); overload; virtual; abstract;
43	>	procedure LoadDatFilePart(FileID, Offset, Size: Integer; var Target: TByteData); overload; virtual; abstract;
44		procedure LoadDatFilePart(FileID, Offset, Size: Integer; Target: Pointer); overload; virtual; abstract;
45		procedure UpdateDatFilePart(FileID, Offset, Size: Integer; Src: TStream); overload; virtual; abstract;
46	<	procedure UpdateDatFilePart(FileID, Offset, Size: Integer; Src: TByteArray); overload; virtual; abstract;
46	>	procedure UpdateDatFilePart(FileID, Offset, Size: Integer; Src: TByteData); overload; virtual; abstract;
47		procedure UpdateDatFilePart(FileID, Offset, Size: Integer; Src: Pointer); overload; virtual; abstract;
48
49		function GetRawList(FileID: Integer): TRawDataList; virtual; abstract;
50		function GetRawInfo(FileID, DatOffset: Integer): TRawDataInfo;
51
52		procedure LoadRawFile(FileID, DatOffset: Integer; var Target: TStream); overload; virtual; abstract;
53	<	procedure LoadRawFile(FileID, DatOffset: Integer; var Target: TByteArray); overload; virtual; abstract;
53	>	procedure LoadRawFile(FileID, DatOffset: Integer; var Target: TByteData); overload; virtual; abstract;
54		procedure UpdateRawFile(FileID, DatOffset, Size: Integer; Src: TStream); overload; virtual; abstract;
55	<	procedure UpdateRawFile(FileID, DatOffset, Size: Integer; Src: TByteArray); overload; virtual; abstract;
55	>	procedure UpdateRawFile(FileID, DatOffset, Size: Integer; Src: TByteData); overload; virtual; abstract;
56		procedure LoadRawFilePart(FileID, DatOffset, Offset, Size: Integer; var Target: TStream); overload; virtual; abstract;
57	<	procedure LoadRawFilePart(FileID, DatOffset, Offset, Size: Integer; var Target: TByteArray); overload; virtual; abstract;
57	>	procedure LoadRawFilePart(FileID, DatOffset, Offset, Size: Integer; var Target: TByteData); overload; virtual; abstract;
58		procedure LoadRawFilePart(FileID, DatOffset, Offset, Size: Integer; Target: Pointer); overload; virtual; abstract;
59		procedure UpdateRawFilePart(FileID, DatOffset, Offset, Size: Integer; Src: TStream); overload; virtual; abstract;
60	<	procedure UpdateRawFilePart(FileID, DatOffset, Offset, Size: Integer; Src: TByteArray); overload; virtual; abstract;
60	>	procedure UpdateRawFilePart(FileID, DatOffset, Offset, Size: Integer; Src: TByteData); overload; virtual; abstract;
61		procedure UpdateRawFilePart(FileID, DatOffset, Offset, Size: Integer; Src: Pointer); overload; virtual; abstract;
62
63		function AppendRawFile(LocSep: Boolean; Size: Integer; Src: TStream): Integer; overload; virtual; abstract;
64	<	function AppendRawFile(LocSep: Boolean; Size: Integer; Src: TByteArray): Integer; overload; virtual; abstract;
64	>	function AppendRawFile(LocSep: Boolean; Size: Integer; Src: TByteData): Integer; overload; virtual; abstract;
65		function AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer; overload; virtual; abstract;
66		published
67		end;
68
69
70
68	–
69	–
70	–	{
71	–	var
72	–	DataConnections: array of TOniData;
73	–
74	–	function CreateDataConnection(filename: String; backend: Integer): TOniData;
75	–	function ConnectionExists(filename: String): TOniData;
76	–	procedure CloseDataConnection(connection: TOniData);
77	–	function GetEmptyFileInfo: TFileInfo;
78	–	}
79	–
80	–
71		implementation
72
73
#	Line 157 | Line 147 | begin
147		end;
148
149
150	+	procedure TDataAccess.SetDataOS(DataOS: TDataOS);
151	+	begin
152	+	raise ENotImplemented.Create('TDataAccess.SetDataOS: TBD!');
153	+	end;
154
155		end.

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)