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

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

Имя компьютера в локальной сети [D7, Win95/98, WinXP]

DimDim ©   (2004-05-08 12:06:00) 

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

---

SniZ   (2004-05-09 16:11:00) [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;


---

Rouse_   (2004-05-08 12:33:00) [2]

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

---

Ozone   (2004-05-08 12:16:00) [3]

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

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

GetComputerName

---

Наверх