Форум: "Сети";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];
ВнизКак узнать свой 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 вся ветка
Форум: "Сети";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c