Имя компьютера в локальной сети

← →
DimDim (2004-05-08 12:06) [0]

Уважаемые Мастера! Мои извинения за ламерский вопрос - никогда не писал под сетку.
Изначально программа писалась для 1 пользователя. Сейчас необходимо сделать из нее сетевую версию. Для этого необходимо для каждого клиента создавать свой каталог.
Как узнать имя компьютера, с которого запускается программа? (для того, чтобы создавать уникальный каталог по этому имени)

← →
Ozone © (2004-05-08 12:16) [1]

>> никогда не писал под сетку.
Я плакаль ... :-)

>> Как узнать имя компьютера

GetComputerName

← →
Rouse_ © (2004-05-08 12:33) [2]

http://www.delphimaster.ru/cgi-bin/download.pl?look=1&id=1078646471&n=1

может отправляй на серверную прогу IP адрес?
МОЖЕШ вот посмотреть код узнавания IP и имя компа:
uses WinSock; // не забудь поставить в uses function GetLocalIP: String; const WSVer = $101; var wsaData: TWSAData; P: PHostEnt; Buf: array [0..127] of Char; begin Result := ""; if WSAStartup(WSVer, wsaData) = 0 then begin if GetHostName(@Buf, 128) = 0 then begin P := GetHostByName(@Buf); if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^); end; WSACleanup; end; end; const WINSOCK_VERSION = $0101; function GetIPAddress(Name:String): string;// функция узнаёт имя по IP var WSAData : TWSAData; p : PHostEnt; begin WSAStartup(WINSOCK_VERSION, WSAData); p := GetHostByName(PChar(Name)); Result := inet_ntoa(PInAddr(p.h_addr_list^)^); WSACleanup; end;

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