| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как вытащить Login и Password из уже установленного ADOConnection [D7, MSSQL, ADO]

tERRORist ©   (2004-12-06 07:46:00) 

Задача такая: есть ADOConnection, который был законнекчен с сервером методом Open('Login','Password'), т.е. в ConnectionString логина и пароля нет. Нужно узнать эти Login и Password или вообще склонировать весь ADOConnection.

---

Rad   (2004-12-06 10:35:00) [1]

как-то так:

function GetConnectionProperties(Connection: OleVariant;
 var Server, Database, User, Password: shortstring): boolean;
begin
 Result:= false;
 if not varIsClear(Connection) then
 begin
   Connection.Properties.Refresh;
   try
     Server:= Connection.Properties.Item['Data Source'].Value;
     try
       DataBase:= Connection.Properties.Item['Initial Catalog'].Value;
     except
       DataBase:= '';
     end;
     User:= Connection.Properties.Item['User ID'].Value;
     Password:= Connection.Properties.Item['Password'].Value;
     Result:= true;
   except
     Result:= false;
   end; // try..except
 end;
end;


---

sniknik   (2004-12-06 08:11:00) [2]

> т.е. в ConnectionString логина и пароля нет.
значит и в коннекте их нет, авторизация идет на уровне MSSQL сервера, без сохранений (лишний шанс для влома такое сохранение).

если нужно переделай авторизацию и сохраняй сам.

---

Наверх