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

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

Alias [D6]

edicon ©   (2003-05-23 00:28:00) 

Уважаемые мастера! Помогите!
(понимаю, что этот вопрос задавался тысячу раз,
но ответ не могу что-то найти...)

Буду краток: как по имени алиаса узнать
физический путь к папке.

Спасибо за внимание!

---

KDS   (2003-05-23 12:51:00) [1]

>ККВ:Апишные функции БДЕ глючат с русской кодировкой при работе в кириллических каталогах. А это пашет на все 100% из реальной проги
function GetDataBaseDirByAlias(const pAlias : AnsiString): AnsiString;
{возврат пути к БД по алиасу без слеша в конце}
var MyStringList:TStringList;
PathToDB: AnsiString ;
begin
GetDataBaseDirByAlias:="";
PathToDB:="";
try
MyStringList := TStringList.Create;
Session.GetAliasParams(pAlias,MyStringList);
PathToDB:=MyStringList.Values["PATH"];
finally
MyStringList.Free;
end;
GetDataBaseDirByAlias:=PathToDB;
end;

---

ККВ   (2003-05-23 09:20:00) [2]

uses
DBiTypes;

function GetDataBaseDir(const Alias: string): String;
var
R: DBDesc;
begin
Check(DbiGetDatabaseDesc(PChar(Alias), @R));
Result := R.szPhyName;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := GetDataBaseDir("Alias");
end;

---

Виталий Панасенко   (2003-05-23 09:04:00) [3]

Получи праметри и в одном из них, PATH и содержиться путь...См. компонент Session

---

Наверх