Скачать: CL | DM;

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

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

---

← →
Sashka ©   (2005-10-01 19:08) [2]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c