Форум: "Базы";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
ВнизAlias Найти похожие ветки
← →
edicon (2003-05-23 00:28) [0]Уважаемые мастера! Помогите!
(понимаю, что этот вопрос задавался тысячу раз,
но ответ не могу что-то найти...)
Буду краток: как по имени алиаса узнать
физический путь к папке.
Спасибо за внимание!
← →
Виталий Панасенко (2003-05-23 09:04) [1]Получи праметри и в одном из них, PATH и содержиться путь...См. компонент Session
← →
ККВ (2003-05-23 09:20) [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;
← →
KDS (2003-05-23 12:51) [3]>ККВ: Апишные функции БДЕ глючат с русской кодировкой при работе в кириллических каталогах. А это пашет на все 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;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c