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 229 by alloc, Wed Jun 20 10:57:51 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;
27 >    constructor Create(FileName: String; ConnectionID: Integer; var Msg: TStatusMessages); virtual;
28      procedure Close; virtual; abstract;
29  
30      function ExtractFileIDOfName(Name: String): Integer; virtual;
# 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 71 | Line 75 | implementation
75   Implementation of TDataAccess
76   *)
77  
78 + constructor TDataAccess.Create(FileName: String; ConnectionID: Integer;
79 +  var Msg: TStatusMessages);
80 + begin
81 +  FMeta := TMetaManager.Create(FConnectionID, Self);
82 + end;
83 +
84 +
85 +
86   function TDataAccess.ExtractFileIDOfName(Name: String): Integer;
87   begin
88    if Name[5] = '-' then
# Line 271 | Line 283 | begin
283    data := TMemoryStream.Create;
284    data.Write(Src[0], Length(Src));
285    data.Seek(0, soFromBeginning);
286 <  AppendRawFile(LocSep, data);
286 >  Result := AppendRawFile(LocSep, data);
287    data.Free;
288   end;
289 <
289 > {
290   function TDataAccess.AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer;
291   var
292    data: TStream;
# Line 282 | Line 294 | begin
294    data := TMemoryStream.Create;
295    data.Write(Src^, Size);
296    data.Seek(0, soFromBeginning);
297 <  AppendRawFile(LocSep, data);
297 >  Result := AppendRawFile(LocSep, data);
298    data.Free;
299   end;
300 <
300 > }
301  
302  
303   procedure TDataAccess.SetDataOS(DataOS: TDataOS);

Diff Legend

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