CFrame: integer; // номер кадра,

 

9. Создать и объявить процедуру OpenAvi

procedure TForm1.OpenAVI;

begin

Button1.Enabled:= False;

Button2.Enabled:= False; Button3.Enabled:= False;

RadioButton1.Enabled:= False; RadioButton2.Enabled:= False;

try

   Animate1.FileName:= Edit1.Text;

except

on Exception do

begin

   MessageDlg('Ошибка формата AVI файла.'+

      #13+'(Анимация не должна сопровождаться звуком.)',

      mtError,[mbOk],0);

   exit;

end; end;

Button1.Enabled:= True;

RadioButton1.Enabled:= True; RadioButton2.Enabled:= True;

end;

 

10. Для кнопки Выбрать (Button4) ввести код:

OpenDialog1.Title:= 'Выбрать AVI файл';

 OpenDialog1.InitialDir:='';

if OpenDialog1.Execute Then  Begin

   Edit1.Text:= OpenDialog1.FileName;

   OpenAVI;            End;

 

11. Для кнопки Пуск ввести код:

if Animate1.Active = False // в данный момент анимация нет then begin

Animate1.StartFrame:=1; // вывод с первого кадра

Animate1.StopFrame:=Animate1.FrameCount; //по последний кадр

Animate1.Active:=True;

Button1.caption:='Стоп';

RadioButton2.Enabled:=False;

end

else // анимация отображается

begin

Animate1.Active:=False; // остановить отображение

Button1.caption:='Пуск';

RadioButton2.Enabled:=True;

end;

 

12. Для переключателя Непрерывно ввести код:

Button1.Enabled:=True; // доступна кнопка Пуск

// сделать недоступными кнопки просмотра по кадрам

Form1.Button3.Enabled:=False;

Form1.Button2.Enabled:=False;

 

13. Для переключателя По кадрам ввести код:

Button2.Enabled:=True; // кнопка Следующий кадр доступна

Button3.Enabled:=False; //кнопка Предыдущий кадр недоступна

// сделать недоступной кнопку Пуск - вывод всей анимации

Button1.Enabled:=False;

Animate1.StartFrame:=1;

Animate1.StartFrame:=1;

CFrame:=1;

 

14. Для кнопки К следующему кадру ввести код:

if CFrame < Animate1.FrameCount Then Begin

CFrame:= CFrame + 1;

// вывести кадр

Animate1.StartFrame:= CFrame;

Animate1.StopFrame:= CFrame;

Animate1.Active:= True;

  if CFrame = Animate1.FrameCount // текущий кадр - последний

then Button2.Enabled:=False;

 End;

if CFrame > 1 then Button3.Enabled:= True;

 

15. Для кнопки К предыдущему кадру ввести код:

if CFrame > 1 then

begin

   CFrame:= CFrame - 1;

   // вывести кадр

   Animate1.StartFrame:= CFrame;

   Animate1.StopFrame:= CFrame;

   Animate1.Active:= True;

   if CFrame = 1 // текущий кадр - первый

       then Form1.Button3.Enabled:= False;

end;

if CFrame < Animate1.FrameCount then Button2.Enabled:= True;

 

16. Проверить работу приложения.

17. Добавить на форму пункт меню Справка.

18. Присоединить к проекту форму для выдачи Справки, для этого:

1. выбрать в меню File / New/Other;

2. выбрать вкладку Forms, на ней выбрать About box.

19. Привести форму в соответствие с образцом:

20. Самостоятельно доработать приложение для вызова окна справки (пункт Справка) и скрытие окна (кнопка Ок)

21. Результат показать преподавателю.

 

ПРАКТИЧЕСКАЯ РАБОТА № 13

 

Тема Программирование для Интернет

Цель работы: Получить навыки использования компонента WebBrowser.

Пояснения к работе

Начиная с пятой версии Delphi появился компонент WebBrowser который позволяет создать свой собственный браузер. Можно полностью поменять интерфейс, но принцип действия работы все равно будет, как у Internet Explorer.

Компонент WebBrowser находится на вкладке Internet, его основные свойства и методы приведены в таблице.

OffLine	Включить / выключить автономный режим
Navigate	Открыть HTML-документ
Refresh	Обновить
Stop	Остановить загрузку
GoHome	На домашнюю страницу
GoForward	Вперед
GoBack	Назад

 

Компонент StatusBar – строка состояния представляет собой управляющий элемент, который отображает текущую информацию о содержимом окна, контекстные подсказки по текущему состоянию.

 

Постановка задачи

Разработать приложение, реализующее основные функции WEB-браузера.

 

Порядок выполнения

1. Создать новый проект и сохранить его.

2. Добавить на форму компонент ToolBar (Win32), изменить значение свойств: Height = 28, ShowCaptions =True, Flat = True

3. Добавить на ToolBar 5 кнопок: Назад, Обновить, Стоп, Домашняя страница, Вперед, для этого повторить 5 раз следующую последовательность:

· щелкнуть правой кнопкой мыши на компоненте ToolBar;

· выбрать New Button;

· изменить размеры кнопки Width = 67, Height =21;

· вставить разделитель кнопок, щелкнув правой кнопкой на ToolBar и выбрав New Separator;

· изменить свойства Caption для кнопки.

4. Добавить на форму компоненты Edit, командную кнопку, OpenDialogs и WebBrowser.

5. Привести форму в соответствие с образцом.

6. Для того, чтобы компоненты размещались по местам после изменения размера формы, для процедуры FormResize ввести код:

Edit1.Left:= 0;

Edit1.Top:= ToolBar1.Height + 2;

Button1.Top:= Edit1.Top;

Button1.Left:= Form1.ClientWidth - Button1.Width - 2;

WebBrowser1.Left:= 0;

WebBrowser1.Top:= Edit1.Top + Edit1.Height + 2;

//меняем размеры некоторых компонентов

Edit1.Width:= Form1.ClientWidth - Button1.Width - 4;

Button1.Height:= Edit1.Height;

WebBrowser1.Width:= Form1.ClientWidth;

WebBrowser1.Height:= Form1.ClientHeight - (Edit1.Top + Edit1.Height + 2);

 

7. Для кнопки Открыть ввести код:

If OpenDialog1.Execute Then Begin

WebBrowser1.Navigate(OpenDialog1.FileName);

Edit1.Text:= OpenDialog1.FileName;

WebBrowser1.Navigate(Edit1.Text); //загрузка документа

Edit1.SetFocus;  End;

8. Загрузить приложение, проверить работу кнопки Открыть.

9. Для кнопок панели ввести соответствующие коды:

WebBrowser1.GoBack //назад

 

WebBrowser1.Stop; //остановить загрузку

 

WebBrowser1.Refresh; //обновить страницу

 

WebBrowser1.GoHome; //на домашнюю страницу

 

WebBrowser1.GoForward; //вперед

10. Проверить работу приложения.

11. Добавить на форму компонент StatusBar (Win32)и изменить значение его свойства SimplePanel = True.

12.  Для компонента WebBrowser 1 выбрать событие OnStatusTextChange и ввести код:

StatusBar1.SimpleText:= Text;

13. Добавить на форму компонент ProgressBar (Win32)и изменить значение его свойства Align =alButtom.

14. Для компонента WebBrowser 1 выбрать событие OnProgressChange и ввести код:

ProgressBar1.Max:= ProgressMax;

ProgressBar1.Position:= Progress;

15. Проверить работу приложения.

16. Модернизировать приложение для реализации следующих функций:

· при изменении размера формы компоненты StatusBar и ProgressBar должны всегда отображаться на экране.

· кнопки Назад и Вперед после загрузки приложения должны быть недоступны. Кнопка Назад получает доступ только после выбора пользователем гиперссылки в окне браузера. Кнопка Вперед получает доступ после щелчка по кнопке Назад

 

ПРАКТИЧЕСКАЯ РАБОТА №14

 

Тема: Разработка тестового приложения.

Цель работы: Закрепить навыки программирования в Delphi.

Постановка задачи:

Текстовый файл содержит несколько вопросов и 4 варианта ответа, из которых только один ответ верный(помечен символом +). Файл имеет следующую структуру:

Тема теста (дисциплина)

/вопрос 1

- ответ 1

+ ответ 2

- ответ 3

- ответ 4

/вопрос 2

+ вопрос 1

- вопрос 2

- вопрос 3

- вопрос 4

 ...

Создать текстовый файл с тестом из 5 вопросов в соответствии с заданной структурой.

Разработать приложение, которое позволяет выбирать файл с тестовыми заданиями и проводить последовательное тестирование.

Предусмотреть вывод результат тестирования на экран

Порядок выполнения:

1. Загрузить Delphi;

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

объект	свойство	значение
Label	Name	Label1
	WordWrap	True
RadioButton	Name	RadioButton1
Button	Name	Button1
	Caption	Далее
OpenDialog	Name	OpenFile

3. Для формы выбрать событие Create и ввести код для создания массива радиокнопок и объявить необходимые переменные:

For i:=1 to 4 Do

Begin

otv[i]:= TRadioButton.Create(RadioButton1);

otv [i].Parent:= Form1;

otv[i].Left:= RadioButton1.Left;

otv[i].Top:= RadioButton1.Top+i*40;

otv [i].Visible:=true;

otv [i].Width:= RadioButton1.Width;

otv [i].Height:= RadioButton1.Height;

otv [i].Color:= RadioButton1.Color;

otv[i].Checked:=false;

otv[i].Font:= RadioButton1.font;

end;

RadioButton1.Visible:=false;

 

4. Добавить на форму меню из двух пунктов Файл / Открыть и Выход

5. Для пункта Открыть ввести код:

If openfile.Execute Then

Begin

assignfile(f1,openfile.FileName);

reset(f1);

readln(f1,s);

form1.Caption:=s; {тема теста}

verno:=0;//кол-во верных ответов

n:=0; //номер текущего вопроса

button1.Enabled:=true;

label1.Caption:='';

for i:=1 to 4 do

begin

otv[i].Caption:='';

otv[i].Checked:=false;

end;

end;

 

6. Для кнопки Далее ввести код:

if n>0 then {проверим ответ на предыдущий вопрос}

for i:=1 to 4 do

if (otv[i].Checked =true) and (otv[i].tag=1) then verno:=verno+1;

if eof(f1) then {если тест закончен}

begin

showmessage(' кол-во верных ответов='+inttostr(verno));

closefile(f1);

button1.Enabled:=false;

exit;

end;

n:=n+1;            

{÷читаем следующий вопрос}

readln(f1,s);

delete(s,1,1);

label1.Caption:=s;

for i:=1 to 4 do {варианты ответов}

begin

readln(f1,s);

otv[i].Checked:=false;

otv[i].Tag:=0;

if s[1]='+' then otv[i].Tag:=1;{запомним верный ответ}

delete(s,1,1);

otv[i].Caption:=s;

end;;

 

7. Проверить работу приложения.

8. Модернизировать приложение: вывод каждого вопроса должен сопровождаться отображением картинки, имя графического файла для каждого вопроса записать в строке, следующей за вопросом.

9. Результат показать преподавателю.

 

ПРАКТИЧЕСКАЯ РАБОТА № 15

 

Тема Разработка приложения для базы данных

Цель работы: Получить навыки создания приложения для базы данных.

Пояснения к работе

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

Краткий обзор средств доступа к базам данных

Вкладка  Data Access	Содержит основные компоненты доступа к данным, они общие для всех и могут использоваться совместно с другими группами компонентов
Вкладка Data Controls	Содержит компоненты для отображения и редактирования данных в таблицах, они используются вне зависимости от используемой технологии доступа к данным.
Вкладка BDE	Содержит компоненты, позволяющие получать доступ к базам данных по технологии BDE (Borland Database Engine, разработана фирмой Borland). Эта технология хорошо работает с устаревшими типами баз данных: Paradox, dBase, FoxPro, в настоящее время фирма Borland ее не поддерживает.
Вкладка DBEXpress	Содержит компоненты, поддерживающие технологию DBEXpress, которая хорошо подходит для программирования клиент-серверных приложений, использующих базы данных Oracle, DB2, MySQL
Вкладка ADO	Содержит компоненты, поддерживающие технологию ADO (Active Data Objects),разработанную Microsoft. Их желательно использовать при работе с базами данныхMS Access и MS SQL Server.

 

Компоненты вкладки BDE

Table	Обеспечивает доступ к таблицам БД, создает набор данных, который передает все данные из физической таблицы БД с помощью BDE
Query	Предназначен для формирования набора данных их физической таблицы в соответствии с определенным запросом на языке SQL
StopedProc	Делает доступными процедуры, хранимые на сервере
Database	Устанавливает связь с БД
BatchMove	Для групповых операций переноса данных из одного набора в другой
Session	Текущий сеанс работы с БД, для общего управления связью приложения с БД. Генерируется автоматически

Компоненты вкладки Data Access

DataSource	Источник данных, предназначен для связи компонентов типа Table и Query с компонентами отображения данных. Этот компонент исполняет роль посредника между элементами интерфейса приложения и наборами данных.
Остальные компоненты служат для связи с XML-документами, кеширования и работы с пакетами

Компоненты вкладки Data Controls

DBGrid	Сетка - для вывода таблицы с данными БД
DBNavigator	Навигатор – для управления работой БД
DBText	Надпись – для вывода строкового значения из поля таблицы БД
DBEDIT	Однострочный редактор - для вывода и редактирования строкового значения поля
DBMemo	Многострочный редактор - для вывода значения поля типа Memo
DBImage	Для вывода значения графического образа
DBListBox	Простой список – для вывода списка строковых значений поля
DBComboBox	Комбинированный список – для вывода списка строковых значений поля
DBCheckBox	Независимый переключатель – для вывода значения поля типа CheckBox
DBRadioGroup	Группа зависимых переключателей
DBLookupListBox	Простой список, формируемый по полю набора данных
DBRichEdit	Полнофункциональный текстовый редактор
DBCtrlGrid	Модифицированная сетка
DBChart	Диаграмма – для вывода графиков по данным БД

Компоненты ADO

ADOConnection	Для управления соединением с базой данных и передачи запросов поставщику данных
ADOCommand	Для управления информацией о запросе к базе или команде
ADORecordset	Содержит таблицу, которая является результатом запроса к базе данных
ADOField	Содержит описание поля в таблице, возращенной поставщиком данных.

 

Модуль данных (data modul) – это объект класса TDataModule, который, как и обычная форма, предназначен для размещения компонентов. Отличие состоит в том, что в них размещаются невизуальные компоненты. Это удобно для централизованного хранения в проекте компонентов Table и др. компонентов, используемых для организации доступа к базам данных.

Постановка задачи

В СУБД Access создана база данных «Телефонный справочник» (файл db_Telefon.mdb). База данных содержит одну таблицу, структура таблицы представлена на рисунке.

Используя технологию ADO, разработать приложение, которое будет работать с этой базой.

 

Порядок выполнения

Часть

1. Создать новый проект, с вкладки dbGo поместить на форму компонент TADOConnection;

2. Настроить соединение с сервером:

· Дважды щелкнуть по компоненту ADOConnection

· В окне выбрать переключатель Use Connection String  и щелкнуть Build (вызов мастера)

· На вкладке Поставщик данных выбрать драйвер доступа к данным Microsoft Jet 4.0 OLE DB Provider и нажать Далее;

· На вкладке Подключение в строке Выберите или введите имя базы данных введите имя db _ Telefon. mdb

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

· Щелкнуть по кнопке Проверить подключение. Если все указано верно, то выводится сообщение. Нажмите ОК.

· Закройте окно создания строки подключения Ок, закрыть редактор строки подключения ОК.

3. Продолжить настройку приложения:

· Для компонента ADOConnection отключить свойство LoginPromt – false (для того, чтобы при обращении к базе не запрашивался пароль)

· Для свойства Connected задать значение True, чтобы произошло соединение с базой

4. Для получения доступа к таблице базы:

· Установить на форме компонент ADOTable, изменить имя на BookTable

· Для свойства Connection из списка выбрать ADOConnection 1

· В свойстве TableName выбрать имя таблицы

· Для свойства Active установить значение True

5. Для отображения данных из таблицы:

· Установить на форму компонент DataSource (вкладка Data Access),для свойства DataSet выбрать BookTable (указали какую таблицу отображать)

· Установит компонент DBGrid (вкладка Data Controls), для свойства DataSource Выбрать DataSource 1.

6. Приложение готово. Запустите его, добавьте новые строки, отредактируйте существующие строки, удалите что-нибудь (Ctrl / Del). Для вставки строки используйте Ins.