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

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

Как прочитать инфу из файла котор. хранится на другом ПК [D7, Win2k, WinXP]


merko$ ©   (2006-12-22 10:19:00) 

Есть такой код (ищу по IP машину получаю имя):

function IPAddrToName(IPAddr: string): string;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(IPAddr));
HostEnt:=GetHostByAddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt<>nil
then Result:=StrPas(Hostent^.h_name)
else Result:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:='Name: '+IPAddrToName(Edit1.Text);
end;


BiN   (2006-12-22 11:15:00) [1]


> merko$ ©   (22.12.06 10:46) [5]
>
> А куда в реестре можно запихать инв. номер и как его потом
> вытащить?

Записать в созданный тобой раздел, например, в HKEY_LOCAL_MACHINE\SOFTWARE\ MYPCID\UID.
Считать с помощью RegQueryValue после подключения к удаленному реестру с помощью RegConnectRegistry. Для этого должна быть запущена служба RemoteRegistry.


Сергей М.   (2006-12-22 11:15:00) [2]


> merko$ ©   (22.12.06 10:46) [5]


))

Да куда угодно !

Реестр - бездонная помойка, клади туда все что хошь практически куда хошь)


iXT   (2006-12-22 10:59:00) [3]


> А куда в реестре можно запихать

:))))))))))))


merko$   (2006-12-22 10:46:00) [4]

А куда в реестре можно запихать инв. номер и как его потом вытащить?


Сергей М.   (2006-12-22 10:44:00) [5]


> На всех машинах в сети в определенном файле хранится инвентарный
> номер


Почему именно в файле ?
Чем реестр не угодил ?


iXT   (2006-12-22 10:42:00) [6]

Ну и в чем проблема? Читай [1].


merko$   (2006-12-22 10:38:00) [7]

Вообще цель идеи такова:
На всех машинах в сети в определенном файле хранится инвентарный номер. Нужно сделать поиск по IP и при нахождении из файла инвентарный номер считывался.


Сергей М.   (2006-12-22 10:29:00) [8]


> Есть такой код (ищу по IP машину получаю имя):


Это не "имя машины", это - имя хоста. Которого, кстати, может и не быть вообще.


> Как прочитать инфу из файла котор. хранится на другом ПК


Расшарить этот файл на том самом "другом" ПК, дать шаре соотв.права на доступ.
А далее все как обычно - работаешь с удаленным файлом точно так же как с локальным.


Наверх

Титульная страница Поиск, карта сайта Написать письмо