Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Главная » Статьи » Не стандартные примеры на Delphi » Базы Данных

Имя пользователя Paradox

Вы можете выполнить эту задачу, непосредственно обращаясь к BDE. Включите следующие модули в сецию Uses вашего модуля: DBIPROCS, DBIERRS, DBITYPES

Ниже приведена функция с именем ID, возвращающая сетевое имя входа:


    function ID: String ;
var
rslt: DBIResult ;
szErrMsg: DBIMSG ;
pszUserName: PChar ;
begin
try
Result := '' ;
pszUserName := nil ;
GetMem(pszUserName, SizeOf(Char) * DBIMAXXBUSERNAMELEN) ;
rslt := DbiGetNetUserName(pszUserName);
if rslt = DBIERR_NONE then
Result := StrPas(pszUserName)
else
begin
DbiGetErrorString(rslt, szErrMsg);
raise Exception.Create(StrPas(szErrMsg));
end ;
FreeMem(pszUserName, SizeOf(Char) * DBIMAXXBUSERNAMELEN) ;
pszUserName := nil ;
except
on E: EOutOfMemory do ShowMessage('Ошибка. ' + E.Message);
on E: Exception do ShowMessage(E.Message);
end ;
if pszUserName <> nil then FreeMem(pszUserName, SizeOf(Char) * DBIMAXXBUSERNAMELEN) ;
end ;  
Категория: Базы Данных | Добавил: DelphiAiX (20.05.2012)
Просмотров: 157 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]