--- oup/rewrite/DataAccess/DataAccess.pas 2007/02/21 00:29:27 105 +++ oup/current/DataAccess/DataAccess.pas 2007/05/26 14:24:55 193 @@ -43,6 +43,8 @@ type procedure UpdateDatFilePart(FileID, Offset, Size: Integer; Src: TStream); overload; virtual; abstract; procedure UpdateDatFilePart(FileID, Offset, Size: Integer; Src: Pointer); overload; + function GetDatLinks(FileID: Integer): TDatLinkList; virtual; abstract; + function GetDatLink(FileID, DatOffset: Integer): TDatLink; virtual; abstract; function GetRawList(FileID: Integer): TRawDataList; virtual; abstract; function GetRawInfo(FileID, DatOffset: Integer): TRawDataInfo; virtual; abstract; @@ -58,7 +60,7 @@ type function AppendRawFile(LocSep: Boolean; Src: TStream): Integer; overload; virtual; function AppendRawFile(LocSep: Boolean; Src: TByteData): Integer; overload; - function AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer; overload; +// function AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer; overload; published end; @@ -271,10 +273,10 @@ begin data := TMemoryStream.Create; data.Write(Src[0], Length(Src)); data.Seek(0, soFromBeginning); - AppendRawFile(LocSep, data); + Result := AppendRawFile(LocSep, data); data.Free; end; - +{ function TDataAccess.AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer; var data: TStream; @@ -282,10 +284,10 @@ begin data := TMemoryStream.Create; data.Write(Src^, Size); data.Seek(0, soFromBeginning); - AppendRawFile(LocSep, data); + Result := AppendRawFile(LocSep, data); data.Free; end; - +} procedure TDataAccess.SetDataOS(DataOS: TDataOS);