Организация удалённого доступа

Автор работы: Пользователь скрыл имя, 27 Ноября 2012 в 14:40, курсовая работа

Описание работы

Сеть Internet - это сеть сетей, объединяющая как локальные сети, так и глобальные сети типа NSFNET. Поэтому центральным местом при обсуждении принципов построения сети является семейство протоколов межсетевого обмена TCP/IP.
Под термином "TCP/IP" обычно понимают все, что связано с протоколами TCP и IP. Это не только собственно сами проколы с указанными именами, но и протоколы построенные на использовании TCP и IP, и прикладные программы.

Содержание работы

1 Постановка задачи 5
2 Вычислительная система 8
2.1 Программные средства 8
2.2 Технические средства 9
2.3 Аппаратно – программный комплекс 10
3 Алгоритм задачи 11
3.1 Вызов и загрузка 11
3.2 Интерфейс пользователя 14
3.3 Система помощи 16
3.4 Логическая структура 17
3.5 Физическая структура 19
4 Описание программы 20
5 Применение программы 26
6 Тестирование и отладка 27
Заключение 28
Список литературы 29
Приложение А.Текст программы 30

Скачать архив (1.20 Мб) Сколько стоит заказать работу?
Файлы: 1 файл

Организация удалённого доступа.docx

— 1.23 Мб (Скачать файл)
  • Кнопка «Установить соединение»;
  • Кнопка «Отсоединиться»;
  • Кнопка «Сохранить»;
  • Меню;
  • Справка;

При нажатии  кнопки «Установить соединение»  программа подключается к серверу  с помощью ввода псевдонима IP-адреса.

При нажатии  кнопки «Отсоединиться» соединение с сервером прекратится.

При нажатии  кнопки «Сохранить» появляется окно «сохранить», в котором можно  сохранить полученный *.txt файл.

При выборе пункта меню появляются пункты:

  • Установить соединение;
  • Отсоединиться;
  • Сохранить;
  • Выход;

Пункты  Установить соединение, Отсоединиться  и Сохранить соответствуют кнопкам  «Установить соединение», «Отсоединиться»  и «Сохранить».

При выборе пункта выход основная форма закрывается  и появляется форма подтверждения  выхода. В случае нажатия кнопки «Да» программа Server закрывается. В случае нажатия кнопки «Нет» форма подтверждения выхода закрывается и появляется основная форма.

 

3.3 Система помощи

 

Система помощи организованна в виде формы, содержащая краткую информацию о  программе, разработчике. Также система  помощи имеется в виде подсказок.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3.4 Логическая структура

 

Запускается форма server, затем на этой форме можно выбрать:

  • Кнопка «Слушать»;
  • Кнопка «Отправка файлов»;
  • Меню;
  • Справка;

Так же организовано верхнее меню состоящая из :

1.Меню:

  • Слушать;
  • Отправка файлов;
  • Выход;

2.Справка:

  • Помощь;
  • О программе;

При нажатии  кнопки «Слушать» программа «прослушивает» сеть и ожидает подключения клиента.

При нажатии  кнопки «Отправка файлов» откроется  окно «открыть», в котором выбирается файл *.txt для отправки клиенту.

При выборе пункта выход основная форма закрывается  и появляется форма подтверждения  выхода. В случае нажатия кнопки «Да» программа Server закрывается. В случае нажатия кнопки «Нет» форма подтверждения выхода закрывается и появляется основная форма.

При выборе пункта помощь появляется html-страница с указаниями по работе с программой.

Запускается форма Client.

Затем на этой форме можно выбрать:

  • Кнопка «Установить соединение»;
  • Кнопка «Отсоединиться»;
  • Кнопка «Сохранить»;
  • Меню;
  • Справка;

Так же организовано верхнее меню состоящая из :

1.Меню:

  • Установить соединение;
  • Отсоединиться;
  • Сохранить;
  • Выход;

2.Справка:

  • Помощь;
  • О программе;

Пункты  Установить соединение, Отсоединиться  и Сохранить соответствуют кнопкам  «Установить соединение», «Отсоединиться»  и «Сохранить».

При выборе пункта выход основная форма закрывается  и появляется форма подтверждения  выхода. В случае нажатия кнопки «Да» программа Server закрывается. В случае нажатия кнопки «Нет» форма подтверждения выхода закрывается и появляется основная форма.

При выборе пункта помощь появляется html-страница с указаниями по работе с программой.

 

  3.5 Физическая структура

 

Программа состоит из восьми модулей (Таблица 1):

 

Таблица 1 –  Модули программы

Наименование модуля

Функциональное назначение

Server.pas

Server программа

Info_server.pas

Информация о разработчике

H_server.pas

Форма «Помощь»

Exit_server.pas

Форма «Выход из программы»

client.pas

Client программа

Info_client.pas

Информация о разработчике

H_client.pas

Форма «Помощь»

Exit_client.pas

Форма «Выход из программы»


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  1. Описание программы

После запуска Server.exe на экране появляется программа (Рисунок 6)

 

                             

Рисунок 6- Форма Server

Также можно  запустить Client.exe (Рисунок 7)

 

Рисунок 7- Форма Client

Начало работы Server(Рисунок 8)

 

Рисунок 8- Начало работы формы Server

 

Форма Client подключается к форме Server(Рисунок 9)

 

Рисунок 9-подключение к серверу

            Успешное подключение клиента к серверу(Рисунок 10)

 

Рисунок 10-подключение  к серверу успешно

 

            Клиент также соединён с сервером(Рисунок 11)

 

Рисунок 11-соединение клиента с  сервером

 

          Отправка сообщения клиенту(Рисунок 12)

 

Рисунок 12-отправка сообщения клиенту

 

            Client получил сообщение(Рисунок 13)

 

Рисунок 13-получение сообщение

        

 Отправка текстового документа клиенту(Рисунок 14)

 

Рисунок 14-отправка файл клиенту

 

            Получение текстового документа клиентом и его сохранение(Рисунок 15)


 

Рисунок 15-получение файла клиентом

            

Прекращение связи с сервером(Рисунок 16)

 

Рисунок 16-связь с сервером прекращена

 

             После разъединения с клиентом сервер продолжает «слушать» сеть(Рисунок 17)

 

Рисунок 17-сервер продолжает работу

5 Применение программы

 

Разработанная программа не требует установки  на компьютер. Программу можно запустить с СD-диска, либо скопировать папку «Курсовая работа Шмелёва М.О.».

Запустить программу можно файлами Server.exe.и Client.exe

На формы  О ПРОГРАММЕ (Рисунок 18) и СПРАВКА (Рисунок 19 а, б) можно попасть только из главного меню.

Рисунок 8- Форма О ПРОГРАММЕ

Рисунок 19 а- Форма ПОМОЩЬ для клиента

 

Рисунок 19 б- Форма ПОМОЩЬ для сервера

    1. Тестирование и отладка

 

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

На тестирование и отладку ушло 40% времени от общего времени разработки программного продукта.

Основные  ошибки при тестирование программы  представлены в Таблице 2

 

Таблица 2 – Основные ошибки

Ошибка

Исправление

Форма Server не подключалась к форме Client

Были указаны порты форм Server и Client

Не отображались html-файлы в Webbrouser

Исправлен путь к html-файлу

При отправке файлов передача осуществлялась только из папки с курсовой работой

Поместил на форму компонент OpenDialog и пописал процедуру для открытия


 

 

 

 

 

 

 

 

 

Заключение

 

В ходе курсового  проекта была разработана программа «Организация удалённого доступа»

В процессе создания программы использовались приложения:

  • Microsoft Office FrontPage 2007;
  • Microsoft Office Word 2007;

Разработанная программа обладает следующими свойствами:

  •   Соединять Client и Server с помощью протокола TCP/IP;
  •   Отправлять сообщения от сервера к клиенту и обратно;
  •   Отправлять текстовые файлы клиенту;

Выполнены требования, поставленные перед разработкой:

  • в программе использовалось большое количество различных компонентов;
  • реализовано подключение HTML файлов;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

 

  1. ГОСТ 2.105-95. ЕСКД. Общие требования к текстовым документам.
  2. ГОСТ 19.201-78. ЕСПД. Техническое задание. Требования к содержанию и оформлению.
  3. Бобровский С.И. «Delphi 7.Учебный курс». – СПб.: , 2004. – 736 с.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение  А

(обязательное)

Текст программы

var

  Form1: TForm1;

   ms: TMemoryStream;

implementation

 

uses Unit2, Unit3, Unit5, Unit8, hc_serv;

 

{$R *.dfm}

 

procedure TForm1.sMemo1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

if key=vk_return then

serversocket1.Socket.Connections[0].SendText(smemo1.Lines[smemo1.Lines.count-1]);

//form1.sButton3.Enabled:=true;

end;

 

procedure TForm1.sButton1Click(Sender: TObject);

begin

serversocket1.Active:=true;

sstatusbar1.Panels[1].Text:='прослушивание..';

slabel1.Visible:=false;

slabel2.Visible:=true;

slabel3.Visible:=false;

end;

 

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;

  Socket: TCustomWinSocket);

begin

smemo2.Lines.Add('['+TimeToStr(Time)+']:сервер соединён с клиентом');

 

end;

 

procedure TForm1.ServerSocket1Accept(Sender: TObject;

  Socket: TCustomWinSocket);

begin

smemo2.Lines.Add('['+TimeToStr(Time)+']:соединение успешно');

sstatusbar1.Panels[1].Text:='соединено с:'+socket.LocalAddress;

sbutton2.Enabled:=true;

n6.Enabled:=true;

end;

 

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;

  Socket: TCustomWinSocket);

begin

sstatusbar1.Panels[1].Text:='прослушивание соединения...';

  sbutton2.Enabled:=false;

   slabel2.Visible:=false;

  slabel3.Visible:=true;

end;

 

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

  Socket: TCustomWinSocket);

  var

  ms: TMemoryStream;

begin

smemo2.Lines.Add('получен текст в '+TimeToStr(Time)+' : '+socket.ReceiveText);

  // Клиент получает команду на передачу файла.

  if Socket.ReceiveText = 'можно передавать файлы' then

  begin

    ms:= TMemoryStream.Create;

    try

      // Получаем данные  на передачу.

      smemo2.Lines.SaveToStream(ms);

      ms.Position:= 0;

      // Добавляем длину данных, чтобы клиент знал, сколько данных будет

      // передано. Добавляем  #0 , чтобы можно было определить, где

      // заканчивается  информация о размере.

      Socket.SendText(IntToStr(ms.Size) + #0);

      // Посылаем его.

      Socket.SendStream(ms);

    except

      // Итак, осталось  освободить поток, если что-то  не так. 

      ms.Free;

    end;

  end;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

smemo1.Text:='';

smemo2.Text:='';

// Открытие ОТПРАВЛЯЮЩЕГО (SENDING) сокета.

  ServerSocket1.Active:= true;

  n6.Enabled:=false;

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

sstatusbar1.Panels[0].Text:='Сегодня '+datetostr(date);

end;

 

procedure TForm1.N2Click(Sender: TObject);

begin

serversocket1.Active:=true;

sstatusbar1.Panels[1].Text:='прослушивание..';

slabel1.Visible:=false;

slabel2.Visible:=true;

slabel3.Visible:=false;

end;

 

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

 

begin

if (key=ord('C'))and (ssctrl in shift) then

Информация о работе Организация удалённого доступа