ViewVC Help

View File | Revision Log | View Changeset | Root Listing

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

Comparing oup/current/DataAccess/Access_OUP_ADB.pas (file contents):
Revision 112 by alloc, Thu Feb 22 00:37:39 2007 UTC vs.
Revision 135 by alloc, Wed Mar 28 17:57:12 2007 UTC

#	Line 18 | Line 18 | type
18		procedure UpdateListCache;
19
20		function GetLinksToFile(FileID: Integer): TLinks;
21	–	function GetLinksFromFile(FileID: Integer): TLinks;
21
22		function GetFileInfo(FileID: Integer): TFileInfo; override;
23		function GetFilesList(Ext: String; Pattern: String;
#	Line 31 | Line 30 | type
30		procedure LoadDatFilePart(FileID, Offset, Size: Integer; var Target: TStream); overload; override;
31		procedure UpdateDatFilePart(FileID, Offset, Size: Integer; Src: TStream); overload; override;
32
33	+	function GetDatLinks(FileID: Integer): TDatLinkList; override;
34	+	function GetDatLink(FileID, DatOffset: Integer): TDatLink; override;
35		function GetRawList(FileID: Integer): TRawDataList; override;
36		function GetRawInfo(FileID, DatOffset: Integer): TRawDataInfo; override;
37
#	Line 45 | Line 46 | type
46		implementation
47
48		uses
49	<	SysUtils, Data, Functions, ABSDecUtil, DB;
49	>	SysUtils, Data, Functions, ABSDecUtil, DB, DatLinks;
50
51
52		(*
#	Line 55 | Line 56 | uses
56
57
58		constructor TAccess_OUP_ADB.Create(DBFilename: String; ConnectionID: Integer; var Msg: TStatusMessages);
58	–	var
59	–	i: Integer;
59		begin
60		Msg := SM_UnknownError;
61		if not FileExists(DBFilename) then
#	Line 67 | Line 66 | begin
66		FFileName := DBFilename;
67
68		FDatabase := TABSDatabase.Create(nil);
69	+	FDatabase.Exclusive := True;
70	+	FDatabase.MultiUser := False;
71		FDatabase.DatabaseName := 'OLDBcon' + IntToStr(ConnectionID);
72		FDatabase.DatabaseFileName := DBFilename;
73		FDatabase.Open;
74		FQuery := TABSQuery.Create(FDatabase);
75	+	FQuery.DisableControls;
76	+	FQuery.RequestLive := False;
77		FQuery.DatabaseName := 'OLDBcon' + IntToStr(ConnectionID);
78		FQuery.SQL.Text := 'SELECT [name],[value] FROM globals ORDER BY [name] ASC';
79		FQuery.Open;
#	Line 141 | Line 144 | begin
144		Fdat_files[i].Name := FQuery.FieldByName('name').AsString;
145		Fdat_files[i].Extension := FQuery.FieldByName('extension').AsString;
146		Fdat_files[i].Size := FQuery.FieldByName('size').AsInteger;
147	<	Fdat_files[i].FileType := HexToLong(FQuery.FieldByName('contenttype').AsString);
147	>	Fdat_files[i].FileType := StrToInt('$'+FQuery.FieldByName('contenttype').AsString);
148		Fdat_files[i].DatAddr := 0;
149		Inc(i);
150		FQuery.Next;
#	Line 193 | Line 196 | begin
196		FQuery.Close;
197		end;
198
196	–	function TAccess_OUP_ADB.GetLinksFromFile(FileID: Integer): TLinks;
197	–	var
198	–	i: Integer;
199	–	begin
200	–	SetLength(Result.ByName, 0);
201	–	FQuery.SQL.Text := 'SELECT src_link_offset, target_id FROM linkmap WHERE src_id = ' + IntToStr(FileID) + ' ORDER BY target_id ASC;';
202	–	FQuery.Open;
203	–	SetLength(Result.ByID, FQuery.RecordCount);
204	–	if FQuery.RecordCount > 0 then
205	–	begin
206	–	i := 0;
207	–	repeat
208	–	Result.ByID[i].SrcOffset := FQuery.FieldByName('src_link_offset').AsInteger;
209	–	Result.ByID[i].Destination := FQuery.FieldByName('target_id').AsInteger;
210	–	Inc(i);
211	–	FQuery.Next;
212	–	until FQuery.EOF;
213	–	end;
214	–	FQuery.Close;
215	–	end;
216	–
199
200
201		function TAccess_OUP_ADB.GetFileInfo(fileid: Integer): TFileInfo;
#	Line 293 | Line 275 | begin
275		end;
276		end;
277		end;
278	<	Result := TStringList.Create;
278	>	if not Assigned(Result) then
279	>	Result := TStringList.Create;
280		if list.Count > 0 then
281		begin
282		fields := TStringList.Create;
#	Line 327 | Line 310 | function TAccess_OUP_ADB.GetExtensionsLi
310		var
311		i: Integer;
312		begin
313	<	Result := TStringList.Create;
313	>	if not Assigned(Result) then
314	>	Result := TStringList.Create;
315	>	if Result is TStringList then
316	>	TStringList(Result).Sorted := True;
317		for i := 0 to Length(Fdat_extensionsmap) - 1 do
318		begin
319		with Fdat_extensionsmap[i] do
#	Line 440 | Line 426 | begin
426		end;
427		end;
428
429	+
430	+
431	+	function TAccess_OUP_ADB.GetDatLink(FileID, DatOffset: Integer): TDatLink;
432	+	begin
433	+	Result := DatLinksManager.GetDatLink(FConnectionID, FileID, DatOffset);
434	+	FQuery.SQL.Text := 'SELECT target_id FROM linkmap WHERE src_id = ' + IntToStr(FileID) + ' and src_link_offset = ' + IntToStr(DatOffset) + ';';
435	+	FQuery.Open;
436	+	if FQuery.RecordCount > 0 then
437	+	Result.DestID := FQuery.FieldByName('target_id').AsInteger;
438	+	FQuery.Close;
439	+	end;
440	+
441	+
442	+	function TAccess_OUP_ADB.GetDatLinks(FileID: Integer): TDatLinkList;
443	+	var
444	+	i: Integer;
445	+	SrcOffset, DestID: Integer;
446	+	begin
447	+	Result := DatLinksManager.GetDatLinks(FConnectionID, FileID);
448	+	if Length(Result) > 0 then
449	+	begin
450	+	FQuery.SQL.Text := 'SELECT src_link_offset, target_id FROM linkmap WHERE src_id = ' + IntToStr(FileID) + ' ORDER BY src_link_offset ASC;';
451	+	FQuery.Open;
452	+	if FQuery.RecordCount > 0 then
453	+	begin
454	+	repeat
455	+	SrcOffset := FQuery.FieldByName('src_link_offset').AsInteger;
456	+	DestID := FQuery.FieldByName('target_id').AsInteger;
457	+	for i := 0 to High(Result) do
458	+	if Result[i].SrcOffset = SrcOffset then
459	+	Break;
460	+	if i < Length(Result) then
461	+	Result[i].DestID := DestID
462	+	else
463	+	Result[i].DestID := -1;
464	+	FQuery.Next;
465	+	until FQuery.EOF;
466	+	end;
467	+	FQuery.Close;
468	+	end;
469	+	end;
470	+
471
472		function TAccess_OUP_ADB.GetRawList(FileID: Integer): TRawDataList;
473		var

Diff Legend

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