Как удалить пароль из Paradox-таблицы?

← →
nikolo (2002-10-16 12:55) [0]

Привет! Как добавить пароль знаю, а вот как его удалить из Paradox-таблицы?

← →
nikolo (2002-10-16 13:30) [1]

Братцы, помогите!

← →
Mike Kouzmine (2002-10-16 14:01) [2]

Открой в десктопе и удали

← →
nikolo (2002-10-16 16:35) [3]

> Mike Kouzmine, то что в Десктопе можно удалить это понятно, а как удалить програмно?

← →
bpv (2002-10-16 16:37) [4]

а назначить пустой пароль не получается?

← →
nikolo (2002-10-16 16:48) [5]

Нет, пустой пароль игнорирует, считает, что если подан пустой пароль, то типа ничего делать не надо, оставляет старый :(

← →
nikolo (2002-10-16 17:23) [6]

Народ! Помогите! Очень нужно!

← →
Дремучий (2002-10-16 20:39) [7]

если надо открыть запароленную таблицу -
открывай ее с универсальным паролем
из ФАК
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988623247&n=14

← →
Anatoly Podgoretsky (2002-10-16 21:01) [8]

nikolo © (16.10.02 12:55)
Если это вообще возможно, то это надо делать через DbiDoRestructure
Покажи как добавляешь пароль, возможно ответ здесь

← →
nikolo (2002-10-17 10:58) [9]

Да, насчет универсальных паролей - это круто!
Но проблема у меня не с хакерским взломом Paradox-таблиц, а просто мне надо, чтобы в моей проге я мог установить пароль на таблицу и удалить его. Установить могу, вот код:

Procedure AddMasterPassword(Tbl: TTable; PWord: string); Const RESTRUCTURE_TRUE = WordBool(1); Var TblDesc: CRTblDesc; hDb: hDBIDb; Begin Tbl.Close; Tbl.Exclusive := True; try Tbl.Open; except raise EDatabaseError.Create("Ошибка открытия таблицы!"); end; FillChar(TblDesc, SizeOf(CRTblDesc), #0); with TblDesc do begin StrPCopy(szTblName, Tbl.TableName); StrCopy(szTblType, szPARADOX); StrPCopy(szPassword, PWord); bProtected := RESTRUCTURE_TRUE; end; Check(DbiGetObjFromObj(hDBIObj(Tbl.Handle), objDATABASE, hDBIObj(hDb))); Tbl.Close; Check(DbiDoRestructure(hDb, 1, @TblDesc, nil, nil, nil, False)); Session.AddPassword(PWord); End; {- AddMasterPassword -}

А как удалить пароль из таблицы?

← →
nikolo (2002-10-17 11:28) [10]

Всем спасибо, проблему сам решил. Нужно заменить

bProtected := RESTRUCTURE_TRUE;

на

if Trim(PWord) > "" then bProtected := RESTRUCTURE_TRUE else bProtected := False;

ВОПРОС СНЯТ!

Как удалить пароль из Paradox-таблицы? Найти похожие ветки