Форум: "Сети";
Текущий архив: 2007.07.29;
Скачать: [xml.tar.bz2];
ВнизКак прочитать инфу из файла котор. хранится на другом ПК Найти похожие ветки
← →
merko$ © (2006-12-22 10:19) [0]Есть такой код (ищу по 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;
← →
Сергей М. © (2006-12-22 10:29) [1]
> Есть такой код (ищу по IP машину получаю имя):
Это не "имя машины", это - имя хоста. Которого, кстати, может и не быть вообще.
> Как прочитать инфу из файла котор. хранится на другом ПК
Расшарить этот файл на том самом "другом" ПК, дать шаре соотв.права на доступ.
А далее все как обычно - работаешь с удаленным файлом точно так же как с локальным.
← →
merko$ © (2006-12-22 10:38) [2]Вообще цель идеи такова:
На всех машинах в сети в определенном файле хранится инвентарный номер. Нужно сделать поиск по IP и при нахождении из файла инвентарный номер считывался.
← →
iXT © (2006-12-22 10:42) [3]Ну и в чем проблема? Читай [1].
← →
Сергей М. © (2006-12-22 10:44) [4]
> На всех машинах в сети в определенном файле хранится инвентарный
> номер
Почему именно в файле ?
Чем реестр не угодил ?
← →
merko$ © (2006-12-22 10:46) [5]А куда в реестре можно запихать инв. номер и как его потом вытащить?
← →
iXT © (2006-12-22 10:59) [6]
> А куда в реестре можно запихать
:))))))))))))
← →
BiN © (2006-12-22 11:15) [7]
> merko$ © (22.12.06 10:46) [5]
>
> А куда в реестре можно запихать инв. номер и как его потом
> вытащить?
Записать в созданный тобой раздел, например, в HKEY_LOCAL_MACHINE\SOFTWARE\MYPCID\UID.
Считать с помощью RegQueryValue после подключения к удаленному реестру с помощью RegConnectRegistry. Для этого должна быть запущена служба RemoteRegistry.
← →
Сергей М. © (2006-12-22 11:15) [8]
> merko$ © (22.12.06 10:46) [5]
))
Да куда угодно !
Реестр - бездонная помойка, клади туда все что хошь практически куда хошь)
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2007.07.29;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.043 c