Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

Result := StrPas(pszDir); {convert to a string}

finally

Database.Free; {free memory}

StrDispose(pszDir);

end;

end;

varMyAliasPath: string;

constAliasName='MyAlias';

{**** Получаем из BDE путь MyAlias}

ParamsList:= TStringList.Create;

try

withSession do begin

Session.GetAliasNames(ParamsList);

Session.GetAliasParams(AliasName,ParamsList);

MyAliasPath:=Copy(ParamsList[0],6,50)+'\';

end;

finally

ParamsList.Free;

end;

usesDbiProcs, DBiTypes;

functionGetDataBaseDir( constAlias : string): String;

(* Возвращает каталог базы данных для псевдонима

(без завершающего обратного слеша) *)

var

sp : PChar;

Res : pDBDesc;

begin

try

New(Res);

sp := StrAlloc(length(Alias)+1);

StrPCopy(sp,Alias);

ifDbiGetDatabaseDesc(sp,Res) = 0 thenResult := StrPas(Res^.szPhyName)

elseResult:= '';

finally

StrDispose(sp);

Dispose(Res);

end;

end;

Я делаю это все время. У меня есть INI-файл, который сообщает, где можно найти таблицы и каталоги их расположения. Вот как я это делаю:

procedureCheckTable( varTable : TTable; varTName : string);

var

ChangePath: boolean;

Path: string;

ActiveState: Boolean;

begin

if(TName = '') thenTName := Table.TableName

else withTable do begin

ActiveState := Active;

Close;

Path := ExtractFilePath(TName);

ChangePath := HasAttr(DatabaseName, faDirectory) or(CompareText(DatabaseName, Path) <> 0);

if(Length(Path) > 0) andChangePath thenDatabaseName := Path;

if(CompareText(ExtractFileName(Tname), TableName) <> 0) thenTableName := ExtractFileName(Tname);

Active := ActiveState;

end;

end;

Попробуйте это:

typeTDataMod = class(TDataModule)

Database: TDatabase;

public

procedureTempAlias(NewAlias, NewDir: String);

end;

procedureTDataMod.TempAlias(NewAlias, NewDir: String);

begin

withSession do if notIsAlias(NewAlias) then begin

ConfigMode := cmSession; (* NewAlias будет ВРЕМЕННЫМ *)

try

AddStandardAlias(NewAlias, NewDir, 'PARADOX');

Database.Close;

Database.AliasName := NewAlias;

Database.Open;

finally

ConfigMode := cmAll;

end;

end;

end;

Комментарии:

a) Поместите компонент Database на форму DataModule;

b) Задайте свойству DatabaseName имя базы данных, например, 'TempDB';

c) Задайте свойству DatabaseName компонента TTable значение = 'TempDB'

d) Для получения дополнительной информации ознакомьтесь с примером MastApp, поставляемым вместе с D2.

Попробуйте следующий код:

var

theStrList : TStringList;

GPath : String;

begin

theStrList := TStringList.Create;

{Используем GetAliasParams для получения псевдонимов и ассоциированных с ними путей}

Session.GetAliasParams( <���Здесь псевдоним из выпадающего списка>,theStrList);

{Удаляем первые шесть символов, которые всегда равны «PATH="}

GPath := copy(theStrList[0],6,length(theStrList[0]))

theStrList.Free;

Пример, приведенный для функции dbiGetDatabaseDesc в файле BDE32.HLP, неверен. Такой же пример содержится в файле TI3100.ASC. Я пробовал это на 3 разных компьютерах. Я использую среду Delphi. Ошибка, которую я получаю при попытке использования функции, выглядит следующим образом:

EDBEngineError с сообщением 'Возникла ошибка при попытке инициализации Borland Database Engine (ошибка $2104).'

При вызове любой из функций BDE, если вы не пользуетесь компонентами для работы с базами данных, вам необходимо инициализировать BDE вызовом dbiInit(nil).

Pat Ritchey

У меня была та же проблема, и я нашел единственное решение как ее обойти. Я подозреваю, что причина кроется в том, что Query1.Refresh ничего не делает, если установлен режим readonly, т.е. не ожидается никаких изменений. Один способ у меня прошел успешно (в предположении, что мы имеем один вход): я использовал 3 TQuerie, две сетки и форму обновления. Это способ, когда я могу установить requestlive в истину. Вы не должны допускать, чтобы пользователь мог сам редактировать табличную сетку (если это то, что вы хотите).