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

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

Как узнать свой host из cервиса

beemaster ©   (2003-11-26 21:08:00) 

есть такой код.


uses WinSock;

....

var
MyHost : string;
pchHostName : pchar;
begin

{ getting local machine name }
GetMem(pchHostName,129);
gethostname(pchHostName,128);
MyHost:=StrPas(pchHostName);
FreeMem(pchHostName);

Edit17.Text:=MyHost;
end;


отлично работает в Application и не работает в сервисе(возвращает пустую строку).

CoInitialize(nil) и CoUninitialize(nil)
секция не помогает.

как это победить?
помогите

---

Reindeer Moss Eater   (2003-11-27 11:30:00) [1]

ASize:=MAX_COMPUTERNAME_LENGTH;
SetLength(Buff,ASize);
if GetComputerName(PChar(Buff),ASize) then ThisHostName:=StrPas(PChar(Buff)) else ThisHostName:="Unknown Host";

---

Наверх