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

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

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

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

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

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

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

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

))

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

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

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