Changeset 129 for oup/current
- Timestamp:
- Mar 28, 2007, 3:12:22 AM (18 years ago)
- Location:
- oup/current
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
oup/current/Helper/LevelDB.pas
r127 r129 324 324 end else 325 325 RawLinks[i].RawAddr := 0; 326 DatFileStream.Seek(RawLinks[i].SrcOffset, soFromBeginning); 327 DatFileStream.Write(RawLinks[i].RawAddr, 4); 326 328 end; 327 329 end; 328 329 { 330 Data[rawlist[j].src_offset + 0] := (rawlist[j].raw_addr) and $FF; 331 Data[rawlist[j].src_offset + 1] := (rawlist[j].raw_addr shr 8) and $FF; 332 Data[rawlist[j].src_offset + 2] := (rawlist[j].raw_addr shr 16) and $FF; 333 Data[rawlist[j].src_offset + 3] := (rawlist[j].raw_addr shr 24) and $FF; 334 } 335 Stream_Body.Write(Data[0], Length(Data)); 336 // 330 DatFileStream.Seek(0, soFromBeginning); 331 Stream_Body.CopyFrom(DatFileStream, DatFileStream.Size); 337 332 end 338 333 else … … 381 376 Stream_Names.Free; 382 377 Stream_Raw.Free; 383 if OniDataConnection.OSisMac then 378 379 if Connection.DataOS in [DOS_WINDEMO, DOS_MAC, DOS_MACBETA] then 384 380 Stream_Sep.Free; 385 381 … … 397 393 converting := False; 398 394 399 CloseDataConnection(DataConnections[conIndex]);395 // CloseDataConnection(DataConnections[conIndex]); 400 396 end; 401 397 … … 407 403 i: Byte; 408 404 begin 409 for i := 1 to Length(ConvertHandlers) do405 { for i := 1 to Length(ConvertHandlers) do 410 406 if UpperCase(ConvertHandlers[i].Ext) = UpperCase(ext) then 411 407 if ConvertHandlers[i].needed then … … 416 412 else 417 413 Break; 418 end;414 }end; 419 415 420 416 … … 422 418 423 419 procedure TForm_LevelDB.CreateDatabase(Source, target: String); 420 { 424 421 var 425 422 DataBase: TABSDatabase; … … 453 450 group_progress.Caption := 'Creating DB (FINISHED)'; 454 451 end; 455 456 begin 457 if CreateDataConnection(Source, ODB_Dat) = nil then 452 } 453 454 begin 455 { if CreateDataConnection(Source, ODB_Dat) = nil then 458 456 begin 459 457 ShowMessage('Could not connect to .dat-file'); … … 658 656 659 657 CloseDataConnection(DataConnections[conIndex]); 660 end; 661 662 663 664 665 procedure TForm_LevelDB.stop_convert; 666 begin 667 btn_abortok.Caption := '&Close'; 658 } 659 end; 660 661 662 663 664 procedure TForm_LevelDB.StopConvert; 665 begin 666 { btn_abortok.Caption := '&Close'; 668 667 btn_abortok.Default := True; 669 668 converting := False; … … 676 675 DeleteFile(loaded_filename); 677 676 end; 678 end;677 }end; 679 678 680 679 … … 699 698 700 699 701 700 { 702 701 procedure InsertDatLinkToDB(fileid: LongWord; offset: LongWord); 703 702 var … … 1731 1730 end; 1732 1731 end; 1733 1734 1735 1736 1732 } 1733 1734 1735 { 1737 1736 procedure InsertHandler(ext: String; needed: Boolean; handler: THandler); 1738 1737 begin … … 1742 1741 ConvertHandlers[High(ConvertHandlers)].handler := handler; 1743 1742 end; 1744 1745 begin 1746 InsertHandler('ABNA', False, nil);1743 } 1744 begin 1745 { InsertHandler('ABNA', False, nil); 1747 1746 // InsertHandler('AGDB',True,AGDB); 1748 1747 InsertHandler('AGDB', False, nil); … … 1842 1841 InsertHandler('WMMB', True, WMMB); 1843 1842 InsertHandler('WPGE', True, WPGE); 1844 end.1843 }end. -
oup/current/Main.pas
r113 r129 138 138 implementation 139 139 140 uses 141 LevelDB; 142 140 143 {$R *.dfm} 141 144 … … 562 565 procedure TForm_Main.menu_createlvlClick(Sender: TObject); 563 566 begin 564 ShowMessage('Not yet usable');565 { 567 // ShowMessage('Not yet usable'); 568 566 569 opend.Filter := 'OUP-Level-DB (*.oldb)|*.oldb'; 567 570 saved.Filter := 'Oni-Dat-Files|*.dat'; … … 570 573 if saved.Execute then 571 574 Form_LevelDB.CreateLevel(opend.FileName, saved.FileName); 572 } 575 573 576 end; 574 577 -
oup/current/OniUnPacker.dpr
r125 r129 29 29 DatLinks in 'Global\DatLinks.pas', 30 30 _DataTypes in 'FileClasses\_DataTypes.pas', 31 _FileTypes in 'FileClasses\_FileTypes.pas'; 31 _FileTypes in 'FileClasses\_FileTypes.pas', 32 LevelDB in 'Helper\LevelDB.pas' {Form_LevelDB}; 32 33 33 34 {$R *.res} … … 41 42 Application.CreateForm(TForm_ValueEdit, Form_ValueEdit); 42 43 Application.CreateForm(TForm_WhatLinksHere, Form_WhatLinksHere); 44 Application.CreateForm(TForm_LevelDB, Form_LevelDB); 43 45 Application.Run; 44 46 end.
Note:
See TracChangeset
for help on using the changeset viewer.