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

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

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

Проверка компа. [D7, XP]

Страницы: 1 2 >
Xmen © (2009-12-09 14:43:00)
Привет мастерам!
Работаю с сервером через сеть. В сервере открыт несколько папок. Клиентского комп работает с этими папками. Как проверить сервер подключен ли к сети. Если связи нет то должно выдавать сообщение об этом.

AIK (2009-12-10 09:06:00) [1]
diskfreeболее проше
смотри в модуле SysUtils, сама функция DiskFreeтак же использует GetDiskFreeSpaceEx

Xmen (2009-12-10 08:46:00) [2]
а так можно
var
FreeBytesAvailableToCaller: TLargeInteger;
FreeSize: TLargeInteger;
TotalSize: TLargeInteger;
frsp:Double;
begin
GetDiskFreeSpaceEx('D:',FreeBytesAvailableToCaller,Totalsize,@FreeSize);
frsp:=FreeSize/(1024*1024*1024);
ShowMessage(FloatToStr(frsp));
ShowMessage(FloatToStr(FreeSize));

который из них правильно работает.
пока у меня оба правильно показали размер

AIK (2009-12-10 08:34:00) [3]
var b: Byte; begin b:=ord('C')-64; //Локальный диск С Edit1.Text:= Inttostr(diskfree(b)); end;

Xmen (2009-12-10 07:28:00) [4]
Просто нужно узнать оставшийся пустое место диска.

Xmen (2009-12-10 07:24:00) [5]
ещё один вопрос как можно определить объём диска. есть ли диск полный программа должна об этом сообщить.

Xmen (2009-12-10 07:01:00) [6]
вам прямо в башорг :)

Медвежонок Пятачок (2009-12-09 16:12:00) [7]
не знаю, возможно с рождеством я и ошибся.
наверное они отмечали какой-то языческий культ поклонения чупачупсу.

Anatoly Podgoretsky (2009-12-09 16:10:00) [8]
> Медвежонок Пятачок (09.12.2009 16:02:23) [23]

У них что закуски не хватило?

Медвежонок Пятачок (2009-12-09 16:02:00) [9]
и пинг здесь совершенно не при чем.

вот например тебе надо купить в магазине чупа-чупс.
но ты осторожный, и не хочешь ходить в магазины зря.

ты выглядываешь в окно и видишь, что в магазине горит свет и слышны голоса.
ты одеваешься и идешь за чупа-чупсом.
а магазин на самом деле закрыт.
а свет и голоса - это рабочий коллектив магаза празднует католическое рождество. все уже час как пьяные, выручка сдана, касса закрыта и главное все чупа-чупсы уже съедены.

clickmaker (2009-12-09 16:01:00) [10]
> чтобы клиентская программа не завис

если сервер недоступен, то по таймауту отвиснет.
останется поймать код ошибки.
Его все функции, которые можно использовать для копирования, возвращают так или иначе

Xmen (2009-12-09 15:58:00) [11]
Это и хотел у вас узнать. :)
если я бы знал это то не спрашивал бы.

Медвежонок Пятачок (2009-12-09 15:51:00) [12]
в момент проверки все есть.
сразу после проверки уже нет (потух свет).

и твой программа завис, хотя проверка сказала, что все ок.

твои действия?

Xmen (2009-12-09 15:48:00) [13]
Мне нужно это программно проверит, чтобы клиентская программа не завис.

Медвежонок Пятачок (2009-12-09 15:42:00) [14]
доступ к папке есть, нежно проверит сервер, доступен ли он для коннекта.

Доступ к папке есть, но сервер недоступен для коннекта.
Какие твои действия?

clickmaker (2009-12-09 15:42:00) [15]
> нежно проверит сервер

попроси админа: "Проверь сервер. Только нежно"

Медвежонок Пятачок (2009-12-09 15:40:00) [16]
сказка про белого бычка.
ну нет допустим доступа.

и ты без проверки будешь копировать файл с одной шары на другую.
И что при этом?
Все скопируется и не будет сообщения об ошибке?

Xmen (2009-12-09 15:39:00) [17]

> Медвежонок Пятачок © (09.12.09 15:31) [14]
> то должно появится сообщение.а сейчас, если связи с сервером
> нет, то доступ к серверу все равно есть и нет сообщения?
>

доступ к папке есть, нежно проверит сервер, доступен ли он для коннекта.

Медвежонок Пятачок (2009-12-09 15:31:00) [18]
то должно появится сообщение.

а сейчас, если связи с сервером нет, то доступ к серверу все равно есть и нет сообщения?

Xmen (2009-12-09 15:30:00) [19]
Да нет.
Сделал когда то почтовую прогу для нужд фирмы.
прога из 3 частей.
1. Клиент для филиала
2. Клиент для главного офиса
3. Серверная часть.
Идея такая в фирме есть примерно 20 отделов. каждый отдел имеет свой шифр. клиент филиала в архивированном виде отправляет файл для отдела через зашишенный канал. серверная прога принимает архивированный файл, открывает и по шифру файла помешает в определённую папку. (организовано работа с базой FiriBird) Это часть работает нормально. На сервере открыто доступ 2 папкам это архив и прем/отправка. Архив ведется по отправленным и принятием файлам.
клиент главного филиала сформирует файл для филиалов и помешает его в архив отправленных и в папку отправления. Вот здесь мне надо проверка сервера на работе с сетью. а то всякое может быть, если отрицательны ответ то должно появится сообщение.

Медвежонок Пятачок (2009-12-09 15:11:00) [20]
Как можно это сделать программно.

на кой леший это надо?

боишсья, что с выключенного сервера кто-то скачает файл, если у тебя проверки не будет?

Страницы: 1 2 >

Наверх

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