ViewVC Help

View File | Revision Log | View Changeset | Root Listing

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

Comparing oup/current/DataAccess/DataAccess.pas (file contents):
Revision 109 by alloc, Wed Feb 21 03:12:33 2007 UTC vs.
Revision 193 by alloc, Sat May 26 14:24:55 2007 UTC

#	Line 43 | Line 43 | type
43		procedure UpdateDatFilePart(FileID, Offset, Size: Integer; Src: TStream); overload; virtual; abstract;
44		procedure UpdateDatFilePart(FileID, Offset, Size: Integer; Src: Pointer); overload;
45
46	+	function GetDatLinks(FileID: Integer): TDatLinkList; virtual; abstract;
47	+	function GetDatLink(FileID, DatOffset: Integer): TDatLink; virtual; abstract;
48		function GetRawList(FileID: Integer): TRawDataList; virtual; abstract;
49		function GetRawInfo(FileID, DatOffset: Integer): TRawDataInfo; virtual; abstract;
50
#	Line 58 | Line 60 | type
60
61		function AppendRawFile(LocSep: Boolean; Src: TStream): Integer; overload; virtual;
62		function AppendRawFile(LocSep: Boolean; Src: TByteData): Integer; overload;
63	<	function AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer; overload;
63	>	//    function AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer; overload;
64		published
65		end;
66
#	Line 271 | Line 273 | begin
273		data := TMemoryStream.Create;
274		data.Write(Src[0], Length(Src));
275		data.Seek(0, soFromBeginning);
276	<	AppendRawFile(LocSep, data);
276	>	Result := AppendRawFile(LocSep, data);
277		data.Free;
278		end;
279	<
279	>	{
280		function TDataAccess.AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer;
281		var
282		data: TStream;
#	Line 282 | Line 284 | begin
284		data := TMemoryStream.Create;
285		data.Write(Src^, Size);
286		data.Seek(0, soFromBeginning);
287	<	AppendRawFile(LocSep, data);
287	>	Result := AppendRawFile(LocSep, data);
288		data.Free;
289		end;
290	<
290	>	}
291
292
293		procedure TDataAccess.SetDataOS(DataOS: TDataOS);

Diff Legend

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