Скачать: CL | DM;

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

← →
beemaster ©   (2003-11-26 21:08) [0]

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


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) [1]

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

---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.018 c