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

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

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

В чем разница? [D7, WinXP]

YurikGl © (2004-03-07 11:54:00)
Не пойму, где меня кидают.

var
st:shortString;
Buffer1,buffer2:array[0..255] of char;
size:dword;

begin
st:='STable'+IntToStr(random(10000));
size:=255;

далее
1-й вариант
if GetUserName(buffer1,size) then st:=st+string(buffer1)
else st:=st+IntToStr(random(10000));
if GetComputerName(buffer1, size) then st:=st+string(buffer1)
else st:=st+IntToStr(random(10000));

2-й вариант
if GetComputerName(buffer1, size) then st:=st+string(buffer1)
else st:=st+IntToStr(random(10000));
if GetUserName(buffer1,size) then st:=st+string(buffer1)
else st:=st+IntToStr(random(10000));

Ну дык вот. В первом случае функции GetUserName и GetComputerName возвращают true и соответсвенно, необходимые имена, а во втором случае GetUserName возвращает false.

YurikGl (2004-03-07 12:43:00) [1]
Точно size поменялся. Спасибо.

YurikGl (2004-03-07 12:37:00) [2]
Функция была взята с
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1075699593&n=4

Спасибо, заработал следующий код.

size:=MAX_COMPUTERNAME_LENGTH;
if GetComputerName(buffer, size) then st:=st+string(buffer)
else st:=st+IntToStr(random(10000));
size:=120;
if GetUserName(buffer,size) then st:=st+string(buffer)
else st:=st+IntToStr(random(10000));

Мне только не совсем понятно, что происходило. Что менялось после вызова GetComputerName? Неужели size?

Anatoly Podgoretsky (2004-03-07 12:26:00) [3]
А то что в этом случает ты не сможешь получить имя пользователся, будет облом.

Проверять не надо, надо писать правильно, устанавливать size в правильное значение перед вызовом функции!

И не заьывай, что есть MAX_COMPUTERNAME_LENGTH, а не 255

Кроме того не мешало бы проверять на ошибки и выдавать соответствующее сообщение

YurikGl (2004-03-07 12:13:00) [4]
А если имя компьютера окажется длиннее имени пользователя? Каждый раз проверять что-ли? И выполнять операторы в разной последовательности?

YurikGl (2004-03-07 12:03:00) [5]
И что?

Anatoly Podgoretsky (2004-03-07 12:00:00) [6]
Имя компьютера короче имени пользователся.

Наверх

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