Zemskov_my_sppo1

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

Рис. 2.5. Вид окна диалога для ввода параметров контрастирования

шаблон процедуры, в который надо вписать нужный код: procedure TForm1.Image1MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer); begin

StatusBar1.Panels[0].Text :=

’(’ + IntToStr(X) + ’, ’ + IntToStr(Y) + ’)’ ;

end;

Здесь X и Y — новые координаты указателя мыши в системе координат объекта, для которого создаётся обработчик, т. е. для картинки Image1.

Запустим программу на выполнение и проверим, отображаются ли координаты. Теперь добавим значения яркости точек:

procedure TForm1.Image1MouseMove(Sender: TObject;

9. Создаём новый диалог. Теперь мы хотим выполнить линейное контрастирование, причём параметры ymin и ymax в формуле (2.1) должны вводиться пользователь после нажатия на кнопку Контрастирование. Для этого надо создать новое окно диалога, на котором разместить два поля ввода и текст подсказки. В Delphi имеется заготовка для простого диалогового окна, на котором уже размещены две кнопки (OK и Cancel). Выполним:

í File í New í Other Dialogs ÚÚ Standard Dialog (Horizontal) .

Зададим в инспекторе объектов имя новой формы (для это щёлкнем по её фону, где нет других объектов): Name := InParam; зададим также текст, который будет отображаться в заголовке:

Caption := Параметры контрастирования.

Чтобы заголовок отображался полностью, возможно, придётся несколько увеличить размеры окна. Разместим на новой форме два объекта типа TEdit: Standard Edit Ú форма (два раза)

и две надписи: Standard Label Ú форма (два раза).

Для надписей Label1 и Label2 в инспекторе объектов зададим свойства: Caption := Мин. яркость:; Caption := Макс. яркость:.

Для полей ввода Edit1 и Edit2 зададим Text := 0; Text := 255. Диалог для ввода параметров контрастирования создан (рис. 2.5).

Переключимся на главную форму (можно воспользоваться менеджером проекта: í View í Project Manager ÚÚ Form1 ) и создадим на неё ещё одну кнопку с надписью Контрастирование. Двойным щелчком по новой кнопке создадим заготовку процедуры обработки нажатия и впишем следующий код:

procedure TForm1.Button3Click(Sender: TObject);

var ymin, ymax, xmin, xmax, i, j, pix, w, h : Integer; begin

if InParam.ShowModal = mrOK then begin // Если было нажато OK

13

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

ymin := StrToInt(InParam.Edit1.Text); ymax := StrToInt(InParam.Edit2.Text);

//Найдём макс. и мин. яркость for j := 0 to h do

for i := 0 to w do begin

pix := Pixels[i,j] and $ff;

if pix > xmax then xmax := pix; if pix < xmin then xmin := pix;

end;

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

//сначала копируем первое изображение во второе:

Image2.Picture.Bitmap.Assign(Image1.Picture.Bitmap); // теперь изменяем яркость каждой точки:

with Image2.Picture.Bitmap.Canvas do for j := 0 to h do

for i := 0 to w do begin

//получим яркость текущей точки: pix := Pixels[i,j] and $ff;

pix := round((pix-xmin)/(xmax-xmin)*(ymax-ymin)+ymin); if pix > $ff then pix := $ff;

//запишем новое значение яркости точки:

Pixels[i,j] := (pix shl 16) + (pix shl 8) + pix; if (j mod 10 = 0) and (i=0) then

Application.ProcessMessages;

end;

end;

end;

Здесь мы выводим на экран диалог InParam в модальном режиме (т.е. он будет «держать» фокус ввода, пока пользователь не нажмёт OK или Cancel) и если была нажата кнопка OK, то начинаем выполнять контрастирование, а иначе ничего не делаем.

Проверьте, как всё работает. Попробуйте вводить различные значения параметров, чтобы контрастность становилась то больше, то меньше, чем на исходном изображении. Если исходное изображение уже имело максимально возможный динамический диапазон, то при вводе ymin = 0, ymax = 255 обе картинки будут иметь одинаковый вид.

Контрольные вопросы

1.В чем состоит сущность поэлементной обработки изображений?

2.Как определяются параметры преобразования изображения при его линейном контрастировании?

3.Каков механизм появления ложных контуров при применении пилообразного контрастирования? При каких ещё процедурах могут возникать ложные контуры?

4.В чём главное различие между методами поэлементного преобразования и методами фильтрации изображений?

5.Как в Object Pascal осуществляется доступ к полям и методам объекта?

6.Какой метод объекта типа TForm позволяет вывести на экран изображение формы в модальном режиме?

14

Ю.В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

7.Чем растровое изображение отличается от векторного?

8.С помощью какого поля объекта типа TImage можно получить доступ к отдельным точкам (пикселям) растрового изображения?

9.Опишите формат хранения информации о цвете каждого пикселя растрового изображения.

10.Какие методы обработки изображений называют неоднородными? Однородными?

11. Что изменится, если в тексте процедур контрастирования и соляризации вместо условного оператора if pix>$ff then pix:=$ff использовать операцию pix := pix and $ff?

15

Ю.В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

3.Использование библиотек динамической компоновки (DLL)

3.1.Основные сведения о динамических библиотеках

и.dll) равен $400000, значит, если не изменить несколькими программами или процессами.

3.2.Пример создания DLL-библиотеки

ВDelphi имеется мастер создания DLLтель (например, MyDLL). Обычно для контроля за

16

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

3.3. Неявная загрузка DLL-библиотеки

3.4. Явная загрузка динамической библиотеки

17

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

Листинг 3.1. Текст библиотечного модуля

library Complex; {$DEFINE Complex} uses

SysUtils, Classes, ComplexInt; {$R *.res}

function AddC(x,y: TComplex): TComplex; stdcall; begin

Result.Re := x.Re + y.Re; Result.Im := x.Im + y.Im;

end;

function SubC(x,y: TComplex): TComplex; stdcall; begin

Result.Re := x.Re - y.Re; Result.Im := x.Im - y.Im;

end;

exports // список экспорта

AddC, SubC;

begin // инициализирующая часть в данном случае пустая end.

Листинг 3.2. Текст интерфейсного модуля

unit ComplexInt; interface

type

TComplex = record Re, Im : Real;

end;

{$IFNDEF Complex}

// если не подключался модуль Complex, то объявляем функции как внешние: function AddC(x,y: TComplex): TComplex; stdcall;

function SubC(x,y: TComplex): TComplex; stdcall; {$ENDIF}

implementation {$IFNDEF Complex}

function AddC; stdcall; external ’COMPLEX.DLL’ name ’AddC’; function SubC; stdcall; external ’COMPLEX.DLL’ name ’SubC’; {$ENDIF}

begin end.

Листинг 3.3. Текст обработчика нажатия на кнопку procedure TForm1.Button1Click(Sender: TObject); var x,y,z : TComplex;

begin

x.Re := StrToFloat(Edit1.Text); x.Im := StrToFloat(Edit2.Text); y.Re := StrToFloat(Edit3.Text); y.Im := StrToFloat(Edit4.Text); z := AddC(x,y);

Label1.Caption := FloatToStr(z.Re);

Label2.Caption := FloatToStr(z.Im); end;

18

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

Листинг 3.4. Пример явной загрузки библиотеки

type

TComplex = record R, I : Real;

end;

TComplexFunc = function (x,y: TComplex): TComplex; stdcall;

........................................

procedure TForm1.Button1Click(Sender: TObject); var

x,y,z : TComplex; Add : TComplexFunc; Handle : LongWord;

begin

x.R := StrToFloat(Edit1.Text); x.I := StrToFloat(Edit2.Text); y.R := StrToFloat(Edit3.Text); y.I := StrToFloat(Edit4.Text);

Handle := LoadLibrary(’Complex.dll’); // Загружаем библиотеку if Handle = 0 then begin // если неудачно

ShowMessage(’Не найдена библиотека Complex.dll’); Halt; // аварийно закончить

end;

@Add:=GetProcAddress(Handle,PChar(’AddC’));

//получили адрес функции;

//вариант:

//@Add:=GetProcAddress(Handle, PChar(LongInt(2)));

z := Add(x,y);

FreeLibrary(Handle); // выгрузили библиотеку Label1.Caption := FloatToStr(z.R); Label2.Caption := FloatToStr(z.I);

end;

3.5.Хранение форм в динамических библиотеках

ВDLL-библиотеках кроме кода можно хранить который ничего "не знает"о глобальном объекте вытакже и ресурсы. Например, при создании другой зывающей программы. В режиме модального вызова программы удобно было бы воспользоваться формой это не имеет особого значения,т. к. модальное окдля ввода двух комплексных чисел, которая была но блокирует работу вызывающей программы. В ре-

19

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

Листинг 3.5. DLL-библиотека с формой

library DLLWithForm;

uses SysUtils, Classes, DLLFormU in ’DLLFormU.pas’ {DLLForm}; {$R *.RES}

exports

ShowModalForm, ShowForm, FreeForm; begin

end.

3.6. Варианты заданий

20

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

Листинг 3.6. Описание формы, которая будет храниться в DLL-библиотеке

unit DLLFormU; interface

uses Windows, Messages, SysUtils, Classes,

Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;

type

TDLLForm = class(TForm) BitBtnl: TBitBtn; BitBtn2: TBitBtn;

procedure FormClose(Sender: TObject; var Action: TCloseAction); private

CallForm: THandle; // Дескриптор вызывающей формы end;

// Объявление экспортируемых подпрограмм function ShowModalForm: Integer; procedure ShowForm(aHandle: THandle); procedure FreeForm;

var DLLForm: TDLLForm;

implementation {$R *.DFM}

function ShowModalForm: Integer; // Модальный вызов begin

DllForm := TDllForm.Create(Application); Result := DLLForm.ShowModal; DLLForm.Free;

end;

procedure ShowForm(Appl, Form: THandle); // Немодальный вызов begin

Application.Handle := Appl; // Замена объекта Application DllForm := TDllForm.Create(Application);

//Запоминаем дескриптор вызывающего окна для посылки

//ему сообщения о закрытии

CallForm := Form; DLLForm.Show end;

procedure FreeForm; // Уничтожение формы begin

DLLForm.Free

end;

procedure TDLLForm.FormClose(Sender: TObject; var Action: TCloseAction); begin

if CallForm<>0 then SendMessage(CallForm, wm_User, 0, 0) end;

end.

21

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

Листинг 3.7. Текст вызывающей программы

unit TestMainU; interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TTestMain = class(TForm)

Buttonl: TButton; // Открыть в модальном режиме Button2: TButton; // Открыть в немодальном режиме

Button3: TButton; // Закрыть окно Labell: TLabel;

procedure ButtonlClick(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); public

procedure WMUser(var Msg: TMessage); message WM_USER; end;

var TestMain: TTestMain;

implementation {$R *.DFM}

function ShowModalForm: Integer; External ’DLLWithForm.dll’; procedure ShowForm(Appl, Form: THandle); External ’DLLWithForm.dll’; procedure FreeForm; External ’DLLWithForm’;’

procedure TTestMain.ButtonlClick(Sender: TObject); // Модальный вызов begin

Button2.Enabled := False;

labell.Caption := ’ModalResult = ’ + IntToStr(ShowModalForm); labell.Show; // Показываем результат вызова

Button2.Enabled := True end;

procedure TTestMain.Button2Click(Sender: TObject); // Немодальный вызов begin

Buttonl.Enabled := False;

Button2.Enabled := False;

Button3.Enabled := True; labell.Hide;

ShowForm(Application.Handle, Self.Handle); end;

procedure TTestMain.Button3Click(Sender: TObject); // Закрыть форму begin

FreeForm; Buttonl.Enabled := True; Button2.Enabled := True; Button3.Enabled := False;

end;

procedure TTestMain.WMUser(var Msg: TMessage); // Сообщение из формы DLL о её закрытии

begin Button3.Click

end;

end.

22