Работа в сети

← →
Pop_Max (2005-09-30 07:13) [0]

Уважаемые мастере помогите если знаете. На моем комьютере
есть папка где открыт полный доступ. Там есть база *.dbf
куда каждый день поподают данные из другого компа. Естественно когда мой компьютер выключен или перезагружается в *.dbf данные не могут сесть. Можно ли определить доступна ли в данный момент база и как это сделать ? Заранее спасибо.

← →
Big Joe © (2005-09-30 09:18) [1]

Проверь по ip есть ли комп в сети

function IPAddressToNetworkName(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
begin
result := StrPas(Hostent^.h_name)
end
else
begin
result := "";
end;
end;

> Big Joe © (30.09.05 09:18) [1]
> Проверь по ip есть ли комп в сети
>
> function IPAddressToNetworkName(IPAddr: string): string;
>

Не, так не пойдёт. Мож у него в сетке днс имеется, тогда эта функция ему никак не поможет. Проще всего, наверное, взять, скажем, функцию DirectoryExists и скормить ей сетевой путь, где dbf лежат...

Работа в сети Найти похожие ветки