p align="left">var i:integer; begin for i:=0 to UsersDataBase. Groups. Count-1 do begin UsersDataBase. Users[i].Destroy; end; SetLength (UsersDataBase. Users, 0); UsersDataBase. Groups. Destroy; inherited; end; function TUsersDB. SetActiveGroup (Num:byte):boolean; begin result:=false; if Num< UsersDataBase. Groups. Count then begin ActiveGroup:=UsersDataBase. Groups. Strings[Num]; ActiveGroupNum:=Num; result:=true; end else ERROR_MESSAGE_FOR_DEBUG_LEVEL(ErrImputGroupNumberFault); end; function TUsersDB. SetActiveUser (Num:byte):boolean; begin result:=false; if Num< UsersDataBase. Users[ActiveGroupNum].Count then begin ActiveUser:=UsersDataBase. Users[ActiveGroupNum].Strings[num]; ActiveUserNum:=Num; result:=true; end else ERROR_MESSAGE_FOR_DEBUG_LEVEL(ErrImputUserNumberFault); end; procedure TUsersDB.ERROR_MESSAGE_FOR_DEBUG_LEVEL (ErrID: byte); begin Case ErrID of ErrImputGroupNumberFault: SMessage ('Imput group number fault'); ErrImputUserNumberFault: SMessage ('Imput user number fault'); end; end; Procedure TUsersDB.SMessage (Message_:string); begin SendMessage (SelfParent, WM_User+2, DWord (PChar(ActivStationIP+' '+Message_)), 0); end; function TUsersDB. GetGroupByIndex (i:byte): string; begin if i<=UsersDataBase. Groups. Count-1 then Result:=UsersDataBase. Groups. Strings[i] else Result:=''; end; function TUsersDB. GetUserByIndex (i:byte): string; begin if i<=UsersDataBase. Users[ActiveGroupNum].Count-1 then Result:=UsersDataBase. Users[ActiveGroupNum].Strings[i] else Result:=''; end; function TUsersDB. GetGroupsStringList: string; var i:integer; begin Result:=''; for i:=0 to UsersDataBase. Groups. Count-1 do Result:=Result+UsersDataBase. Groups. Strings[i]+'|'; Result:=Result+'>'; end; function TUsersDB. GetUsersStringList: string; var i:integer; begin Result:=''; for i:=0 to UsersDataBase. Users[ActiveGroupNum].Count-1 do Result:=Result+UsersDataBase. Users[ActiveGroupNum].Strings[i]+'|'; Result:=Result+'>'; end; end. Приложение 2Листинг кода клиентской части программыunit Registation; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type HLartForm = class(TForm) Panel2: TPanel; ComboBox3: TComboBox; ComboBox4: TComboBox; Label5: TLabel; Label6: TLabel; Bevel2: TBevel; Bevel3: TBevel; Panel1: TPanel; Bevel4: TBevel; Bevel5: TBevel; Label3: TLabel; Label4: TLabel; ComboBox1: TComboBox; ComboBox2: TComboBox; Bevel6: TBevel; Bevel7: TBevel; Panel3: TPanel; Bevel1: TBevel; Button1: TButton; Button2: TButton; Button3: TButton; Panel4: TPanel; procedure ComboBox1Change (Sender: TObject); procedure Button2Click (Sender: TObject); procedure Button1Click (Sender: TObject); procedure Button3Click (Sender: TObject); procedure ComboBox3Change (Sender: TObject); procedure ComboBox2Change (Sender: TObject); procedure FormClose (Sender: TObject; var Action: TCloseAction); private ServerIPAddress:string[15]; //IP адрес Steps:byte; // номер шага регистрации (условно) NoModify:boolean; // триггер интерфейса function ReadServerIP: string; // чтение из файла IP.DAT информации о IP адресе сервера public procedure GetConnect; // Установка соединение procedure HideWin_(YN: boolean); // скрыть элементы управления Windows (TaskBar, Deskdop) procedure ExitProgram; end; var StartForm: HLartForm; implementation uses MainForm; { ///////////////////////////////////////////////////// BEGIN Сервисные подпрограммы ////////////////////////////////////////////////////// } function HLartForm. ReadServerIP: string; var IPInfFile:textfile; IP:string; begin if fileexists (extractfilepath(application. ExeName)+'IP. Dat') then begin assignfile (IPInfFile, extractfilepath (application. ExeName)+'IP. Dat'); {$i-} reset(IPInfFile); Readln (IPInfFile, IP); closefile(IPInfFile); {$i+} if ip<>'' then begin ReadServerIP:=IP; end else ReadServerIP:='127.0.0.1'; end else begin ReadServerIP:='127.0.0.1'; end; end; procedure HLartForm. HideWin_(YN:boolean); var Wnd: hWnd; ClassName:PChar; ClassNameLen:byte; Res:string; begin Wnd:=FindWindow ('Progman', 'Program Manager'); while wnd<>0 do begin wnd:=GetWindow (Wnd, GW_CHILD); ClassNameLen:=0; GetClassName (Wnd, ClassName, ClassNameLen); SeHLring (Res, ClassName, ClassNameLen); SeHLring (Res, ClassName, StrLen(ClassName)); if Res='SysListView32' then begin if YN=true then begin ShowWindow (Wnd, SW_Hide); ShowWindow (findwINDOW('Shell_TrayWnd', nil), SW_Hide); end else begin ShowWindow (Wnd, SW_Show); ShowWindow (findwINDOW('Shell_TrayWnd', nil), SW_Show); end; break; end; end; FreeMem (ClassName, 255); end; procedure HLartForm. ExitProgram; begin HideWin_(false); Application. ProcessMessages; Application. Terminate; end; { ///////////////////////////////////////////////////// Сервисные подпрограммы END ////////////////////////////////////////////////////// } { ///////////////////////////////////////////////////// BEGIN Сетевые подпрограммы ////////////////////////////////////////////////////// } procedure HLartForm. GetConnect; 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
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11
|