引言: 請問各位! 有沒有人有經驗以程式碼將Paradox DB檔加入 Password Securaity 模式中 我現在都是以 DataBase DeskTop 所提供的功能來做!

引言:

引言: 請問各位! 有沒有人有經驗以程式碼將Paradox DB檔加入 Password Securaity 模式中 我現在都是以 DataBase DeskTop 所提供的功能來做!

我今天瀏覽之前提出的討論問題, 檢查到本封沒有結案, 本案已有解決之法, 並封包成 xtable 元件早先已放在本站中! -------------------------------------------------------- 利用這個程序試試看。 procedure EncryptPDOXTable(TableName, Password : String); var TblDesc: CRTblDesc; LocDB : TDatabase; begin //Initialize the BDE Check(DBIInit(nil)); //Initialize random number generator Randomize; //Create a local, non-owned database object that //points to the path associated with the table. LocDB := TDatabase.Create(nil); with LocDB do begin Params.Add('path=' ExtractFilePath(TableName)); DatabaseName := 'PDOXEncryptDB' IntToStr(Random(50)); DriverName := 'STANDARD'; Connected := True; end; //Now, initialize the Table Descriptor with the values //required to set a master password. FillChar(TblDesc, SizeOf(CRTblDesc), 0); StrPCopy(TblDesc.szTblName, ExtractFileName(TableName)); with TblDesc do begin bProtected := True; StrPCopy(TblDesc.szPassword, Password); end; //Now do the restructure. try Check(DbiDoRestructure(LocDB.Handle, 1, @TblDesc, nil, nil, nil, False)); finally LocDB.Free; DBIExit; end; end;