Changeset 173 for oup

Timestamp:

May 2, 2007, 3:19:40 PM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current

Files:

• DataAccess/Access_OUP_ADB.pas (modified) (1 diff)
• DataAccess/Access_OniArchive.pas (modified) (3 diffs)
• Global/RawList.pas (modified) (1 diff)
• Helper/LevelDB.pas (modified) (3 diffs)
• _exe/OniUnPacker.exe (modified) ( previous)

oup/current/DataAccess/Access_OUP_ADB.pas

@@ -91 +91 @@
     if FQuery.FieldByName('name').AsString = 'lvl' then
       FLevelNumber := StrToInt(FQuery.FieldByName('value').AsString);
-    if FQuery.FieldByName('name').AsString = 'DataOS' then
+    if FQuery.FieldByName('name').AsString = 'os' then
     begin
       if FQuery.FieldByName('value').AsString = 'WIN' then

oup/current/DataAccess/Access_OniArchive.pas

@@ -647 +647 @@
 
 function TAccess_OniArchive.AppendRawFile(LocSep: Boolean; Src: TStream): Integer;
+const
+  EmptyBytes: Array[0..31] of Byte = (
+      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 );
 begin
   if not LocSep then
@@ -653 +656 @@
       Fraw_file := TFileStream.Create(AnsiReplaceStr(FFileName, '.dat', '.raw'),
         fmOpenReadWrite);
+    if (Fraw_file.Size mod 32) > 0 then
+      Fraw_file.Write(EmptyBytes[0], 32 - (Fraw_file.Size mod 32));
     Result := Fraw_file.Size;
     Fraw_file.Seek(0, soFromEnd);
     Fraw_file.CopyFrom(Src, Src.Size);
+    if (Fraw_file.Size mod 32) > 0 then
+      Fraw_file.Write(EmptyBytes[0], 32 - (Fraw_file.Size mod 32));
     if UnloadWhenUnused then
     begin
@@ -669 +676 @@
       Fsep_file := TFileStream.Create(AnsiReplaceStr(FFileName, '.dat', '.sep'),
         fmOpenReadWrite);
+    if (Fsep_file.Size mod 32) > 0 then
+      Fsep_file.Write(EmptyBytes[0], 32 - (Fsep_file.Size mod 32));
     Result := Fsep_file.Size;
     Fsep_file.Seek(0, soFromEnd);
     Fsep_file.CopyFrom(Src, Src.Size);
+    if (Fsep_file.Size mod 32) > 0 then
+      Fsep_file.Write(EmptyBytes[0], 32 - (Fsep_file.Size mod 32));
     if UnloadWhenUnused then
     begin

oup/current/Global/RawList.pas

@@ -117 +117 @@
 begin
   SetLength(Result, 1);
-  if ConManager.Connection[ConnectionID].DataOS = DOS_MAC then
+  if ConManager.Connection[ConnectionID].DataOS in [DOS_MACBETA, DOS_MAC] then
   begin
     ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $10, 4, @datasize);

oup/current/Helper/LevelDB.pas

@@ -239 +239 @@
     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;
@@ -280 +280 @@
       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;
@@ -492 +496 @@
       DeleteFile(target);
     end;
-end;
+  end;