2000 Гц

4000 Гц

8000 Гц

86 дБ

71 дБ

61 дБ

54 дБ

49 дБ

45 дБ

42 дБ

40 дБ

38 дБ

50

Измерение уровня звука и уровней звукового давления проводится на расстоянии 50 см от поверхности оборудования и на высоте расположения источника(ков) звука.

2.4. Временные допустимые уровни электромагнитных полей (ЭМП), создаваемых ПЭВМ, не должны превышать значений, представленных таблице 6.3

Таблица 6.3 - Временные допустимые уровни ЭМП, создаваемых ПЭВМ

Наименование параметров	ВДУ ЭМП
Напряженность электрического поля	в диапазоне частот 5 Гц - 2 кГц	25 В/м
	в диапазоне частот 2 кГц - 400 кГц	2,5 В/м
Плотность магнитного потока	в диапазоне частот 5 Гц - 2 кГц	250 нТл
	в диапазоне частот 2 кГц - 400 кГц	25 нТл
Электростатический потенциал экрана видеомонитора	500 В

2.5. Допустимые визуальные параметры устройств отображения информации представлены в таблице 6.4.

Таблица6.4 - Допустимые визуальные параметры устройств отображения информации

N	Параметры	Допустимые значения
1	Яркость белого поля	Не менее 35 кд/кв.м
2	Неравномерность яркости рабочего поля	Не более +-20%
3	Контрастность (для монохромного режима)	Не менее 3:1
4	Временная нестабильность изображения (непреднамеренное изменение во времени яркости изображения на экране дисплея)	Не должна фиксироваться
5	Пространственная нестабильность изображения (непреднамеренные изменения положения фрагментов изображения на экране)	Не более 2 х 10(-4L), где L - проектное расстояние наблюдения, мм

Для дисплеев на ЭЛТ частота обновления изображения должна быть не менее 75 Гц при всех режимах разрешения экрана, гарантируемых нормативной документацией на конкретный тип дисплея и не менее 60 Гц для дисплеев на плоских дискретных экранах (жидкокристаллических, плазменных и т.п.).

2.6. Концентрации вредных веществ, выделяемых ПЭВМ в воздух помещений, не должны превышать предельно допустимых концентраций (ПДК), установленных для атмосферного воздуха.

2.7. Мощность экспозиционной дозы мягкого рентгеновского излучения в любой точке на расстоянии 0,05 м от экрана и корпуса ВДТ (на электроннолучевой трубке) при любых положениях регулировочных устройств не должна превышать 1 мкЗв/час (100 мкР/час).

2.8. Конструкция ПЭВМ должна обеспечивать возможность поворота корпуса в горизонтальной и вертикальной плоскости с фиксацией в заданном положении для обеспечения фронтального наблюдения экрана ВДТ. Дизайн ПЭВМ должен предусматривать окраску корпуса в спокойные мягкие тона с диффузным рассеиванием света. Корпус ПЭВМ, клавиатура и другие блоки и устройства ПЭВМ должны иметь матовую поверхность с коэффициентом отражения 0,4 - 0,6 и не иметь блестящих деталей, способных создавать блики.

2.9. Конструкция ВДТ должна предусматривать регулирование яркости и контрастности.

2.10. Документация на проектирование, изготовление и эксплуатацию ПЭВМ не должна противоречить требованиям настоящих санитарных правил.

3. Требования к помещениям для работы с ПЭВМ

3.1. Помещения для эксплуатации ПЭВМ должны иметь естественное и искусственное освещение. Эксплуатация ПЭВМ в помещениях без естественного освещения допускается только при соответствующем обосновании и наличии положительного санитарно-эпидемиологического заключения, выданного в установленном порядке.

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

3.3. Не допускается размещение мест пользователей ПЭВМ во всех образовательных и культурно-развлекательных учреждениях для детей и подростков в цокольных и подвальных помещениях.

3.4. Площадь на одно рабочее место пользователей ПЭВМ с ВДТ на базе электроннолучевой трубки (ЭЛТ) должна составлять не менее 6 м2, в помещениях культурно-развлекательных учреждений и с ВДТ на базе плоских дискретных экранов (жидкокристаллические, плазменные) - 4,5 м2.

При использовании ПВЭМ с ВДТ на базе ЭЛТ (без вспомогательных устройств - принтер, сканер и др.), отвечающих требованиям международных стандартов безопасности компьютеров, с продолжительностью работы менее 4-х часов в день допускается минимальная площадь 4,5 м2 на одно рабочее место пользователя (взрослого и учащегося высшего профессионального образования).

3.5. Для внутренней отделки интерьера помещений, где расположены ПЭВМ, должны использоваться диффузно-отражающие материалы с коэффициентом отражения для потолка - 0,7-0,8; для стен - 0,5-0,6; для пола - 0,3-0,5.

3.6. Полимерные материалы используются для внутренней отделки интерьера помещений с ПЭВМ при наличии санитарно-эпидемиологического заключения.

3.7. Помещения, где размещаются рабочие места с ПЭВМ, должны быть оборудованы защитным заземлением (занулением) в соответствии с техническими требованиями по эксплуатации.

3.8. Не следует размещать рабочие места с ПЭВМ вблизи силовых кабелей и вводов, высоковольтных трансформаторов, технологического оборудования, создающего помехи в работе ПЭВМ.

IV. Требования к микроклимату, содержанию аэроионов и вредных химических веществ в воздухе на рабочих местах, оборудованных ПЭВМ

4.1. В производственных помещениях, в которых работа с использованием ПЭВМ является вспомогательной, температура, относительная влажность и скорость движения воздуха на рабочих местах должны соответствовать действующим санитарным нормам микроклимата производственных помещений.

4.2. В производственных помещениях, в которых работа с использованием ПЭВМ является основной (диспетчерские, операторские, расчетные, кабины и посты управления, залы вычислительной техники и др.) и связана с нервно-эмоциональным напряжением, должны обеспечиваться оптимальные параметры микроклимата для категории работ 1а и 1б в соответствии с действующими санитарно-эпидемиологическими нормативами микроклимата производственных помещений. На других рабочих местах следует поддерживать параметры микроклимата на допустимом уровне, соответствующем требованиям указанных выше нормативов.

4.3. В помещениях всех типов образовательных и культурно-развлекательных учреждений для детей и подростков, где расположены ПЭВМ, должны обеспечиваться оптимальные параметры микроклимата

Временные допустимые уровни ЭМП, создаваемых ПЭВМ на рабочих местах таблица 6.5

Таблица 6.5 Временные допустимые уровни ЭМП, создаваемых ПЭВМ на рабочих местах

Наименование параметров	ВДУ
Напряженность электрического поля	в диапазоне частот 5 Гц - 2 кГц	25 В/м
	в диапазоне частот 2 кГц - 400 кГц	2,5 В/м
Плотность магнитного потока	в диапазоне частот 5 Гц - 2 кГц	250 нТл
	в диапазоне частот 2 кГц - 400 кГц	25 нТл
Напряженность электростатического поля	15 кВ/м

Таблица 6.6 - Оптимальные параметры микроклимата во всех типах учебных и дошкольных помещенийс использованием ПЭВМ

Температура, С°	Относительная влажность, %	Абсолютная влажность, г/м3	Скорость движения воздуха, м/с
19	62	10	<0,1
20	58	10	<0,1
21	55	10	<0,1

Таблица 6.7-Визуальные параметры ВДТ, контролируемые на рабочих местах

N	Параметры	Допустимые значения
1	Яркость белого поля	Не менее 35 кд/кв.м
2	Неравномерность яркости рабочего поля	Не более +-20%
3	Контрастность (для монохромного режима)	Не менее 3:1
4	Временная нестабильность изображения (мелькания)	Не должна фиксироваться
5	Пространственная нестабильность изображения (дрожание)	Не более 2 х 10(-4L), где L - проектное расстояние наблюдения, мм

4.4. В помещениях, оборудованных ПЭВМ, проводится ежедневная влажная уборка и систематическое проветривание после каждого часа работы на ПЭВМ.

4.5. Уровни положительных и отрицательных аэроионов в воздухе помещений, где расположены ПЭВМ, должны соответствовать действующим санитарно-эпидемиологическим нормативам.

4.6. Содержание вредных химических веществ в воздухе производственных помещений, в которых работа с использованием ПЭВМ является вспомогательной, не должно превышать предельно допустимых концентраций вредных веществ в воздухе рабочей зоны в соответствии с действующими гигиеническими нормативами.

4.7. Содержание вредных химических веществ в производственных помещениях, в которых работа с использованием ПЭВМ является основной (диспетчерские, операторские, расчетные, кабины и посты управления, залы вычислительной техники и др.), не должно превышать предельно допустимых концентраций загрязняющих веществ в атмосферном воздухе населенных мест в соответствии с действующими гигиеническими нормативами.

4.8. Содержание вредных химических веществ в воздухе помещений, предназначенных для использования ПЭВМ во всех типах образовательных учреждений, не должно превышать предельно допустимых среднесуточных концентраций для атмосферного воздуха в соответствии с действующими санитарно-эпидемиологическими нормативами.

5. Требования к уровням шума и вибрации на рабочих местах, оборудованных ПЭВМ

5.1. В производственных помещениях при выполнении основных или вспомогательных работ с использованием ПЭВМ уровни шума на рабочих местах не должны превышать предельно допустимых значений, установленных для данных видов работ в соответствии с действующими санитарно-эпидемиологическими нормативами.

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

5.3. При выполнении работ с использованием ПЭВМ в производственных помещениях уровень вибрации не должен превышать допустимых значений вибрации для рабочих мест (категория 3, тип "в") в соответствии с действующими санитарно-эпидемиологическими нормативами. В помещениях всех типов образовательных и культурно-развлекательных учреждений, в которых эксплуатируются ПЭВМ, уровень вибрации не должен превышать допустимых значений для жилых и общественных зданий в соответствии с действующими санитарно-эпидемиологическими нормативами.

5.4. Шумящее оборудование (печатающие устройства, серверы и т.п.), уровни шума которого превышают нормативные, должно размещаться вне помещений с ПЭВМ.

6. Требования к освещению на рабочих местах, оборудованных ПЭВМ

6.1. Рабочие столы следует размещать таким образом, чтобы видеодисплейные терминалы были ориентированы боковой стороной к световым проемам, чтобы естественный свет падал преимущественно слева.

6.2. Искусственное освещение в помещениях для эксплуатации ПЭВМ должно осуществляться системой общего равномерного освещения. В производственных и административно-общественных помещениях, в случаях преимущественной работы с документами, следует применять системы комбинированного освещения (к общему освещению дополнительно устанавливаются светильники местного освещения, предназначенные для освещения зоны расположения документов).

6.3. Освещенность на поверхности стола в зоне размещения рабочего документа должна быть 300-500 лк. Освещение не должно создавать бликов на поверхности экрана. Освещенность поверхности экрана не должна быть более 300 лк.

6.4. Следует ограничивать прямую блесткость от источников освещения, при этом яркость светящихся поверхностей (окна, светильники и др.), находящихся в поле зрения, должна быть не более 200 кд/м2.

6.5. Следует ограничивать отраженную блесткость на рабочих поверхностях (экран, стол, клавиатура и др.) за счет правильного выбора типов светильников и расположения рабочих мест по отношению к источникам естественного и искусственного освещения, при этом яркость бликов на экране ПЭВМ не должна превышать 40 кд/м2 и яркость потолка не должна превышать 200 кд/м2.

6.6. Показатель ослепленности для источников общего искусственного освещения в производственных помещениях должен быть не более 20. Показатель дискомфорта в административно-общественных помещениях не более 40, в дошкольных и учебных помещениях не более 15.

6.7. Яркость светильников общего освещения в зоне углов излучения от 50 до 90 градусов с вертикалью в продольной и поперечной плоскостях должна составлять не более 200 кд/м2, защитный угол светильников должен быть не менее 40 градусов.

6.8. Светильники местного освещения должны иметь не просвечивающий отражатель с защитным углом не менее 40 градусов.

6.9. Следует ограничивать неравномерность распределения яркости в поле зрения пользователя ПЭВМ, при этом соотношение яркости между рабочими поверхностями не должно превышать 3:1-5:1, а между рабочими поверхностями и поверхностями стен и оборудования 10:1.

6.10. В качестве источников света при искусственном освещении следует применять преимущественно люминесцентные лампы типа ЛБ и компактные люминесцентные лампы (КЛЛ). При устройстве отраженного освещения в производственных и административно-общественных помещениях допускается применение металлогалогенных ламп. В светильниках местного освещения допускается применение ламп накаливания, в том числе галогенных.

6.11. Для освещения помещений с ПЭВМ следует применять светильники с зеркальными параболическими решетками, укомплектованными электронными пуско-регулирующими аппаратами (ЭПРА). Допускается использование многоламповых светильников с электромагнитными пуско-регулирующими аппаратами (ЭПРА), состоящими из равного числа опережающих и отстающих ветвей. Применение светильников без рассеивателей и экранирующих решеток не допускается. При отсутствии светильников с ЭПРА лампы многоламповых светильников или рядом расположенные светильники общего освещения следует включать на разные фазы трехфазной сети.

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

6.13. Коэффициент запаса (Кз) для осветительных установок общего освещения должен приниматься равным 1,4.

6.14. Коэффициент пульсации не должен превышать 5%.

6.15. Для обеспечения нормируемых значений освещенности в помещениях для использования ПЭВМ следует проводить чистку стекол оконных рам и светильников не реже двух раз в год и проводить своевременную замену перегоревших ламп.

7. Требования к уровням электромагнитных полей на рабочих местах, оборудованных ПЭВМ

7.1. Временные допустимые уровни ЭМП, создаваемых ПЭВМ на рабочих местах пользователей, а также в помещениях образовательных, дошкольных и культурно-развлекательных учреждений, представлены в приложении 2 (таблица 1).

7.2. Методика проведения инструментального контроля уровней ЭМП на рабочих местах пользователей ПЭВМ представлена в Приложении 3.

7.2 Методика инструментального контроля и гигиенической оценки
уровней электромагнитных полей на рабочих местах

7.3. Общие положения

7.3.1. Инструментальный контроль электромагнитной обстановки на рабочих местах пользователей ПЭВМ производится:

- при вводе ПЭВМ в эксплуатацию и организации новых и реорганизации рабочих мест;

- после проведения организационно-технических мероприятий, направленных на нормализацию электромагнитной обстановки;

- при аттестации рабочих мест по условиям труда;

- по заявкам предприятий и организаций.

7.3.2. Инструментальный контроль осуществляется органами ГСЭН и (или) испытательными лабораториями (центрами), аккредитованными в установленном порядке.

7.4. Требования к средствам измерений

7.4.1. Инструментальный контроль уровней ЭМП должен осуществляться приборами с допускаемой основной относительной погрешностью измерений +-20%, включенными в Государственный реестр средств измерения и имеющими действующие свидетельства о прохождении Государственной поверки.

7.4.2. Следует отдавать предпочтение измерителям с изотропными антеннами-преобразователями.

7.5. Подготовка к проведению инструментального контроля

7.5.1. Составить план (эскиз) размещения рабочих мест пользователей ПЭВМ в помещении.

7.5.2. Занести в протокол сведения об оборудовании рабочего места - наименования устройств ПЭВМ, фирм-производителей, моделей и заводские (серийные) номера.

7.5.3. Занести в протокол сведения о наличии санитарно-эпидемиологического заключения на ПЭВМ и приэкранные фильтры (при их наличии).

7.5.4. Установить на экране ВДТ типичное для данного вида работы изображение (текст, графики и др.).

7.5.5. При проведении измерений должна быть включена вся вычислительная техника, ВДТ и другое используемое для работы электрооборудование, размещенное в данном помещении.

7.5.6. Измерения параметров электростатического поля проводить не ранее, чем через 20 минут после включения ПЭВМ.

7.6. Проведение измерений

7.6.1. Измерение уровней переменных электрических и магнитных полей, статических электрических полей на рабочем месте, оборудованном ПЭВМ, производится на расстоянии 50 см от экрана на трех уровнях на высоте 0,5 м, 1,0 м и 1,5 м

7.7. Гигиеническая оценка уровней ЭМП на рабочих местах

7.7.1. Гигиеническая оценка результатов измерений должна осуществляться с учетом погрешности используемого средства метрологического контроля.

7.7.2. Если на обследуемом рабочем месте, оборудованном ПЭВМ, интенсивность электрического и/или магнитного поля в диапазоне 5 - 2000 Гц превышает значения, приведенные в таблице 5, следует проводить измерения фоновых уровней ЭМП промышленной частоты (при выключенном оборудовании). Фоновый уровень электрического поля частотой 50 Гц не должен превышать 500 В/м. Фоновые уровни индукции магнитного поля не должны превышать значений, вызывающих нарушения требований к визуальным параметрам ВДТ (таблица 6).

8. Требования к визуальным параметрам ВДТ, контролируемым на рабочих местах

8.1. Предельно допустимые значения визуальных параметров ВДТ, контролируемые на рабочих местах, представлены в приложении 2 (таблица 3).

9. Общие требования к организации рабочих мест пользователей ПЭВМ

9.1. При размещении рабочих мест с ПЭВМ расстояние между рабочими столами с видеомониторами (в направлении тыла поверхности одного видеомонитора и экрана другого видеомонитора), должно быть не менее 2,0 м, а расстояние между боковыми поверхностями видеомониторов - не менее 1,2 м.

9.2. Рабочие места с ПЭВМ в помещениях с источниками вредных производственных факторов должны размещаться в изолированных кабинах с организованным воздухообменом.

9.3. Рабочие места с ПЭВМ при выполнении творческой работы, требующей значительного умственного напряжения или высокой концентрации внимания, рекомендуется изолировать друг от друга перегородками высотой 1,5-2,0 м.

9.4. Экран видеомонитора должен находиться от глаз пользователя на расстоянии 600-700 мм, но не ближе 500 мм с учетом размеров алфавитно-цифровых знаков и символов.

9.5. Конструкция рабочего стола должна обеспечивать оптимальное размещение на рабочей поверхности используемого оборудования с учетом его количества и конструктивных особенностей, характера выполняемой работы. При этом допускается использование рабочих столов различных конструкций, отвечающих современным требованиям эргономики. Поверхность рабочего стола должна иметь коэффициент отражения 0,5-0,7.

9.6. Конструкция рабочего стула (кресла) должна обеспечивать поддержание рациональной рабочей позы при работе на ПЭВМ позволять изменять позу с целью снижения статического напряжения мышц шейно-плечевой области и спины для предупреждения развития утомления. Тип рабочего стула (кресла) следует выбирать с учетом роста пользователя, характера и продолжительности работы с ПЭВМ.

Рабочий стул (кресло) должен быть подъемно-поворотным, регулируемым по высоте и углам наклона сиденья и спинки, а также расстоянию спинки от переднего края сиденья, при этом регулировка каждого параметра должна быть независимой, легко осуществляемой и иметь надежную фиксацию.

9.7. Поверхность сиденья, спинки и других элементов стула (кресла) должна быть полумягкой, с нескользящим, слабо электризующимся и воздухопроницаемым покрытием, обеспечивающим легкую очистку от загрязнений.

10. Требования к организации и оборудованию рабочих мест с ПЭВМ для взрослых пользователей

10.1. Высота рабочей поверхности стола для взрослых пользователей должна регулироваться в пределах 680-800 мм; при отсутствии такой возможности высота рабочей поверхности стола должна составлять 725 мм.

10.2. Модульными размерами рабочей поверхности стола для ПЭВМ, на основании которых должны рассчитываться конструктивные размеры, следует считать: ширину 800, 1000, 1200 и 1400 мм, глубину 800 и 1000 мм при нерегулируемой его высоте, равной 725 мм.

10.3. Рабочий стол должен иметь пространство для ног высотой не менее 600 мм, шириной не менее 500 мм, глубиной на уровне колен не менее 450 мм и на уровне вытянутых ног не менее 650 мм.

10.4. Конструкция рабочего стула должна обеспечивать:

- ширину и глубину поверхности сиденья не менее 400 мм;

- поверхность сиденья с закругленным передним краем;

- регулировку высоты поверхности сиденья в пределах 400-550 мм и углам наклона вперед до 15 град, и назад до 5 град.;

- высоту опорной поверхности спинки 300+-20 мм, ширину не менее 380 мм и радиус кривизны горизонтальной плоскости 400 мм;

- угол наклона спинки в вертикальной плоскости в пределах +-30 градусов;

- регулировку расстояния спинки от переднего края сиденья в пределах 260-400 мм; - стационарные или съемные подлокотники длиной не менее

250 мм и шириной 50-70 мм;

- регулировку подлокотников по высоте над сиденьем в пределах 230+-30 мм и внутреннего расстояния между подлокотниками в пределах 350-500 мм.

10.5. Рабочее место пользователя ПЭВМ следует оборудовать подставкой для ног, имеющей ширину не менее 300 мм, глубину не менее 400 мм, регулировку по высоте в пределах до 150 мм и по углу наклона опорной поверхности подставки до 20°. Поверхность подставки должна быть рифленой и иметь по переднему краю бортик высотой 10 мм.

10.6. Клавиатуру следует располагать на поверхности стола на расстоянии 100-300 мм от края, обращенного к пользователю или на специальной, регулируемой по высоте рабочей поверхности, отделенной от основной столешницы.

11. Требования к организации и оборудованию рабочих мест с ПЭВМ для обучающихся в общеобразовательных учреждениях и работников организаций, юридических лиц.

11.1. Помещения для занятий оборудуются одноместными столами, предназначенными для работы с ПЭВМ.

11.2 Конструкция одноместного стола для работы с ПЭВМ должна предусматривать:

- две раздельные поверхности: одна горизонтальная для размещения ПЭВМ с плавной регулировкой по высоте в пределах 520-760 мм и вторая для клавиатуры с плавной регулировкой по высоте и углу наклона от 0 до 15 градусов с надежной фиксацией в оптимальном рабочем положении (12-15 градусов);

- ширину поверхностей для ВДТ и клавиатуры не менее 750 мм (ширина обеих поверхностей должна быть одинаковой) и глубину не менее 550 мм;

- опору поверхностей для ПЭВМ или ВДТ и для клавиатуры на стояк, в котором должны находится провода электропитания и кабель локальной сети. Основание стояка следует совмещать с подставкой для ног;

- отсутствие ящиков;

- увеличение ширины поверхностей до 1200 мм при оснащении рабочего места принтером.

11.3. Высота края стола, обращенного к работающему с ПЭВМ, и высота пространства для ног должны соответствовать росту обучающихся в обуви

Таблица 6.8 - Высота одноместного стола для занятий с ПЭВМ

Рост операторов или работиков в обуви, см	Высота над полом, мм
	поверхность стола	пространство для ног, не менее
116-130	520	400
131-145	580	520
146-160	640	580
161-175	700	640
выше 175	760	700

Примечание: ширина и глубина пространства для ног определяются конструкцией стола.

11.4. При наличии высокого стола и стула, несоответствующего росту обучающихся, следует использовать регулируемую по высоте подставку для ног.

11.5. Линия взора должна быть перпендикулярна центру экрана и оптимальное ее отклонение от перпендикуляра, проходящего через центр экрана в вертикальной плоскости, не должно превышать +-5 градусов, допустимое +-10 градусов.

11.6. Рабочее место с ПЭВМ оборудуют стулом, основные размеры которого должны соответствовать росту обучающихся в обуви (

Таблица 6.9. - Основные размеры стула для учащихся и студентов

Параметры стула	Рост учащихся и студентов в обуви, см
	116-130	131-145	146-160	161-175	>175
Высота сиденья над полом, мм	300	340	380	420	460
Ширина сиденья, не менее, мм	270	290	320	340	360
Глубина сиденья, мм	290	330	360	380	400
Высота нижнего края спинки над сиденьем, мм	130	150	160	170	190
Высота верхнего края спинки над сиденьем, мм	280	310	330	360	400
Высота линии прогиба спинки, не менее, мм	170	190	200	210	220
Радиус изгиба переднего края сиденья, мм	20-50
Угол наклона сиденья, °	0-4
Угол наклона спинки, °	95-108
Радиус спинки в плане, не менее, мм	300

Таблица 6.10 - Размеры стула для занятий с ПЭВМ детей дошкольного возраста

Параметры стула	Размеры, не менее, мм
Высота сиденья над полом	260
Ширина сиденья	250
Глубина сиденья	260
Высота нижнего края спинки над сиденьем	120
Высота верхнего края спинки над сиденьем	250
Высота прогиба спинки	160
Радиус изгиба переднего края сиденья	20-50

Замена стульев табуретками или скамейками не допускается.

12.4. Поверхность сиденья стула должна легко поддаваться дезинфекции.

13. Требования к организации медицинского обслуживания пользователей ПЭВМ

13.1. Лица, работающие с ПЭВМ более 50% рабочего времени (профессионально связанные с эксплуатацией ПЭВМ), должны проходить обязательные предварительные при поступлении на работу и периодические медицинские осмотры в установленном порядке.

13.2. Женщины со времени установления беременности переводятся на работы, не связанные с использованием ПЭВМ, или для них ограничивается время работы с ПЭВМ (не более 3-х часов за рабочую смену) при условии соблюдения гигиенических требований, установленных настоящими санитарными правилами. Трудоустройство беременных женщин следует осуществлять в соответствии с законодательством Российской Федерации.

13.3. Медицинское освидетельствование студентов высших учебных заведений, учащихся средних специальных учебных заведений, детей дошкольного и школьного возраста на предмет установления противопоказаний к работе с ПЭВМ проводится в установленном порядке.

14. Требования к проведению государственного санитарно-эпидемиологического надзора и производственного контроля

14.1. Государственный санитарно-эпидемиологический надзор за производством и эксплуатацией ПЭВМ осуществляется в соответствии с настоящими Санитарными правилами.

14.2. Не допускается реализация и эксплуатация на территории Российской Федерации типов ПЭВМ, не имеющих санитарно-эпидемиологического заключения.

14.3. Инструментальный контроль за соблюдением требований настоящих Санитарных правил осуществляется в соответствии с действующей нормативной документацией.

14.4. Производственный контроль за соблюдением санитарных правил осуществляется производителем и поставщиком ПЭВМ, а также предприятиями и организациями, эксплуатирующими ПЭВМ .

ЗАКЛЮЧЕНИЕ

Таким образом, в результате выполнения данного дипломного проекта в соответствии с техническим заданием разработан комплекс программно-технических средств автоматизированного рабочего места специалиста по сопровождению Интернет - представительства ОАО «Исток-4», - компании, специализирующейся на предоставлении услуг в области ресторанного бизнеса.

Получены следующие основные результаты.

1. Рассмотрена и проанализирована конфигурация сетевой и информационной инфраструктуры центрального офиса компании ООО «Исток-4». Сделан вывод о том, что существующая конфигурация, состав технических средств и программное обеспечение позволяет без существенной модернизации обеспечить возможность эффективного функционирования программно-технического комплекса АРМ, в том числе Web-сервера с сайтом фирмы.

2. Определен состав АРМ специалиста по сопровождению Интернет-представительства ООО «Исток-4».

3. Выработаны основные требования к Web-сайту фирмы.

4. На основании проведенных обзоров осуществлен выбор технологий и программных средств АРМ, а именно:

· технология, реализующая задачу создания динамического Web-сайта - ASP .NET;

· среда Web-приложений - CodeGear RAD Studio 2007;

· средство реализации статической части Web-сайта и его дизайнерского оформления - Adobe Dreamweaver CS3;

· серверная СУБД - MS SQL Server 2000;

· Web-сервер - Microsoft Internet Information Server 6.0;

· программное средство коллективного доступа в Интернет- UserGate.

5. Разработан и протестирован специализированный ftp-клиент, назначение которого состоит в автоматизации операций обновления сайта.

6. Определены цели и задачи модернизации программно-технических средств ЛВС центрального офиса фирмы в рамках поставленной задачи разработки и поддержки динамического сайта компании.

7. Проведен расчет надежности работы Web-сервера. Среднее время наработки до отказа составило 14,26 лет, а вероятность безотказной работы в первый год - 0,9322.

8. Составлен бизнес-план проекта разработки АРМ специалиста по сопровождению Интернет-представительства. Сметная стоимость проекта составляет 632,6 тыс. рублей; предполагаемый срок окупаемости - 2 года.

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

список литературы

Межгосударственный стандарт ГОСТ 34.003-90 "Информационная технология. Комплекс стандартов на автоматизированные системы. Автоматизированные системы. Термины и определения"

Елманова Н. Технологии создания корпоративных Интернет-решений // Компьютер-Пресс, №2, 2005.

Microsoft® Expression™ Web Designer /Microsoft Corp., <office.microsoft.com/ru-ru/frontpage/>

Adobe GoLive 9 // Adobe, <adobe.com/products/golive>

Adobe Dreamweaver CS3 // Adobe, < adobe.com/products/dreamweaver/ >

Прохоров А. Обзор HTML-редакторов // Компьютер-Пресс, №2, 2004.

MS Visual Studio.NET // Microsoft Corp., <microsoft.com/ru>

CodeGear RAD Studio 2007// Borland Corp., <http://www.codegear.com/products/radstudio >

Кульгин М. Технилогии корпоративных сетей. Энциклопедия. - СПб.: Издательство «Питер», 2000 г.

Microsoft Corporation. Компьютерные сети +. Учебный курс: официальное пособие Microsoft для самостоятельной подготовки / Пер. с англ. - М.: Издательско-торговый дом «Русская редакция», 2000 г.

Новиков Ю.В, Кондратенко С.В. Локальные сети: архитектура, алгоритмы, проектирование. - М.: Издательство ЭКОМ, 2000 г.

Гук М. Аппаратные средства локальных сетей. Энциклопедия. - СПб.: Питер, 2002.

Олифер В.Г., Олифер Н.Н. Сетевые операционные системы: Учебник для вузов. - СПб: Питер, 2002.

А.В. Гордеев, А.Ю. Молчанов. Системное программное обеспечение. Учебник для вузов. - СПб.: Питер, 2002.

Информатика. Базовый курс / Симонович С.В. и др. - Спб: "Питер", 2001 г.

Технологии разработки программного обеспечения: Учебник / С. А. Орлов. - СПб.: Питер, 2002. - 464 с.

А.Я. Архангельский. Программирование в Delphi 7. - М.: ООО «Бином-Пресс», 2005 г. - 1152 с.

В.П. Котляров. Основы тестирования программного обеспечения. М.: ООО «Бином-Пресс», 2006 г. - 285 с.

В.В. Липаев. Документирование сложных программных средств. - М.: Синтег, 2005 г. - 216 с.

Интернет. Энциклопедия / Под ред. Л. Мелиховой - Спб.: Питер. - 2001 г.

Дуглас Э. Камер. Компьютерные сети и Internet. Разработка приложений для Internet: Пер. с англ. - М. : Издательский дом «Вильямс», 2002 г.

Ньюкомер Э. Веб-сервисы: XML, WSDL, SOAP and UDDI. - Спб.: Питер. - 2003 г.

Айверсон Уилл. Популярные web-сервисы: практика использования. - М.:Кудиц-образ. - 2005 г.

Лонгоботтом Р. Надежность вычислительных систем. - М.: Энергоатомиздат, 1985 г.

Сибаров Ю.Г.,Сколотнев Н.Н.,Васин В.К.,Нагинаев В.Н. Охрана труда в вычислительных центрах: Учеб. для студентов сред. спец. учеб. заведений по специальности “Программирование для электронно-вычислительных машин и автоматизированных систем”. - М.: Машиностроение, 1990 г.

Трудовой кодекс Российской Федерации - М.: ООО «ВИТРЕМ», 2002 г.

А.П. Прокушева. Экономика информатики: Учебное пособие. - М.: Издательский Дом «Дашков и К», 2001.

Павлов А.В. Разработка бизнес-плана: Практические советы. - М.: Альянс-пресс, 2004 г.

Любанова Т. П., Мясоедова Л. В., Грамотенко Т. А., Олейникова Ю. А. Бизнес - план. Опыт, проблемы. - М.: Издательство: Книга сервис, 2003 г.

Кистанова И.Ю., Грачикова Н.А. Единые требования по оформлению курсовых и дипломных проектов (работ). Методические указания для студентов IV курса всех специальностей. - М.: Издательский центр РГОТУПС, 2004.

Горелик В.Ю., Осипов Л.А., Михайлов В.В. Методические указания по дипломному проектированию для студентов VI курса специальностей «ЭВМ» и «ИСЖ». - М.: Издательский центр РГОТУПС, 2004.

ГОСТ 7.32-2001. Отчет о научно-исследовательской работе. Структура и правила оформления.

приложения

Приложение 1

Технические средства ЛВС ООО «Исток-4»

Таблица П.1 - Технические средства (ТС) вычислительной сети

№	Оборудование	Назначение	Кол-во	Установленное ПО
Сетевое оборудование
1	Свитч D-link 4 порта	Коммутатор	1
2	Маршрутизатор ISDN Zyxel Prestige 202	Доступ в Internet	1
3	Сетевое окончание NTBA (ISDN) Network termination unit NT-300 (ETSI european standard)	Доступ к ISDN сети	1
4	Свитч D-Link, 16 портов	Коммутатор	2
5	ADSL Wi-Fi роутер D-link DSL-2640U	Доступ в Internet, беспроводный доступ для клиентов	1
Сервера
6	AMD-2500	Сервер ,бухгалтерии "ТурбоБухгалтер"	1	MS Windows XP Profesional SP3, MS IIS Windows XP MS SQL Server Турбо Бухгалтер7. Протокол: TCP/IP.
7	AMD Tution64x2- 2100	Сервер системного администратора	1	Windows XP SP3 SQL PHP4 MS Front Page 2003
8	Сервер R-Keeper	Сервер R-Keeper	1	Windows 2000 Server Сервер R-Keeper V6
Рабочие станции
9	ПК Pentium-2800	Рабочая станция бухгалтера	1	MS Windows XP Profesional
10	ПК Pentium-2800	Рабочая станция бухгалтера	1	MS Windows XP Profesional
11	ПК Pentium-2800	Рабочая станция бухгалтера	1	MS Windows XP Profesional
12	Принтер марочный Star SP28	Принтер марочный	4
13	Рабочая станция менеджеров	Рабочая станция менеджеров	1	MS Windows XP Profesional Клиент R-Keeper V6 (фронт-офис)
14	Лазерный принтер HP LJ 1200		2
15	Touch-screen терминал 8808T-T POS	Рабочее место кассира	4	MS Windows 2000 R Keeper client

Приложение 2

Листинг ftp-клиента для Web - публикаций

unit About_;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls;

type

TfrmAbout_ = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Button1: TButton;

RP: TLabel;

procedure Button1Click(Sender: TObject);

procedure FormDeactivate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmAbout_: TfrmAbout_;

implementation

uses Main_, SelDir_;

{$R *.DFM}

procedure TfrmAbout_.Button1Click(Sender: TObject);

begin

Close

end;

procedure TfrmAbout_.FormDeactivate(Sender: TObject);

begin

{ if ModalResult = mrOk then

begin

frmMainForm_.teSelectDir.Text:=frmSelectDir_.stvSelectDir.Path

end;}

end;

procedure TfrmAbout_.FormDestroy(Sender: TObject);

begin

{ if ModalResult = mrOk then

begin

frmMainForm_.teSelectDir.Text:=frmSelectDir_.stvSelectDir.Path

end;}

end;

end.

unit Main_;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, Menus, StdCtrls, ExtCtrls, About_,

Buttons, Spin, ShellAPI, Mask, Psock, NMFtp;

type

TfrmMainForm_ = class(TForm)

mnMainMenu_: TMainMenu;

mnHelp_: TMenuItem;

mnExit_: TMenuItem;

mnAbout_: TMenuItem;

PageControl1: TPageControl;

tsSetupFTP: TTabSheet;

tsSetupProgram: TTabSheet;

gbSetupFTP: TGroupBox;

gbSetupProxy_FW: TGroupBox;

gbArchiving: TGroupBox;

rgOrganiser: TRadioGroup;

teSelectDir: TEdit;

btnSelectDir: TSpeedButton;

lblSelectDir: TLabel;

seHorus: TSpinEdit;

seMinutes: TSpinEdit;

stHours: TStaticText;

stMinutes: TStaticText;

seInterval: TSpinEdit;

stInterval: TStaticText;

btnOK: TButton;

btnSaveSetup: TButton;

btnStart: TButton;

lblFTPServer: TLabel;

lblFTPUser: TLabel;

lblFTPPwd: TLabel;

lblFTPDir: TLabel;

lblProxyServer: TLabel;

lblProxyUser: TLabel;

lblFWPwd: TLabel;

teFTPServer: TEdit;

teFTPUser: TEdit;

teFTPDir: TEdit;

sbSelectFTPDir: TSpeedButton;

teProxyServer: TEdit;

teFWUser: TEdit;

nmftpMain: TNMFTP;

meFWPwd: TMaskEdit;

meFTPPwd: TMaskEdit;

lblFTPPort: TLabel;

seFTPPort: TSpinEdit;

lblProxyPort: TLabel;

seProxyPort: TSpinEdit;

cbUseFirewall: TCheckBox;

tmSendTimer: TTimer;

mnFile_: TMenuItem;

procedure mnExit_Click(Sender: TObject);

procedure mnAbout_Click(Sender: TObject);

procedure btnOKClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

procedure btnSelectDirClick(Sender: TObject);

procedure rgOrganiserClick(Sender: TObject);

procedure btnSaveSetupClick(Sender: TObject);

procedure tmSendTimerTimer(Sender: TObject);

procedure btnStartClick(Sender: TObject);

procedure teFTPServerChange(Sender: TObject);

procedure seFTPPortChange(Sender: TObject);

procedure teFTPUserChange(Sender: TObject);

procedure meFTPPwdChange(Sender: TObject);

procedure teFTPDirChange(Sender: TObject);

procedure teSelectDirChange(Sender: TObject);

procedure teProxyServerChange(Sender: TObject);

procedure seProxyPortChange(Sender: TObject);

procedure teFWUserChange(Sender: TObject);

procedure meFWPwdChange(Sender: TObject);

procedure cbUseFirewallClick(Sender: TObject);

procedure sbSelectFTPDirClick(Sender: TObject);

private

{ Private declarations }

procedure WMRestoreWindow(var Msg: TMessage); message WM_USER+1;

public

{ Public declarations }

end;

var

frmMainForm_: TfrmMainForm_;

PathStr_:String;

implementation

uses SelDir_, SelFTPDir_, Share_;

{$R *.dfm}

procedure ReadSettings;

var

tfsFileStream: TFileStream;

trReader: TReader;

begin

try

tfsFileStream := TFileStream.Create('setup.txt', fmOpenRead);

trReader := TReader.Create(tfsFileStream, $FF);

trReader.ReadListBegin;

if not trReader.EndOfList then frmMainForm_.teFTPServer.Text := trReader.ReadString;

if not trReader.EndOfList then frmMainForm_.seFTPPort.Value := trReader.ReadInteger;

if not trReader.EndOfList then frmMainForm_.teFTPUser.Text := trReader.ReadString;

if not trReader.EndOfList then frmMainForm_.teFTPDir.Text := trReader.ReadString;

if not trReader.EndOfList then frmMainForm_.teProxyServer.Text := trReader.ReadString;

if not trReader.EndOfList then frmMainForm_.seProxyPort.Value := trReader.ReadInteger;

if not trReader.EndOfList then frmMainForm_.cbUseFirewall.Checked := trReader.ReadBoolean;

if not trReader.EndOfList then frmMainForm_.teFWUser.Text := trReader.ReadString;

if not trReader.EndOfList then frmMainForm_.teSelectDir.Text := trReader.ReadString;

if not trReader.EndOfList then frmMainForm_.rgOrganiser.ItemIndex := trReader.ReadInteger;

if not trReader.EndOfList then frmMainForm_.seHorus.Value := trReader.ReadInteger;

if not trReader.EndOfList then frmMainForm_.seMinutes.Value := trReader.ReadInteger;

if not trReader.EndOfList then frmMainForm_.seInterval.Value := trReader.ReadInteger;

trReader.ReadListEnd;

trReader.Destroy;

tfsFileStream.Destroy;

except

; { Destroy не нужен, поскольку Create потерпела неудачу }

end;

end;

procedure WriteSettings;

var

tfsFileStream: TFileStream;

twWriter: TWriter;

begin

try

tfsFileStream := TFileStream.Create('setup.txt',

fmCreate or fmOpenWrite or fmShareDenyNone);

twWriter := TWriter.Create(tfsFileStream, $FF);

twWriter.WriteListBegin;

twWriter.WriteString(frmMainForm_.teFTPServer.Text);

twWriter.WriteInteger(frmMainForm_.seFTPPort.Value);

twWriter.WriteString(frmMainForm_.teFTPUser.Text);

twWriter.WriteString(frmMainForm_.teFTPDir.Text);

twWriter.WriteString(frmMainForm_.teProxyServer.Text);

twWriter.WriteInteger(frmMainForm_.seProxyPort.Value);

twWriter.WriteBoolean(frmMainForm_.cbUseFirewall.Checked);

twWriter.WriteString(frmMainForm_.teFWUser.Text);

twWriter.WriteString(frmMainForm_.teSelectDir.Text);

twWriter.WriteInteger(frmMainForm_.rgOrganiser.ItemIndex);

twWriter.WriteInteger(frmMainForm_.seHorus.Value);

twWriter.WriteInteger(frmMainForm_.seMinutes.Value);

twWriter.WriteInteger(frmMainForm_.seInterval.Value);

twWriter.WriteListEnd;

twWriter.Destroy;

tfsFileStream.Destroy;

except

; { Destroy не нужен, поскольку Create потерпела неудачу }

end;

end;

function c_GetTempPath: string;

var

Buffer: array[0..1023] of Char;

begin

SetString(Result, Buffer, GetTempPath(Sizeof(Buffer) - 1, Buffer));

end;

function CompressDir(const DirPath, UserNameStr:string): string;

var RarParamStr: String;

FileNameStr: String;

si: TStartupInfo;

pi: TProcessInformation;

begin

//подготовливаем записи si и pi к использованию

ZeroMemory(@si,sizeof(si));

si.cb := SizeOf(si);

//FillChar(pi, SizeOf(pi));

//подготовим параметры для рара

FileNameStr:=StringReplace(DateTimeToStr(Now), '.', '_', [rfReplaceAll]);

FileNameStr:=StringReplace(FileNameStr, ':', '_', [rfReplaceAll]);

FileNameStr:=c_GetTempPath + UserNameStr + '_'

+ StringReplace(FileNameStr, ' ', '_', [rfReplaceAll]) + '.rar';

RarParamStr:=' a -r -m5 -o+ -rr -s -y "';

RarParamStr:='rar.exe' + RarParamStr + FileNameStr + '" "' + DirPath + '"';

//попытаемся запустить рар

if CreateProcess(nil,

PChar(RarParamStr),

nil, nil, //безопасность по умолчанию

false, //не наследовать хэндлов

0, //флаги создания по умолчанию

nil, //переменные среды по умолчанию

nil, //текущая директория по умолчанию

si, //стартовая информация

pi) //а в эту запись получим информацию о созданом процессе

then

begin

//удалось запустить рар

//подождем пока рар работает

WaitForSingleObject(pi.hProcess, INFINITE);

//убираем мусор

CloseHandle(pi.hProcess);

CloseHandle(pi.hThread);

CompressDir := FileNameStr;

end

else

//выдаем сообщение об ощибке

CompressDir := '';

end;

procedure SetEnables;

begin

frmMainForm_.seFTPPort.Enabled := (frmMainForm_.teFTPServer.Text <> '');

frmMainForm_.teFTPUser.Enabled := frmMainForm_.seFTPPort.Enabled;

frmMainForm_.meFTPPwd.Enabled := frmMainForm_.seFTPPort.Enabled;

frmMainForm_.sbSelectFTPDir.Enabled :=

(frmMainForm_.seFTPPort.Enabled)

and (frmMainForm_.seFTPPort.Value > 0)

and (frmMainForm_.teFTPUser.Text <> '');

frmMainForm_.seProxyPort.Enabled := (frmMainForm_.teProxyServer.Text <> '');

frmMainForm_.teFWUser.Enabled := frmMainForm_.cbUseFirewall.Checked;

frmMainForm_.meFWPwd.Enabled := frmMainForm_.cbUseFirewall.Checked;

frmMainForm_.seHorus.Enabled := (frmMainForm_.rgOrganiser.ItemIndex = 1);

frmMainForm_.seMinutes.Enabled := frmMainForm_.seHorus.Enabled;

frmMainForm_.seInterval.Enabled := (frmMainForm_.rgOrganiser.ItemIndex = 2);

frmMainForm_.btnOK.Enabled :=

(frmMainForm_.teFTPServer.Text <> '')

and (frmMainForm_.seFTPPort.Value > 0)

and (frmMainForm_.teFTPUser.Text <> '')

and (frmMainForm_.teSelectDir.Text <> '')

and (frmMainForm_.teFTPDir.Text <> '');

frmMainForm_.btnStart.Enabled :=

(frmMainForm_.teFTPServer.Text <> '')

and (frmMainForm_.seFTPPort.Value > 0)

and (frmMainForm_.teFTPUser.Text <> '')

and (frmMainForm_.teSelectDir.Text <> '')

and (frmMainForm_.teFTPDir.Text <> '')

and (frmMainForm_.rgOrganiser.ItemIndex = 0);

end;

function CheckParams: string;

begin

CheckParams := '';

if (frmMainForm_.teProxyServer.Text <> '')

and (frmMainForm_.seProxyPort.Value = 0)

then CheckParams:= 'Неверная комбинация имени Proxy и порта Proxy!';

if (frmMainForm_.cbUseFirewall.Checked)

and (frmMainForm_.teFWUser.Text = '')

then CheckParams:= 'Не задано имя пользователя Firewall!';

end;

//-----------------------------------------------------

procedure TfrmMainForm_.mnExit_Click(Sender: TObject);

begin

Close

end;

procedure TfrmMainForm_.mnAbout_Click(Sender: TObject);

begin

frmAbout_.ShowModal

end;

procedure TfrmMainForm_.btnOKClick(Sender: TObject);

var Hour, Min, Sec, MSec: Word;

TimeInterval:TDateTime;

CheckStr: string;

begin

CheckStr := CheckParams;

if CheckStr <> '' then

begin

MessageBox(Handle,PChar(CheckStr),'Ошибка',MB_OK+MB_ICONERROR);

Exit;

end;

tmSendTimer.Interval := 0;

tmSendTimer.Enabled := false;

case rgOrganiser.ItemIndex of

1: begin

TimeInterval := EncodeTime(seHorus.Value, seMinutes.Value, 0, 0);

if TimeInterval > Time then

begin

TimeInterval := EncodeTime(seHorus.Value, seMinutes.Value, 0, 0)

- Time;

end

else

begin

TimeInterval := EncodeTime(23, 59, 59, 999)

-Time

+ EncodeTime(seHorus.Value, seMinutes.Value, 0, 0);

end;

DecodeTime(TimeInterval, Hour, Min, Sec, MSec);

tmSendTimer.Interval := Hour*3600000+Min*60000+Sec*1000+MSec;

tmSendTimer.Enabled := true;

end;

2: begin

tmSendTimer.Interval := 60000*seInterval.Value;

tmSendTimer.Enabled := true;

end;

end;

Application.Minimize;

Hide;

end;

procedure TfrmMainForm_.FormClose(Sender: TObject;

var Action: TCloseAction);

var nidSendArchiveIcon:TNotifyIconData;

begin

//Удаление иконки

with nidSendArchiveIcon do begin

cbSize:=Sizeof(TNotifyIconData);

Wnd:=Handle;

uID:=0;

end;

Shell_NotifyIcon(NIM_Delete,@nidSendArchiveIcon);

end;

procedure TfrmMainForm_.FormCreate(Sender: TObject);

var nidSendArchiveIcon:TNotifyIconData;

begin

Application.Icon:=frmMainForm_.Icon;

//Помещение иконки в Tray Bar

with nidSendArchiveIcon do begin

cbSize:=Sizeof(TNotifyIconData);

Wnd:=Handle;

uID:=0;

UFlags:=NIF_MESSAGE+NIF_ICON+NIF_TIP;

SzTip:='Передача файлов';

HIcon:=frmMainForm_.Icon.Handle;

uCallBackMessage:=WM_USER+1;//Определяемое пользователем сообщение

end;

Shell_NotifyIcon(NIM_ADD,@nidSendArchiveIcon);

ReadSettings;

SetEnables;

end;

procedure TfrmMainForm_.btnSelectDirClick(Sender: TObject);

begin

if frmSelectDir_.ShowModal=mrOk then

begin

frmMainForm_.teSelectDir.Text:=PathStr_;

end;

end;

procedure TfrmMainForm_.WMRestoreWindow(var Msg: TMessage);

begin

if Msg.lParam=WM_LBUTTONDOWN then

begin

Show;

Application.BringToFront;

end;

inherited;

end;

procedure TfrmMainForm_.rgOrganiserClick(Sender: TObject);

begin

SetEnables;

end;

procedure TfrmMainForm_.btnSaveSetupClick(Sender: TObject);

begin

WriteSettings;

end;

procedure TfrmMainForm_.tmSendTimerTimer(Sender: TObject);

var TempFileName: string;

begin

tmSendTimer.Interval := 0;

tmSendTimer.Enabled := false;

TempFileName := CompressDir(teSelectDir.Text, teFTPUser.Text);

if not nmftpMain.Connected then

Try

nmftpMain.Connect

Except

MessageBox(0,PChar('Не удаётся подключиться к серверу "'+nmftpMain.Host+

'"'),'Передача файлов',MB_OK+MB_ICONERROR+MB_TOPMOST);

Exit;

end;

try

nmftpMain.ChangeDir(Translate(teFTPDir.Text,false));

except

MessageBox(0, 'Директория не найдена!','Передача файлов',

MB_OK+MB_ICONERROR+MB_TOPMOST);

nmftpMain.Disconnect;

Exit;

end;

try

nmftpMain.Upload(TempFileName,ExtractFileName(TempFileName));

MessageBox(0, 'Архивирование проведено успешно!','Передача файлов',

MB_OK+MB_ICONINFORMATION+MB_TOPMOST);

except

MessageBox(0, 'Не удалось передать файл!','Передача файлов',

MB_OK+MB_ICONERROR+MB_TOPMOST);

nmftpMain.Disconnect;

Exit;

end;

nmftpMain.Disconnect;

try

DeleteFile(TempFileName);

except

;

end;

if rgOrganiser.ItemIndex = 2 then

begin

tmSendTimer.Interval := 60000*seInterval.Value;

tmSendTimer.Enabled := true;

end;

end;

procedure TfrmMainForm_.btnStartClick(Sender: TObject);

var TempFileName: string;

CheckStr: String;

begin

CheckStr := CheckParams;

if CheckStr <> '' then

begin

MessageBox(Handle,PChar(CheckStr),'Ошибка',MB_OK+MB_ICONERROR);

Exit;

end;

tmSendTimer.Enabled:=false;

tmSendTimer.Interval:=0;

TempFileName := CompressDir(teSelectDir.Text, teFTPUser.Text);

if not nmftpMain.Connected then

Try

nmftpMain.Connect

Except

MessageBox(0,PChar('Не удаётся подключиться к серверу "'+nmftpMain.Host+

'"'),'Передача файлов',MB_OK+MB_ICONERROR+MB_TOPMOST)

end;

try

nmftpMain.ChangeDir(Translate(teFTPDir.Text,false));

except

MessageBox(0, 'Директория не найдена!','Передача файлов',

MB_OK+MB_ICONERROR+MB_TOPMOST);

end;

try

nmftpMain.Upload(TempFileName,ExtractFileName(TempFileName));

MessageBox(0, 'Архивирование проведено успешно!','Передача файлов',

MB_OK+MB_ICONINFORMATION+MB_TOPMOST);

except

MessageBox(0, 'Не удалось передать файл!','Передача файлов',

MB_OK+MB_ICONERROR+MB_TOPMOST);

end;

nmftpMain.Disconnect;

try

DeleteFile(TempFileName);

except

;

end;

end;

procedure TfrmMainForm_.teFTPServerChange(Sender: TObject);

begin

nmftpMain.Host := teFTPServer.Text;

SetEnables;

end;

procedure TfrmMainForm_.seFTPPortChange(Sender: TObject);

begin

nmftpMain.Port := seFTPPort.Value;

SetEnables;

end;

procedure TfrmMainForm_.teFTPUserChange(Sender: TObject);

begin

nmftpMain.UserID := teFTPUser.Text;

SetEnables;

end;

procedure TfrmMainForm_.meFTPPwdChange(Sender: TObject);

begin

nmftpMain.Password := meFTPPwd.Text;

SetEnables;

end;

procedure TfrmMainForm_.teFTPDirChange(Sender: TObject);

begin

SetEnables;

end;

procedure TfrmMainForm_.teSelectDirChange(Sender: TObject);

begin

SetEnables;

end;

procedure TfrmMainForm_.teProxyServerChange(Sender: TObject);

begin

nmftpMain.Proxy := teProxyServer.Text;

end;

procedure TfrmMainForm_.seProxyPortChange(Sender: TObject);

begin

nmftpMain.ProxyPort := seProxyPort.Value;

end;

procedure TfrmMainForm_.teFWUserChange(Sender: TObject);

begin

nmftpMain.FWUserID := teFWUser.Text;

end;

procedure TfrmMainForm_.meFWPwdChange(Sender: TObject);

begin

nmftpMain.FWPassword := meFWPwd.Text;

end;

procedure TfrmMainForm_.cbUseFirewallClick(Sender: TObject);

begin

nmftpMain.FWAuthenticate := cbUseFirewall.Checked;

end;

procedure TfrmMainForm_.sbSelectFTPDirClick(Sender: TObject);

begin

if frmSelFTPDir_.ShowModal=mrOk then

begin

frmMainForm_.teFTPDir.Text:=PathStr_;

end;

end;

end.

unit SelDir_;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, ShellCtrls;

type

TfrmSelectDir_ = class(TForm)

stvSelectDir: TShellTreeView;

btnOK: TButton;

btnCancel: TButton;

procedure btnOKClick(Sender: TObject);

procedure btnCancelClick(Sender: TObject);

procedure stvSelectDirChange(Sender: TObject; Node: TTreeNode);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmSelectDir_: TfrmSelectDir_;

implementation

uses Main_;

{$R *.dfm}

procedure TfrmSelectDir_.btnOKClick(Sender: TObject);

begin

ModalResult := mrOk

end;

procedure TfrmSelectDir_.btnCancelClick(Sender: TObject);

begin

ModalResult := mrCancel

end;

procedure TfrmSelectDir_.stvSelectDirChange(Sender: TObject;

Node: TTreeNode);

begin

PathStr_:=stvSelectDir.Path;

end;

end.

unit SelFTPDir_;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls;

type

TfrmSelFTPDir_ = class(TForm)

tvSelectFTPDir: TTreeView;

btnOK: TButton;

btnCancel: TButton;

procedure tvSelectFTPDirChange(Sender: TObject; Node: TTreeNode);

procedure btnOKClick(Sender: TObject);

procedure btnCancelClick(Sender: TObject);

procedure tvSelectFTPDirGetSelectedIndex(Sender: TObject;

Node: TTreeNode);

procedure FormShow(Sender: TObject);

procedure FormHide(Sender: TObject);

procedure tvSelectFTPDirExpanded(Sender: TObject; Node: TTreeNode);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmSelFTPDir_: TfrmSelFTPDir_;

implementation

uses Main_, Share_, NMFtp;