Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Работа в сети [D7, WinXP]

Pop_Max © (2005-09-30 07:13:00)
Уважаемые мастере помогите если знаете. На моем комьютере
есть папка где открыт полный доступ. Там есть база *.dbf
куда каждый день поподают данные из другого компа. Естественно когда мой компьютер выключен или перезагружается в *.dbf данные не могут сесть. Можно ли определить доступна ли в данный момент база и как это сделать ? Заранее спасибо.

Sashka (2005-10-01 19:08:00) [1]

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

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

Big Joe (2005-09-30 09:18:00) [2]
Проверь по 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;

Наверх

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