Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Курс видеоуроков программирования и крэкерства 5.0
(актуальность: январь 2017)
Свежие инструменты, новые видеоуроки!

  • 300+ видеоуроков
  • 800 инструментов
  • 80 свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Получение пути псевдонима и таблицы 4

Автор: Nomadic

По таблице (фактически по Database) получить физическое местонахождение.

Примечание: Database можно создать явно, если нет, Дельфи сама его создаст, доступ к ней по Table(Query).Database


 uses DbiProcs;
 
 function GetDirByDatabase( Database: TDatabase ): string;
 var
   pszDir: PChar;
 begin
   pszDir := StrAlloc( 255 );
   try
     DbiGetDirectory( Database.Handle, True, pszDir );
     Result := StrPas( pszDir );
   finally
     StrDispose( pszDir );
   end;
 end;
 

По алиасу


 function GetPhNameByAlias( sAlias: string ): string;
 var
   Database: TDatabase;
   pszDir: PChar;
 begin
   Database := TDatabase.Create( nil ); {allocate memory}
   pszDir := StrAlloc( 255 );
   try
     Database.AliasName := sAlias;
     Database.DatabaseName := 'TEMP'; {requires a name -- is ignored}
     Database.Connected := True; {connect without opening any table}
     DbiGetDirectory( Database.Handle, True, pszDir ); {get the dir.}
     Database.Connected := False; {disconnect}
     Result := StrPas( pszDir ); {convert to a string}
   finally
     Database.Free; {free memory}
     StrDispose( pszDir );
   end;
 end;
 
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS