ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/_old_/Helper_LevelDB.pas

Comparing oup/current/Helper_LevelDB.pas (file contents):
Revision 85 by alloc, Sun Jan 14 14:23:22 2007 UTC vs.
Revision 86 by alloc, Sun Jan 14 20:19:08 2007 UTC

#	Line 78 | Line 78 | var
78		OniImage: TOniImage;
79		levelid:  LongWord;
80		timeformat: TFormatSettings;
81	+
82	+	conIndex: Integer;
83	+	connection: TOniData;
84		const
85		steps: Byte = 3;
86
#	Line 104 | Line 107 | begin
107		timeformat.LongTimeFormat := 'hh:nn:ss';
108		timeformat.TimeSeparator := ':';
109
110	<	if not CreateDataConnection(Source, ODB_ADB) then
110	>	if CreateDataConnection(Source, ODB_ADB) = nil then
111		begin
112		ShowMessage('Could not connect to .oldb-file');
113		Exit;
#	Line 207 | Line 210 | begin
210		if (UpperCase(fileinfo.Extension) = 'TXMP') and
211		((Data[$88] and $01) > 0) then
212		begin
213	<	OniImage.LoadFromTXMP(i);
213	>	OniImage.LoadFromTXMP(Connection, i);
214		OniImage.GetMipMappedImage(rawdata);
215		rawlist[j].raw_size := OniImage.GetImageDataSize(True);
216		Data[$90] := $08;
#	Line 309 | Line 312 | begin
312
313		converting := False;
314
315	<	CloseDataConnection;
315	>	CloseDataConnection(DataConnections[conIndex]);
316		end;
317
318
#	Line 344 | Line 347 | var
347		extlist:  TExtensionsMap;
348		fileinfo: TFileInfo;
349		timeformat: TFormatSettings;
350	+
351	+	conIndex: Integer;
352		const
353		steps: Byte = 4;
354
#	Line 361 | Line 366 | const
366		end;
367
368		begin
369	<	if not CreateDataConnection(Source, ODB_Dat) then
369	>	if CreateDataConnection(Source, ODB_Dat) = nil then
370		begin
371		ShowMessage('Could not connect to .dat-file');
372		Exit;
#	Line 563 | Line 568 | begin
568		database.Close;
569		database.Free;
570
571	<	CloseDataConnection;
571	>	CloseDataConnection(DataConnections[conIndex]);
572		end;
573
574

Diff Legend

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