Форум: "Базы";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];

Вниз

Как вытащить Login и Password из уже установленного ADOConnection   Найти похожие ветки 

← →
tERRORist ©   (2004-12-06 07:46) [0]

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

---

← →
sniknik ©   (2004-12-06 08:11) [1]

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

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

---

← →
Rad   (2004-12-06 10:35) [2]

как-то так:

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;


---

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

Форум: "Базы";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.038 c