Процесс обучения учащихся информатике в общеобразовательной школе в условиях инновационной образовательной среды

В частности, именно путем «привязки» тех или иных ресурсов производится «наполнение» ресурсами рубрикатора разрабатываемого собственного курса, который создается в Редакторе курсов

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

ого ЦОР в полном или кратком ее виде, а также при показе названия данного ЦОР и пояснений к нему в списке ЦОР, хранящихся в разделе Мои ресурсы.

Реализация механизмов межсетевого взаимодействия при создании тестовой оболочки в Delphi

Взаимодействие по протоколу TCP/IP

Наша тестовая оболочка создана на базе протокола ТСР/IP (Transmission Control Protocol/Internet Protocol). Он предназначен для установления соединения между двумя компьютерами в сети, обычно называемыми клиентом и сервером. Протокол TCP/IP определяет IP-адрес и номер порта. IP-адрес задает имя компьютера в сети. IP-адрес указывается или как числовой идентификатор компьютеру или при использовании сервера DNS как символьный псевдоним числового идентификатора. Локальный компьютер всегда адресуется как 127.0.0.1 или localhost.

При работе в Интернет все используемые IP-адреса уникальны. Поэтому для задания своему ПК некоторого IP-адреса следует получить его у провайдера. При работе без Интернет в локальной сети предприятия можно самостоятельно установить различные IP-адреса для каждого ПК. Например: 192.168.0.2; 192.168.0.3; 192.168.0.4.

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

В Delphi соединение по протоколу TCP/IP может быть реализовано на базе технологии сокетов. Сокет представляет собой окончание сетевого соединения (уровень приложения) со стороны сервера или со стороны клиента. Обычно при соединении приложение-сервер открывает порт с некоторым номером и переходит в состояние ожидания. Приложение-клиент устанавливает соединение с сервером. После этого сокеты можно использовать как канал для передачи данных. Не трудно провести аналогию в работе сети с объектно-ориентированным программированием.

Создание серверной части сетевого теста

Сначала следует создать приложение-сервер. Для того чтобы создать сервер, использующий сокет TCP/IP для реализации сетевого соединения, выполните следующие действия:

Расположите на форме двенадцать компонентов TServerSocket со страницы Internet палитры компонентов (количество компонентов должно соответствовать количеству компьютеров в локальной сети). Этот компонент используется для реализации TCP/IP-соедмнения со стороны сервера.

Рисунок 26. Демонстрация ServerSocketa

Создайте объекты, используемые для хранения передаваемых и принимаемых значений. Расположите на форме двенадцать полей типа ТМеmо, для отображения хода и результатов тестирования; двенадцать компонентов TEdit, для отображения сведений о тестируемых; двенадцать компонентов TEdit, для отображения номеров портов.

Рисунок 27. Демонстрация работы сервера

Рисунок 28. Главное окно серверной части тестовой оболочки

В процедуре создания формы необходимо каждому порту присвоить определенное уникальное значение.

procedure TForm1.FormCreate(Sender: TObject);

var i:integer;

begin

for i:=1 to 12 do ans[i]:=false;

Port1.Text:='1';

Port2.Text:='2';

Port3.Text:='3';

Port4.Text:='4';

Port5.Text:='5';

Port6.Text:='6';

Port7.Text:='7';

Port8.Text:='8';

Port9.Text:='9';

Port10.Text:='10';

Port11.Text:='11';

Port12.Text:='12';

activbtn.Click;

end;

Для того чтобы установить соединение, сервер первоначально должен находиться в режиме прослушивания соединения. Расположите на форме командную кнопку типа TButton, выполняющую открытие соединения. В обработчике события OnClick этой командной кнопки следует зарезервировать двенадцать портов для центрального компьютера и активизировать все двенадцать серверов:

procedure TForm1.ActivBtnClick(Sender: TObject);

begin

If ActivBtn.Tag=0 then

Begin

// запишем указанный порт в ServerSocket

ServerSocket1.Port:=StrToInt(Port1.Text);

ServerSocket2.Port:=StrToInt(Port2.Text);

ServerSocket3.Port:=StrToInt(Port3.Text);

ServerSocket4.Port:=StrToInt(Port4.Text);

ServerSocket5.Port:=StrToInt(Port5.Text);

ServerSocket6.Port:=StrToInt(Port6.Text);

ServerSocket7.Port:=StrToInt(Port7.Text);

ServerSocket8.Port:=StrToInt(Port8.Text);

ServerSocket9.Port:=StrToInt(Port9.Text);

ServerSocket10.Port:=StrToInt(Port10.Text);

ServerSocket11.Port:=StrToInt(Port11.Text);

ServerSocket12.Port:=StrToInt(Port12.Text);

// запускаем сервер

ServerSocket1.Active:=True;

ServerSocket2.Active:=True;

ServerSocket3.Active:=True;

ServerSocket4.Active:=True;

ServerSocket5.Active:=True;

ServerSocket6.Active:=True;

ServerSocket7.Active:=True;

ServerSocket8.Active:=True;

ServerSocket9.Active:=True;

ServerSocket10.Active:=True;

ServerSocket11.Active:=True;

ServerSocket12.Active:=True;

// изменяем тэг

ActivBtn.Tag:=1;

// меняем надпись клавиши

ActivBtn.Caption:='Отключить';

end

else

Begin

// закрываем сервер

ServerSocket1.Active:=False;

ServerSocket2.Active:=False;

ServerSocket3.Active:=False;

ServerSocket4.Active:=False;

ServerSocket5.Active:=False;

ServerSocket6.Active:=False;

ServerSocket7.Active:=False;

ServerSocket8.Active:=False;

ServerSocket9.Active:=False;

ServerSocket10.Active:=False;

ServerSocket11.Active:=False;

ServerSocket12.Active:=False;

// возвращаем тэгу исходное значение

ActivBtn.Tag:=0;

// возвращаем исходную надпись клавиши

ActivBtn.Caption:='Активировать сервер';

end;

end;

Создайте для компонентов ServerSocket обработчики событий OnClientConnect. Эти события будут инициализированы при подключении клиента. Введите в созданные обработчики событий код, информирующий об установлении соединения. Например:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;

Socket: TCustomWinSocket);

begin

comp1.Font.Color:=clgreen;

end;

В данном случае об установлении соединения нас проинформирует изменение цвета текста компонента TLabel с чёрного на зелёный.

Создайте для компонентов ServerSocket обработчики событий OnClientDisconnect и введите в них код, информирующий о состоянии соединения. Например:

procedure TForm1.ServerSocket3ClientDisconnect(Sender: TObject;

Socket: TCustomWinSocket);

begin

comp3.Font.Color:=clblack;

end;

Если соединение разорвано, то цвет иконки становится чёрным.

Для того чтобы реализовать прием и передачу данных по установленному ТСР/IР-соединению, выполните следующие действия: