Changeset 134 for oup/current


Ignore:
Timestamp:
Mar 28, 2007, 7:53:54 PM (18 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • oup/current/DataAccess/Access_OUP_ADB.pas

    r119 r134  
    6767
    6868  FDatabase := TABSDatabase.Create(nil);
     69  FDatabase.Exclusive := True;
     70  FDatabase.MultiUser := False;
    6971  FDatabase.DatabaseName := 'OLDBcon' + IntToStr(ConnectionID);
    7072  FDatabase.DatabaseFileName := DBFilename;
    7173  FDatabase.Open;
    7274  FQuery := TABSQuery.Create(FDatabase);
     75  FQuery.DisableControls;
    7376  FQuery.DatabaseName := 'OLDBcon' + IntToStr(ConnectionID);
    7477  FQuery.SQL.Text := 'SELECT [name],[value] FROM globals ORDER BY [name] ASC';
  • oup/current/Helper/LevelDB.pas

    r133 r134  
    357357    end
    358358    else
    359       FilesHeader[i].DataAddr := 0;
     359      FilesHeader[FileID].DataAddr := 0;
    360360    if Length(fileinfo.Name) > 0 then
    361361    begin
    362       FilesHeader[i].NameAddr := Stream_Names.Size;
     362      FilesHeader[FileID].NameAddr := Stream_Names.Size;
    363363      temps := fileinfo.Extension + fileinfo.Name + Chr(0);
    364364      Stream_Names.Write(temps[1], Length(temps));
    365365    end
    366366    else
    367       FilesHeader[i].NameAddr := 0;
    368     FilesHeader[i].FileSize := fileinfo.Size;
    369     FilesHeader[i].FileType := fileinfo.FileType;
     367      FilesHeader[FileID].NameAddr := 0;
     368    FilesHeader[FileID].FileSize := fileinfo.Size;
     369    FilesHeader[FileID].FileType := fileinfo.FileType;
    370370
    371371    if ((FileID mod 10) = 0) and (FileID >= 100) then
     
    449449
    450450procedure TForm_LevelDB.CreateDatabase(Source, target: String);
     451var
     452  DataBase:  TABSDatabase;
    451453{
    452454var
     
    510512
    511513  DataBase := TABSDatabase.Create(Self);
     514}
     515  DataBase.MaxConnections := 1;
     516{
    512517  DataBase.DatabaseName := 'OLDB';
    513518  DataBase.DatabaseFileName := target;
Note: See TracChangeset for help on using the changeset viewer.