begin
try
ServerIPAddress:=ReadServerIP;
TestForm. TestSocket. Address:=ServerIPAddress;
TestForm. TestSocket. Active:=true;
except
end;
end;
{ /////////////////////////////////////////////////////
Сетевые подпрограммы
END
////////////////////////////////////////////////////// }
{ /////////////////////////////////////////////////////
BEGIN
Обработка пользовательского интерфейса
////////////////////////////////////////////////////// }
procedure HLartForm. ComboBox1Change (Sender: TObject);
var Data:string;
begin
Data:=Char (NM_Register2)+Char (TestForm. MyNumber)+Char (ComboBox1. ItemIndex);
TestForm. TestSocket. Socket. SendBuf (Pointer(Data)^, Length(Data));
ComboBox3. Clear;
ComboBox4. Clear;
ComboBox2. Clear;
NoModify:=false;
Steps:=0;
end;
procedure HLartForm. Button2Click (Sender: TObject);
begin
Close;
end;
procedure HLartForm. Button1Click (Sender: TObject);
var Data:string;
begin
case Steps of // Дальнейшее действие
0:if ComboBox2. Text<>'' then
begin
NoModify:=true;
Data:=Char (NM_RegisterGetWorks)+Char (TestForm. MyNumber)+Char (ComboBox1. ItemIndex);
TestForm. TestSocket. Socket. SendBuf (Pointer(Data)^, Length(Data)); // Запрос на получение списка предметов
end;
Button3. Enabled:=true;
Panel1. Hide;
Panel2. Show; Steps:=1;
end;
1: if Panel2. Visible then
begin
if ComboBox4. Text<>'' then
begin
Data:=Char (NM_RegisterOK)+Char (TestForm. MyNumber)+
Char (ComboBox1. ItemIndex)+Char (ComboBox2. ItemIndex)+Char (ComboBox3. ItemIndex)+Char (ComboBox4. ItemIndex);
TestForm. TestSocket. Socket. SendBuf (Pointer(Data)^, Length(Data)); // Отсылка сведений для
// окончательной регистрации
Self. Hide;
HideWin_(true);
end;
end else
begin
Panel1. Hide;
Panel2. Show;
Button3. Enabled:=true;
Steps:=1;
end;
end;
end;
procedure HLartForm. Button3Click (Sender: TObject);
begin
Panel2. Hide;
Panel1. Show;
Button3. Enabled:=false;
end;
procedure HLartForm. ComboBox3Change (Sender: TObject);
var Data:string;
begin
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, WinSock, ExtCtrls, Buttons, StdCtrls, ScktComp;
const
NM_Register1 = 6; // прием списка групп
NM_Register2 = 7; // запрос на список студентов
NM_RegisterGetWorks = 66; // запрос / ответ 'список предметов'
NM_RegisterGetTeachers = 77; // запрос / ответ 'список преподователей'
NM_RegisterOK = 8; // клиент зарегистрирован
NM_Service = 31; // прием сервисной информации
NM_TestEvent = 55; // событие по ходу тестирования
NM_FileOperation = 10; // сетевая операция с файлами
NM_EndOfTest = 33; // окончание тестирования
NM_KickFromServer = 44; // отключение от сервера администратором
NM_Wait = 61;
NM_DataError = 54; // проблема с БД
procedure TTestForm. TestSocketRead (Sender: TObject;
Socket: TCustomWinSocket);
type TDataBuffer=array of byte; // буфер данных
var Data, Data1:string; // данные
SendLen:integer;
DataBuffer:TDataBuffer;
i: Word;
Command:byte;
GetSize:PInt64;
SizeOfFilename:byte;
PTrueAnswer:PWord;
PTimeForPassTest:PDouble;
begin
SendLen:=Socket. ReceiveLength; // размер принятых данных
SetLength (DataBuffer, SendLen);
Socket. ReceiveBuf (Pointer(DataBuffer)^, SendLen); // заполняем буфер
if lock then // если в режиме приема файла то продолжить прием
begin
MakePointer:=DWORD(DataBuffer);
NewFile. WriteBuffer (Pointer(MakePointer)^, SendLen);
SendedSize:=SendedSize+SendLen;
if SendedSize=FileSize then // если приняли весь файл то выход
begin
lock:=false;
NewFile. Destroy;
SetImg(FileName);
end;
end else
begin
Command:=DataBuffer[0];
case Command of
NM_Register1:
begin
MyNumber:=DataBuffer[1];
i:=2;
while i<=SendLen-3 do
begin
Data:='';
while DataBuffer[i]<>byte ('|') do
begin
Data:=Data+Char (DataBuffer[i]);
inc(i);
end;
if Data<>'' then StartForm. ComboBox1. Items. Add(Data);
if DataBuffer [i+1]=byte ('>') then break;
inc(i);
end;
end;
NM_Register2: // список студентов
begin
i:=1;
while i<=SendLen-2 do
begin
Data:='';
while DataBuffer[i]<>byte ('|') do
begin
Data:=Data+Char (DataBuffer[i]);
inc(i);
end;
if Data<>'' then StartForm. ComboBox2. Items. Add(Data);
if DataBuffer [i+1]=byte ('>') then break;
inc(i);
end;
end;
NM_RegisterGetWorks:
begin
i:=1;
StartForm. ComboBox3. Clear;
while i<=SendLen-2 do
begin
Data:='';
while DataBuffer[i]<>byte ('|') do
begin
Data:=Data+Char (DataBuffer[i]);
inc(i);
end;
if Data<>'' then StartForm. ComboBox3. Items. Add(Data);
if DataBuffer [i+1]=byte ('>') then break;
inc(i);
end;
end;
NM_RegisterGetTeachers:
begin
StartForm. ComboBox4. Clear;
i:=1;
while i<=SendLen-2 do
begin
Data:='';
while DataBuffer[i]<>byte ('|') do
begin
Data:=Data+Char (DataBuffer[i]);
inc(i);
end;
if Data<>'' then StartForm. ComboBox4. Items. Add(Data);
if DataBuffer [i+1]=byte ('>') then break;
inc(i);
end;
end;
NM_FileOperation:
begin
lock:=true;
PTrueAnswer:=Addr (DataBuffer[1]);
TrueAnswer:=PTrueAnswer^;
QuestionStyle:=DataBuffer[3];
GetSize:=Addr (DataBuffer[4]);
FileSize:=GetSize^;
SizeOfFilename:=DataBuffer[12];
Filename:=ApplicationPath+'Data.tmp'; // имя передаваемого файла
Deletefile(FileName);
NewFile:=TFileStream. Create (FileName, fmCreate);
NewFile. Position:=0;
MakePointer:=DWORD(DataBuffer)+13+SizeOfFilename; // 13=1+1+1+1+8+1
NewFile. WriteBuffer (Pointer(MakePointer)^, SendLen-13-SizeOfFilename);
SendedSize:=SendLen-13-SizeOfFilename;
if SendedSize=FileSize then // если приняли весь файл то выход
begin
lock:=false;
NewFile. Destroy;
SetImg(FileName);
end;
end;
NM_EndOfTest:
begin
SpeedButton5. Enabled:=false;
TestPassed:=true;
Mark:=DataBuffer[1];
PostMessage (Handle, WM_User, 0,0);
end;
NM_KickFromServer:
begin
TestTerminated:=true;
Label7. Hide;
Label8. Hide;
Button2. Hide;
Panel7. Caption:='Тестирование прервано';
PostMessage (Handle, WM_User, 0,0);
end;
NM_Service:
begin
QuestionsCount:=DataBuffer[1];
PTimeForPassTest:=Addr (DataBuffer[2]);
TimeForPassTest:=TTime (PTimeForPassTest^);
end;
NM_DataError:
begin
SendLen:=DataBuffer[1];
Data1:=Copy (PChar(DataBuffer), 3, SendLen)+#13+#10+#0;
PostMessage (Handle, WM_User+1, DWORD (PChar(Data1)), 1);
end;
NM_Wait: ShowMessage('Wait');
end;
end;
SetLength (DataBuffer, 0);
end;
procedure TTestForm. CloseNetworkSocket (var Message: TMessage);
begin
TestSocket. Active:=false;
TestSocket.close;
if TestForm. Visible then
begin
Panel8. Hide;
Panel7. Top:=Panel8. Top;
Panel7. Left:=Panel8. Left;
Panel7. Width:=Panel8. Width;
Panel7. Height:=Panel8. Height;
Panel7. Visible:=true;
if TestPassed then Panel7. Caption:=IntToStr(Mark) else
begin
Application. ProcessMessages;
Sleep(4000);
Application. ProcessMessages;
Application. Terminate;
end;
end else // если окно теста не открыто
begin
StartForm. Panel4. Visible:=true;
Application. ProcessMessages;
Sleep(4000);
Application. ProcessMessages;
Application. Terminate;
end;
end;
procedure TTestForm. TestSocketDisconnect (Sender: TObject;
Socket: TCustomWinSocket);
begin
if not (TestPassed or TestTerminated) then Application. Terminate;
end;
{ /////////////////////////////////////////////////////
Сетевые подпрограммы
END
////////////////////////////////////////////////////// }
end;
end.
1. Архангельский А.Я. Delphi 7 Справочное пособие. – М., Бином-Пресс. -2004. -1024 с.
2. Архангельский А.Я. Программирование в Delphi 7 + дискета, Бином, 2005
3. Бондаренко Е.А. Технические средства обучения в современной школе, Юверс, 2004
4. Вигерс Карл. Разработка требований к программному обеспечению. /Пер, с англ. – М.: Издательско-торговый дом «Русская Редакция», 2004. - 576 с.
5. Гаврилова Т.А., Хорошевский В.Ф. Базы знаний интеллектуальных систем. – СПб.: Питер, 2001. – 384 с.: ил.
6. Глушаков С.В., Клевцов А.Л., Программирование в среде Delphi 7.0, Фолио 2003
7. Дьяконов В.П. Новые информационные технологии, Солон-Пресс, 2005
8. Земсков А.И., Шрайберг Я.Л. Электронные библиотеки, Либерея, 2003
9. Клименко Р.Н. Оптимизация и автоматизация работы на ПК на 100% (+CD), Питер Пресс, 2007
10. Колин К.К. Фундаментальные основы информатики: социальная информатика / Учебное пособие для вузов. – М.: Академический проект, 200 –350 с.
11. Кондратьев Г.Г. Осваиваем Windows XP, Питер, 2005
12. Коплиен Дж., Мультипарадигменное проектирование для C++, Питер, 2005
13. Красильникова В.А. Становление и развитие компьютерных технологий обучения: Монография. – М.: ИИО РАО, 2002. – 168 с.
14. Круглински Д., Уингоу С, Шеферд Дж. Программирование на Microsoft Visual C++ 6.0 для профессионалов. /Пер, с англ. – СПб: Питер; М.: Издательско-торговый дом «Русская Редакция», 2004. – 861 с.
15. Леонтьев Б.К., Мультимедия Microsoft Windows без страха, Новый издательский дом, 2005
16. Мандел Т. Дизайн интерфейсов, ДМК, 2005
17. Музыченко Е.В., Фролов И.Б., Мультимедия для Windows, 2003
18. Пайс А. Гении науки. – М.: Институт компьютерных исследований, 2002
19. Архангельский А.А. Программирование в Delphi. – М.: Бином, 2003. – 1231 с.
20. Гофман В.Э., Хомоненко А.Д. Delphi 5. – СПб.: БХВ – Санкт Петербург, 2000. – 800 с.
21. Епанешников А., Епанешников В. Программирование в среде Delphi: Учебное пособие: В 4-х ч. Ч. 4. Работа с базами данных. Организация справочной системы – М.: ДИАЛОГ – МИФИ, 1998. – 400 с.
22. Зубков Сергей Владимирович Assembler для Dos, Windows, Unix. – М.: ДМКПресс, 2000. – 652 с.
23. Кэнту Марко Delphi 5.0 для профессионалов. – СПб.: Питер, 2001. – 1064 с.
24. Пирогов В.Ю. Assembler учебный курс. – М.: «Нолидж», 2001. – 926 с.
25. Рейнхардт Р., Ленц Д.У. Flash 5. Библия пользователя. – М.: «Вильямс», 2001. – 1164 с.
26. Фигурнов В.Э. IBM PC для пользователя. Изд. 7-е, перераб. и доп. – М.: ИНФРА – М, 1998. – 640 с.
27. Батищев П.С. Электронный On-Line учебник по курсу информатика.
28. Ивановский Р.И. Компьютерные технологии в науке и образовании. Практика применения систем Math CAD Pro, Высшая школа, 2003
29. Каймин В.А., Жданов В.С. и др. «Информатика» для поступающих в ВУЗы. Москва, АСТ, 2006 г.
30. Кудрявцев Е.М. Оформление дипломного проекта на компьютере, АСВ, 2004