Rev 741 | Rev 743 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 741 | Rev 742 | ||
|---|---|---|---|
| Line 696... | Line 696... | ||
| 696 | 696 | ||
| 697 | FreeOidDef(oid); |
697 | FreeOidDef(oid); |
| 698 | until exitRequest; |
698 | until exitRequest; |
| 699 | end; |
699 | end; |
| 700 | 700 | ||
| 701 | procedure CreateInitOIDFile(filename: string); |
701 | procedure CreateRootOIDFile(filename: string); |
| 702 | var |
702 | var |
| 703 | oid: POID; |
703 | oid: POID; |
| 704 | begin |
704 | begin |
| 705 | CreateOidDef(oid); |
705 | CreateOidDef(oid); |
| 706 | oid^.Description := 'This is the root of the OID tree.' +#13#10 + |
706 | oid^.Description := 'This is the root of the OID tree.' +#13#10 + |
| Line 714... | Line 714... | ||
| 714 | oid^.Parent := ZeroPad(0, 8); |
714 | oid^.Parent := ZeroPad(0, 8); |
| 715 | _WriteOidFile(filename, oid); |
715 | _WriteOidFile(filename, oid); |
| 716 | FreeOidDef(oid); |
716 | FreeOidDef(oid); |
| 717 | end; |
717 | end; |
| 718 | 718 | ||
| 719 | function _GetInitFile: string; |
719 | function _GetRootFile(ShowErrorMessage: boolean): string; |
| 720 | var |
720 | var |
| 721 | initFile: string; |
721 | rootFile: string; |
| 722 | begin |
722 | begin |
| 723 | initFile := ZeroPad(0, 8) + '.OID'; |
723 | rootFile := ZeroPad(0, 8) + '.OID'; |
| 724 | if not FileExists(initFile) then |
724 | if not FileExists(rootFile) then |
| 725 | begin |
725 | begin |
| - | 726 | {$I-} |
|
| 726 | CreateInitOIDFile(initFile); |
727 | CreateRootOIDFile(rootFile); |
| - | 728 | {$I+} |
|
| - | 729 | end; |
|
| - | 730 | if not FileExists(rootFile) then |
|
| - | 731 | begin |
|
| - | 732 | _GetRootFile := ''; |
|
| - | 733 | if ShowErrorMessage then |
|
| - | 734 | begin |
|
| - | 735 | ShowMessage('Cannot create ' + rootfile + '! Is disk read-only?', 'ERROR', true); |
|
| - | 736 | _Pause; |
|
| - | 737 | end; |
|
| - | 738 | end |
|
| - | 739 | else |
|
| - | 740 | begin |
|
| - | 741 | _GetRootFile := rootFile; |
|
| 727 | end; |
742 | end; |
| 728 | _GetInitFile := initFile; |
- | |
| 729 | end; |
743 | end; |
| 730 | 744 | ||
| 731 | procedure OP_ManageOIDs; |
745 | procedure OP_ManageOIDs; |
| - | 746 | var |
|
| - | 747 | rootfile: string; |
|
| 732 | begin |
748 | begin |
| 733 | ClrScr; |
749 | ClrScr; |
| 734 | DrawTitleBar('Manage Object Identifiers', TITLEBAR_LEFT_TEXT, ''); |
750 | DrawTitleBar('Manage Object Identifiers', TITLEBAR_LEFT_TEXT, ''); |
| 735 | DrawStatusBar('Loading data... please wait...'); |
751 | DrawStatusBar('Loading data... please wait...'); |
| 736 | 752 | ||
| - | 753 | (* This will try creating a new root file if it does not exist *) |
|
| - | 754 | rootfile := _GetRootFile(true); |
|
| - | 755 | if rootfile = '' then Exit; |
|
| - | 756 | ||
| 737 | DisplayOIDFile(_GetInitFile); |
757 | DisplayOIDFile(rootfile); |
| 738 | end; |
758 | end; |
| 739 | 759 | ||
| 740 | procedure OP_ManageRAs; |
760 | procedure OP_ManageRAs; |
| 741 | begin |
761 | begin |
| 742 | ClrScr; |
762 | ClrScr; |
| Line 817... | Line 837... | ||
| 817 | 837 | ||
| 818 | procedure OP_TreeView; |
838 | procedure OP_TreeView; |
| 819 | var |
839 | var |
| 820 | F: Text; |
840 | F: Text; |
| 821 | rootoid: POID; |
841 | rootoid: POID; |
| - | 842 | rootfile: string; |
|
| 822 | begin |
843 | begin |
| 823 | ClrScr; |
844 | ClrScr; |
| 824 | DrawTitleBar('TreeView Export', TITLEBAR_LEFT_TEXT, ''); |
845 | DrawTitleBar('TreeView Export', TITLEBAR_LEFT_TEXT, ''); |
| 825 | DrawStatusBar('Exporting data... please wait...'); |
846 | DrawStatusBar('Exporting data... please wait...'); |
| 826 | 847 | ||
| - | 848 | (* This will try creating a new root file if it does not exist *) |
|
| - | 849 | rootfile := _GetRootFile(true);; |
|
| - | 850 | if rootfile = '' then Exit; |
|
| - | 851 | ||
| 827 | Assign(F, 'OIDTREE.TXT'); |
852 | Assign(F, 'OIDTREE.TXT'); |
| 828 | Rewrite(F); |
853 | Rewrite(F); |
| 829 | 854 | ||
| 830 | CreateOidDef(rootoid); |
855 | CreateOidDef(rootoid); |
| 831 | _ReadOidFile(_GetInitFile, rootoid); |
856 | _ReadOidFile(rootfile, rootoid); |
| 832 | _RecTreeExport(rootoid, F, 0); |
857 | _RecTreeExport(rootoid, F, 0); |
| 833 | FreeOidDef(rootoid); |
858 | FreeOidDef(rootoid); |
| 834 | 859 | ||
| 835 | DrawStatusBar(DEFAULT_STATUSBAR); |
860 | DrawStatusBar(DEFAULT_STATUSBAR); |
| 836 | ShowMessage('TreeView successfully exported as OIDTREE.TXT', 'TREEVIEW EXPORT', true); |
861 | ShowMessage('TreeView successfully exported as OIDTREE.TXT', 'TREEVIEW EXPORT', true); |