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

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

← →
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

---

← →
SniZ ©   (2004-05-09 16:11) [3]

может отправляй на серверную прогу 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;


---

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

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



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