ViewVC Help

View File | Revision Log | View Changeset | Root Listing

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

Comparing:
oup/rewrite/DataAccess/Access_OniArchive.pas (file contents), Revision 101 by alloc, Tue Feb 20 20:43:29 2007 UTC vs.
oup/current/DataAccess/Access_OniArchive.pas (file contents), Revision 109 by alloc, Wed Feb 21 03:12:33 2007 UTC

#	Line 42 | Line 42 | type
42		procedure LoadRawFilePart(FileID, DatOffset, Offset, Size: Integer; var Target: TStream); overload; override;
43		procedure UpdateRawFilePart(FileID, DatOffset, Offset, Size: Integer; Src: TStream); overload; override;
44
45	<	function AppendRawFile(LocSep: Boolean; Size: Integer; Src: TStream): Integer; overload; override;
45	>	function AppendRawFile(LocSep: Boolean; Src: TStream): Integer; overload; override;
46		published
47		end;
48
#	Line 183 | Line 183 | begin
183
184		Msg := SM_OK;
185		FBackend := DB_ONI;
186	+	FConnectionID := ConnectionID;
187		FChangeRights := [CR_EditDat, CR_EditRaw, CR_AppendRaw];
188		end;
189
#	Line 615 | Line 616 | begin
616		end;
617		end;
618
619	<	function TAccess_OniArchive.AppendRawFile(LocSep: Boolean; Size: Integer; Src: TStream): Integer;
619	>	function TAccess_OniArchive.AppendRawFile(LocSep: Boolean; Src: TStream): Integer;
620		begin
621		if not LocSep then
622		begin
#	Line 624 | Line 625 | begin
625		fmOpenReadWrite);
626		Result := Fraw_file.Size;
627		Fraw_file.Seek(0, soFromEnd);
628	<	Fraw_file.CopyFrom(Src, Size);
628	>	Fraw_file.CopyFrom(Src, Src.Size);
629		if UnloadWhenUnused then
630		begin
631		FRawOpened := False;
#	Line 640 | Line 641 | begin
641		fmOpenReadWrite);
642		Result := Fsep_file.Size;
643		Fsep_file.Seek(0, soFromEnd);
644	<	Fsep_file.CopyFrom(Src, Size);
644	>	Fsep_file.CopyFrom(Src, Src.Size);
645		if UnloadWhenUnused then
646		begin
647		FSepOpened := False;

Diff Legend

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