Форум: "Начинающим";
Текущий архив: 2006.07.09;
Скачать: [xml.tar.bz2];

Вниз

Имя компьютера   Найти похожие ветки 

← →
Delphi basic ©   (2006-06-22 16:10) [0]

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

---

← →
Dmitrij_K   (2006-06-22 16:25) [1]

GetComputerName()

---

← →
Delphi basic ©   (2006-06-22 16:43) [2]

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

---

← →
Плохиш ©   (2006-06-22 16:45) [3]

из 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:51) [4]

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

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

---

← →
Dmitrij_K   (2006-06-22 16:55) [5]

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

---

← →
Delphi basic ©   (2006-06-22 17:00) [6]

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

В lpBuffer возвращается строка, только кодировка странная.
Например, для компьютера с сетевым именем "Alex" возвращает ""S‹&#216;‹&#195;&#232;&#214;&#206;
""

---

← →
Ega23 ©   (2006-06-22 17:03) [7]


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;


---

← →
AlexanderMS ©   (2006-06-22 17:42) [8]

В тему:

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

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.07.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c