--- oup/current/Helper/LevelDB.pas	2007/04/03 02:59:20	167
+++ oup/current/Helper/LevelDB.pas	2007/11/26 11:02:28	248
@@ -238,7 +238,7 @@ begin
   for i := 0 to High(DatHeader.OSIdent) do
     case Connection.DataOS of
       DOS_WIN: DatHeader.OSIdent[i] := HeaderOSIdentWin[i];
-      DOS_MAC: DatHeader.OSIdent[i] := HeaderOSIdentMac[i];
+      DOS_MAC, DOS_WINDEMO: DatHeader.OSIdent[i] := HeaderOSIdentMac[i];
       DOS_MACBETA: DatHeader.OSIdent[i] := HeaderOSIdentMacBeta[i];
     end;
   for i := 0 to High(DatHeader.GlobalIdent) do
@@ -279,7 +279,11 @@ begin
     begin
       case Connection.DataOS of
         DOS_WIN:     ExtensionsHeader[i].Ident := FileTypes[j].IdentWin;
-        DOS_WINDEMO: ExtensionsHeader[i].Ident := FileTypes[j].IdentMac;
+        DOS_WINDEMO:
+            if FileTypes[j].Extension = 'SNDD' then
+              ExtensionsHeader[i].Ident := FileTypes[j].IdentWin
+            else
+              ExtensionsHeader[i].Ident := FileTypes[j].IdentMac;
         DOS_MAC:     ExtensionsHeader[i].Ident := FileTypes[j].IdentMac;
         DOS_MACBETA: ExtensionsHeader[i].Ident := FileTypes[j].IdentMac;
       end;
@@ -491,7 +495,7 @@ const
     begin
       DeleteFile(target);
     end;
-end;
+  end;
 
 
 
@@ -589,13 +593,15 @@ begin
   Query.SQL.Text := 'CREATE INDEX idtargetid ON linkmap (target_id);';
   Query.ExecSQL;
   Query.SQL.Text :=
-    'CREATE TABLE rawmap  ( id AUTOINC PRIMARY KEY, src_id INTEGER, ' +
-    'src_link_offset INTEGER, sep BOOLEAN, size INTEGER, ' +
+    'CREATE TABLE rawmap  ( id AUTOINC PRIMARY KEY, name STRING(32), src_id INTEGER, ' +
+    'src_link_offset INTEGER, sep BOOLEAN, type STRING(8), size INTEGER, ' +
     'data BLOB BlobCompressionMode 9 BlobBlockSize 1024 BlobCompressionAlgorithm ZLib);';
   //    Query.SQL.Text:='CREATE TABLE rawmap  ( id AUTOINC PRIMARY KEY, src_id INTEGER, src_link_offset INTEGER, size INTEGER, data BLOB BlobCompressionAlgorithm None );';
   Query.ExecSQL;
   Query.SQL.Text := 'CREATE INDEX idsrcid ON rawmap (src_id);';
   Query.ExecSQL;
+  Query.SQL.Text := 'CREATE INDEX idtype ON rawmap (type);';
+  Query.ExecSQL;
   Query.SQL.Text :=
     'CREATE TABLE datfiles  ( id INTEGER PRIMARY KEY, extension CHAR(4), ' +
     'name STRING(128), contenttype INTEGER, size INTEGER, ' +
@@ -632,8 +638,6 @@ begin
   DoStep('Writing .dat-fileslist');
   Application.ProcessMessages;
 
-  TAccess_OniArchive(Connection).UnloadWhenUnused := False;
-
   FileTime := Time;
   Database.StartTransaction;
   for FileID := 0 to Connection.GetFileCount - 1 do
@@ -662,9 +666,11 @@ begin
             Connection.LoadRawFile(FileID, RawLinks[i].SrcOffset, tempdata);
             mimecoder      := TStringFormat_MIME64.Create;
             Query.SQL.Text :=
-              'INSERT INTO rawmap (src_id,src_link_offset,sep,size,data) VALUES (' +
+              'INSERT INTO rawmap (name,src_id,src_link_offset,sep,type,size,data) VALUES (' +
+              '"' + RawLinks[i].Name + '", ' +
               IntToStr(FileID) + ', ' + IntToStr(RawLinks[i].SrcOffset) + ',' +
               BoolToStr(RawLinks[i].LocSep) + ', ' +
+              '"' + RawLinks[i].RawType + '", ' +
               IntToStr(RawLinks[i].RawSize) + ', ' +
               'MimeToBin("' + MimeCoder.StrTo(@tempdata[0], RawLinks[i].RawSize) + '") );';
             Query.ExecSQL;
@@ -673,9 +679,12 @@ begin
           else
           begin
             Query.SQL.Text :=
-              'INSERT INTO rawmap (src_id,src_link_offset,sep,size) VALUES (' +
+              'INSERT INTO rawmap (name,src_id,src_link_offset,sep,type,size) VALUES (' +
+              '"' + RawLinks[i].Name + '", ' +
               IntToStr(FileID) + ', ' + IntToStr(RawLinks[i].SrcOffset) + ', ' +
-              BoolToStr(RawLinks[i].LocSep) + ', 0);';
+              BoolToStr(RawLinks[i].LocSep) + ', ' +
+              '"' + RawLinks[i].RawType + '", ' +
+              '0);';
             Query.ExecSQL;
           end;
         end;
@@ -731,7 +740,6 @@ begin
   btn_abortok.Default := True;
 
   converting := False;
-  TAccess_OniArchive(Connection).UnloadWhenUnused := True;
 
   Query.Close;
   Query.Free;