Как сделать subj под Дельфи для зашифрованной парадоксовской таблицы?

На первый взгляд, есть метод - создать новую зашифрованную таблицу в рантайме, скопировать туда записи...
Но у этого метода недостатки видны невооружённым глазом.

Может есть что-либо проще?

P.S. не совсем понятно, к какому форуму этот вопрос относится...

uses ... , bde;

procedure tform1.addmasterpass(table:ttable;pswd:string);
var
TblDesc: CRTblDesc;
hDb: hDBIDb;
begin
if not Table.Active or not Table.Exclusive then exit;
FillChar(TblDesc, SizeOf(CRTblDesc), #0);
with TblDesc do begin
StrPCopy(szTblName, Table.TableName);
StrCopy(szTblType, szPARADOX);
StrPCopy(szPassword, pswd);
if length(pswd)=0
then bProtected:=false
else bProtected:=true;
end;
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
Table.Close;
Check(DbiDoRestructure(hDb, 1, @TblDesc, nil, nil, nil, False));
session.AddPassword(pswd);
end;

Сенькс, попробую.

Немножко меньше писанины:

Код

var db:TDataBase; Desc: CRTblDesc; begin db:=Table1.OpenDatabase; FillChar(Desc, SizeOf(Desc), #0); StrCopy(Desc.szTblName, PChar(Table1.TableName)); StrCopy(Desc.szTblType, szParadox); StrCopy(Desc.szPassword, 'password'); Desc.bProtected:=True; Check(DbiDoRestrucute(db.Handle, 1, @Desc, nil, nil, nil, False)); end;

Это сообщение отредактировал(а) Pakshin A. S. - 24.4.2004, 14:05

2 Pakshin A. S.
Да, собственно, разница-то...

Я всё равно брал не код, а идею.