Скачать: CL | DM;

Как удалить пароль из 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;

ВОПРОС СНЯТ!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.011 c