Changeset 134

Timestamp:

Mar 28, 2007, 7:53:54 PM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current

Files:

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

oup/current/DataAccess/Access_OUP_ADB.pas

@@ -67 +67 @@
 
   FDatabase := TABSDatabase.Create(nil);
+  FDatabase.Exclusive := True;
+  FDatabase.MultiUser := False;
   FDatabase.DatabaseName := 'OLDBcon' + IntToStr(ConnectionID);
   FDatabase.DatabaseFileName := DBFilename;
   FDatabase.Open;
   FQuery := TABSQuery.Create(FDatabase);
+  FQuery.DisableControls;
   FQuery.DatabaseName := 'OLDBcon' + IntToStr(ConnectionID);
   FQuery.SQL.Text := 'SELECT [name],[value] FROM globals ORDER BY [name] ASC';

oup/current/Helper/LevelDB.pas

@@ -357 +357 @@
     end
     else
-      FilesHeader[i].DataAddr := 0;
+      FilesHeader[FileID].DataAddr := 0;
     if Length(fileinfo.Name) > 0 then
     begin
-      FilesHeader[i].NameAddr := Stream_Names.Size;
+      FilesHeader[FileID].NameAddr := Stream_Names.Size;
       temps := fileinfo.Extension + fileinfo.Name + Chr(0);
       Stream_Names.Write(temps[1], Length(temps));
     end
     else
-      FilesHeader[i].NameAddr := 0;
-    FilesHeader[i].FileSize := fileinfo.Size;
-    FilesHeader[i].FileType := fileinfo.FileType;
+      FilesHeader[FileID].NameAddr := 0;
+    FilesHeader[FileID].FileSize := fileinfo.Size;
+    FilesHeader[FileID].FileType := fileinfo.FileType;
 
     if ((FileID mod 10) = 0) and (FileID >= 100) then
@@ -449 +449 @@
 
 procedure TForm_LevelDB.CreateDatabase(Source, target: String);
+var
+  DataBase:  TABSDatabase;
 {
 var
@@ -510 +512 @@
 
   DataBase := TABSDatabase.Create(Self);
+}
+  DataBase.MaxConnections := 1;
+{
   DataBase.DatabaseName := 'OLDB';
   DataBase.DatabaseFileName := target;