Changeset 134 for oup/current
- Timestamp:
- Mar 28, 2007, 7:53:54 PM (18 years ago)
- Location:
- oup/current
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
oup/current/DataAccess/Access_OUP_ADB.pas
r119 r134 67 67 68 68 FDatabase := TABSDatabase.Create(nil); 69 FDatabase.Exclusive := True; 70 FDatabase.MultiUser := False; 69 71 FDatabase.DatabaseName := 'OLDBcon' + IntToStr(ConnectionID); 70 72 FDatabase.DatabaseFileName := DBFilename; 71 73 FDatabase.Open; 72 74 FQuery := TABSQuery.Create(FDatabase); 75 FQuery.DisableControls; 73 76 FQuery.DatabaseName := 'OLDBcon' + IntToStr(ConnectionID); 74 77 FQuery.SQL.Text := 'SELECT [name],[value] FROM globals ORDER BY [name] ASC'; -
oup/current/Helper/LevelDB.pas
r133 r134 357 357 end 358 358 else 359 FilesHeader[ i].DataAddr := 0;359 FilesHeader[FileID].DataAddr := 0; 360 360 if Length(fileinfo.Name) > 0 then 361 361 begin 362 FilesHeader[ i].NameAddr := Stream_Names.Size;362 FilesHeader[FileID].NameAddr := Stream_Names.Size; 363 363 temps := fileinfo.Extension + fileinfo.Name + Chr(0); 364 364 Stream_Names.Write(temps[1], Length(temps)); 365 365 end 366 366 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; 370 370 371 371 if ((FileID mod 10) = 0) and (FileID >= 100) then … … 449 449 450 450 procedure TForm_LevelDB.CreateDatabase(Source, target: String); 451 var 452 DataBase: TABSDatabase; 451 453 { 452 454 var … … 510 512 511 513 DataBase := TABSDatabase.Create(Self); 514 } 515 DataBase.MaxConnections := 1; 516 { 512 517 DataBase.DatabaseName := 'OLDB'; 513 518 DataBase.DatabaseFileName := target;
Note:
See TracChangeset
for help on using the changeset viewer.