ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/DataAccess/DataAccess.pas
(Generate patch)

Comparing oup/current/DataAccess/DataAccess.pas (file contents):
Revision 109 by alloc, Wed Feb 21 03:12:33 2007 UTC vs.
Revision 227 by alloc, Tue Jun 19 22:06:10 2007 UTC

# Line 1 | Line 1
1   unit DataAccess;
2   interface
3  
4 < uses TypeDefs, Classes, StrUtils, SysUtils;
4 > uses TypeDefs, Classes, StrUtils, SysUtils, _MetaManager;
5  
6   type
7    TDataAccess = class
# Line 13 | Line 13 | type
13      FDataOS:        TDataOS;
14      FLevelNumber:   Integer;
15      FChangeRights:  TChangeRights;
16 +    FMeta:          TMetaManager;
17      procedure SetDataOS(DataOS: TDataOS);
18    public
19      property ConnectionID: Integer      read FConnectionID;
# Line 21 | Line 22 | type
22      property DataOS:       TDataOS      read FDataOS write SetDataOS;
23      property LevelNumber:  Integer      read FLevelNumber;
24      property ChangeRights: TChangeRights read FChangeRights;
25 +    property MetaData:     TMetaManager read FMeta;
26  
27      constructor Create(FileName: String; ConnectionID: Integer; var Msg: TStatusMessages); virtual; abstract;
28      procedure Close; virtual; abstract;
# Line 43 | Line 45 | type
45      procedure UpdateDatFilePart(FileID, Offset, Size: Integer; Src: TStream); overload; virtual; abstract;
46      procedure UpdateDatFilePart(FileID, Offset, Size: Integer; Src: Pointer); overload;
47  
48 +    function GetDatLinks(FileID: Integer): TDatLinkList; virtual; abstract;
49 +    function GetDatLink(FileID, DatOffset: Integer): TDatLink; virtual; abstract;
50      function GetRawList(FileID: Integer): TRawDataList; virtual; abstract;
51      function GetRawInfo(FileID, DatOffset: Integer): TRawDataInfo; virtual; abstract;
52  
# Line 58 | Line 62 | type
62  
63      function AppendRawFile(LocSep: Boolean; Src: TStream): Integer; overload; virtual;
64      function AppendRawFile(LocSep: Boolean; Src: TByteData): Integer; overload;
65 <    function AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer; overload;
65 > //    function AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer; overload;
66    published
67    end;
68  
# Line 271 | Line 275 | begin
275    data := TMemoryStream.Create;
276    data.Write(Src[0], Length(Src));
277    data.Seek(0, soFromBeginning);
278 <  AppendRawFile(LocSep, data);
278 >  Result := AppendRawFile(LocSep, data);
279    data.Free;
280   end;
281 <
281 > {
282   function TDataAccess.AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer;
283   var
284    data: TStream;
# Line 282 | Line 286 | begin
286    data := TMemoryStream.Create;
287    data.Write(Src^, Size);
288    data.Seek(0, soFromBeginning);
289 <  AppendRawFile(LocSep, data);
289 >  Result := AppendRawFile(LocSep, data);
290    data.Free;
291   end;
292 <
292 > }
293  
294  
295   procedure TDataAccess.SetDataOS(DataOS: TDataOS);

Diff Legend

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