Хотите раскрутить свой сайт в Яндекс и Google?
Недорогое и качественное продвижение сайта от 50$

Delphi 1

Имя пользователя 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 ;

[000420]

2012-02-08 14:17:11 - Не могу записать данные в файл: /home/aptemne/public_html/xapsdflkjs789s7sffsh553/cache_aptem_net_ru_5c.txt
2012-02-08 14:17:11 - Не могу записать данные в файл: /home/aptemne/public_html/xapsdflkjs789s7sffsh553/cache_aptem_net_ru_5c.txt
2012-02-08 14:17:12 - Не могу записать данные в файл: /home/aptemne/public_html/xapsdflkjs789s7sffsh553/cache_aptem_net_ru_5c.txt

Материалы, которые находятся на этой страничке, любезно предоставлены Игорем Ивановым

РЕКЛАМНЫЙ БЛОК