Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

path в алиасе [D5, Paradox]

denis24 © (2003-03-04 09:56:00)
Привет всем!Как узнать сабж програмно?

denis24 (2003-03-04 10:32:00) [1]
А если у меня table и query еще закрыты?
Мне нужно удалить один файл до открытия всех датасетов в каталоге алиаса?

Соловьев (2003-03-04 10:31:00) [2]

> ЕЕ имя просто session?

Да напиши как я тебе дал в коде.

passm (2003-03-04 10:25:00) [3]
denis24 (04.03.03 10:23)> Table.Database.Session

denis24 (2003-03-04 10:23:00) [4]
Я не используюю компонет session.У меня просто table ,query
ЕЕ имя просто session?

Соловьев (2003-03-04 10:16:00) [5]
Можешь положить компонент из заклядки BDE? а можешь использовать ту которая автоматически создается, когда идет соеединение с БД.

denis24 (2003-03-04 10:15:00) [6]
А что такое session в этой процедуре?

stone (2003-03-04 10:05:00) [7]
var
ParamList: TStringList;
...
with Session do
try
GetAliasParams(AliasName, ParamList);
Result := UpperCase(ParamList.Values["PATH"])+"\";
finally
ParamList.Free;
end;

passm (2003-03-04 10:04:00) [8]
denis24 (04.03.03 09:56)>
function GetAliasPath(const Session: TSession; const AliasName: string): string;
var
List: TStringList;
begin
Result:= "";
List:= TStringList.Create;
try
Session.GetAliasParams(AliasName, List);
Result:= List.Values["PATH"]
finally
List.Free
end
end;

Соловьев (2003-03-04 10:01:00) [9]

> Application.OnHint := ShowHint;

не обязательно :))))

Соловьев (2003-03-04 10:00:00) [10]
procedure TMainForm.FormCreate(Sender: TObject);
var MyStringList: TStrings;
begin
Application.OnHint := ShowHint;
MyStringList := TStringList.Create;
try
Session.GetAliasParams("App",MyStringList);
PathDB := Copy(MyStringList.Strings[0],6,255);
finally
MyStringList.Free;
end;
end;

Наверх

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