| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Имя компьютера

Delphi basic ©   (2006-06-22 16:10:00) 

Как можно узнать сетевое имя компьютера?

---

AlexanderMS   (2006-06-22 17:42:00) [1]

В тему:

http://www.delphimaster.ru/cgi-bin/nuts.pl?showpage=2

См. "Имя компьютера". :)))

---

Ega23   (2006-06-22 17:03:00) [2]


function GetCompName: string;
var
 Name: array[0..79] of char;
 Len: DWORD;
begin
 Len := 80;
 if GetComputerName(@Name, Len) then Result := Name
   else Result := '';
end;


---

Delphi basic   (2006-06-22 17:00:00) [3]

> Возвращает она True или False
> См [3]
>

В lpBuffer возвращается строка, только кодировка странная.
Например, для компьютера с сетевым именем "Alex" возвращает "'S‹Ø‹ÃèÖÎ\x1'"

---

Dmitrij_K   (2006-06-22 16:55:00) [4]

Возвращает она Trueили False
См [3]

---

Delphi basic   (2006-06-22 16:51:00) [5]

> function GetComputerName(lpBuffer: PChar; var nSize: DWORD):
>  BOOL
> Ничего не возвращает :(
> Чего второй параметр означает?

Сорри, она возвращает но, похоже, в Юникоде. Как переконвертить в ANSI?

---

Плохиш   (2006-06-22 16:45:00) [6]

из IdGlobals.pas

function IndyGetHostName: string;
var
 i: LongWord;
begin
 SetLength(Result, MAX_COMPUTERNAME_LENGTH + 1);
 i := Length(Result);
 if GetComputerName(@Result[1], i) then begin
   SetLength(Result, i);
 end;
end;


---

Delphi basic   (2006-06-22 16:43:00) [7]

function GetComputerName(lpBuffer: PChar; var nSize: DWORD): BOOL
Ничего не возвращает :(
Чего второй параметр означает?

---

Dmitrij_K   (2006-06-22 16:25:00) [8]

GetComputerName()

---

Наверх