2.4. Описание динамических библиотек

При разработке приложения были реализованы 2 динамические библиотеки. Динамическая библиотека Screen.dll содержит заставку, появляющуюся после запуска программы, но до появления главного окна.

library Screen;

uses

SysUtils,Classes,Windows,

UScreen in 'UScreen.pas' {FormScreen};

{$R *.res}

//показать заставку

procedure ShowScreen(AOwner:TComponent);

var

Time:extended;

FormSc:TFormScreen;

begin

FormSc:=TFormScreen.Create(AOwner); //создать форму

Time:=GetTickCount/1000; //запомнить время

FormSc.Show; //показать форму

FormSc.Repaint; //перерисовать форму

//пока не вышел лимит времени - ничего не делать

while GetTickCount/1000<Time+4 do;

FormSc.Close; //закрыть форму

FormSc.Free; //уничтожить форму

end;

exports ShowScreen;

begin

end.

Библиотека содержит 1 экспортируемую процедуру ShowScreen, служащую для отображения формы.

Библиотека About.dll содержит форму с информацией о программе.

library About;

uses

SysUtils,

Classes,

UAbout in 'UAbout.pas' {FormAbout};

{$R *.res}

//показать форму

procedure ShowAbout(AOwner:TComponent);

var

Form:TFormAbout;

begin

Form:=TFormAbout.Create(AOwner); //создать форму

Form.ShowModal; //показать форму

Form.Free; //уничтожить форму

end;

exports ShowAbout;

begin

end.

Библиотека содержит экспортируемую функцию ShowAbout для отображения формы.

2.5 Основные возможности программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OpenGL, Menus, ExtCtrls, Buttons, ToolWin, ComCtrls,inifiles,WordXP,

StdCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N7: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

Timer1: TTimer;

ColorDialog1: TColorDialog;

ColorDialog2: TColorDialog;

PopupMenu1: TPopupMenu;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

ToolBar1: TToolBar;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton8: TSpeedButton;

ToolButton1: TToolButton;

CheckBox1: TCheckBox;

ToolButton2: TToolButton;

procedure N3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure ReadParams;

procedure WriteParams;

procedure SpeedButton7Click(Sender: TObject);

procedure ReportWord;

procedure SpeedButton8Click(Sender: TObject);

procedure ReportExcel;

private

hrc: HGLRC;

end;

var

Form1: TForm1;

c1,c2:TColor;

implementation

uses Unit2,ULibType,ComObj,Unit3;

{$R *.dfm}

procedure SetDCPixelFormat (hdc : HDC);

var

pfd : TPixelFormatDescriptor;

nPixelFormat : Integer;

begin

FillChar (pfd, SizeOf (pfd), 0);

pfd.dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;

nPixelFormat := ChoosePixelFormat (hdc, @pfd);

SetPixelFormat (hdc, nPixelFormat, @pfd);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

ReadParams;

SetDCPixelFormat(Canvas.Handle);

hrc := wglCreateContext(Canvas.Handle);

Timer1.Interval:=1000;

Timer1.Enabled:=false;

c1:=RGB(0,0,255);

c2:=RGB(255,255,0);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

wglDeleteContext(hrc);

end;

procedure TForm1.N3Click(Sender: TObject);

var

Test:IStar;

Star:TStar;

begin

wglMakeCurrent(Canvas.Handle, hrc);

glViewPort (0, 0, Form1.ClientWidth, Form1.ClientHeight); // область вывода

if Form1.CheckBox1.Checked

then begin

Test:=CreateComObject(Class_Star) as IStar;

Test.SetC1(c1);

Test.SetC2(c2);

Test.PaintStar; end

else begin

Star:=TStar.Create();

Star.c1:=c1;

Star.c2:=c2;

Star.PaintStar;

end;

SwapBuffers(Canvas.Handle); // содержимое буфера - на экран

wglMakeCurrent(0, 0);

Test:=Nil;

if Form2.CheckBox1.Checked then

Form1.Timer1.Enabled:=false

else

Form1.Timer1.Enabled:=true;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

WriteParams;

Close;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

N3Click(Sender);

end;

procedure TForm1.N4Click(Sender: TObject);

begin

if ColorDialog1.Execute then

c1:=ColorDialog1.Color;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

if ColorDialog2.Execute then

c2:=ColorDialog2.Color;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.N2Click(Sender: TObject);

Type

//Процедурный тип для вызова процедуры из DLL

TProc = procedure(AOwner:TComponent);

var

HLib : THandle; //Дескриптор библиотеки

ShowAbout : TProc; //Переменая для вызова функции из DLL

begin

//Получить значение дескриптора загруженной библиотеки

HLib:=LoadLibrary('About.dll');

//Проверить существование библиотеки

if HLib = 0 then

begin

ShowMessage('Библиотека не найдена : About.dll');

exit;

end;

//Получить адрес вызываемой функции

@ShowAbout:= GetProcAddress(HLib, 'ShowAbout');

//Вызов функции, показывающей форму About

ShowAbout(Application);

FreeLibrary(HLib); //Выгрузка библиотеки

N3Click(Sender);

end;

procedure TForm1.SpeedButton5Click(Sender: TObject);

begin

Application.HelpFile := 'Help\NewProject.hlp';

Application.HelpCommand(HELP_FINDER, 3);

end;

procedure TForm1.ReadParams;

Var

IniFile:TIniFile; // объявление переменной, через которую будут обрабатываться данные

Path:String; // Переменная, где будет храниться путь к программе

begin

Path:=Application.ExeName; // полный путь и название запущенной программы

Path:=ExtractFileDir(Path); // отбрасываем название программы. Остается путь.

if Path[Length(Path)]<>'\' then Path:=Path+'\'; // если последний символ не \ то добавить его

{Последняя строка нужна для присвоения последнего символа '\',

потому что при обрезке файла 'C:\PROG.EXE' получим 'C:\',

а при обрезке 'C:\WINDOWS\PROG.EXE' получим 'C:\WINDOWS' }

IniFile:=TIniFile.Create(Path+'project.ini'); // полный путь к программе и имя ini файла

Form1.Top:=IniFile.ReadInteger('FORM1','Form1Top',Form1.Top); // верхнее положение окна

Form1.Left:=IniFile.ReadInteger('FORM1','Form1Left',Form1.Left); // левое положение окна

Form1.Height:=IniFile.ReadInteger('FORM1','Form1Height',Form1.Height); // высота

Form1.Width:=IniFile.ReadInteger('FORM1','Form1Width',Form1.Width); // ширина

IniFile.Free; // если сами создаем, то сами уничтожаем.

end;

procedure TForm1.WriteParams;

Var

IniFile:TIniFile;

Path:String; // Переменная, где будет храниться путь к программе

begin

Path:=Application.ExeName; // полный путь и название запущенной программы

Path:=ExtractFileDir(Path); // отбрасываем название программы. Остается путь.

if Path[Length(Path)]<>'\' then Path:=Path+'\'; // если последний символ не \ то добавить его

IniFile:=TIniFile.Create(Path+'project.ini'); // полный путь к программе и имя ini файла

IniFile.EraseSection('FORM1'); //удаление секции

IniFile.WriteInteger('FORM1','Form1Top',Form1.Top);

IniFile.WriteInteger('FORM1','Form1Left',Form1.Left);

IniFile.WriteInteger('FORM1','Form1Height',Form1.Height);

IniFile.WriteInteger('FORM1','Form1Width',Form1.Width);

IniFile.Free;

end;

procedure TForm1.SpeedButton7Click(Sender: TObject);

begin

ReportWord;

end;

procedure TForm1.ReportWord;

//Отчет в Word

var

wa : TWordApplication; //WordApplication

wd : TWordDocument; //WordDocument

begin

//Создать com-объект

wa:= TWordApplication.Create(Form1);

//Подключиться к серверу Word

wa.Connect;

//Добавить новый документ

wa.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);

wd:= TWordDocument.Create(Form1);

wd.ConnectTo(wa.ActiveDocument);

//Отменить проверку правописания

wa.Options.CheckSpellingAsYouType:=False;

//Отменить проверку орфографии

wa.Options.CheckGrammarAsYouType:=False;

wd.Range.InsertAfter('Отчет: '+#13);

wd.Range.InsertAfter('Параметры формы: '+#13);

wd.Range.InsertAfter('Отступ сверху '+IntToStr(Form1.Top)+#13);

wd.Range.InsertAfter('Отступ слева '+IntToStr(Form1.Left)+#13);

wd.Range.InsertAfter('Высота '+IntToStr(Form1.Height)+#13);

wd.Range.InsertAfter('Ширина '+IntToStr(Form1.Width)+#13);

//Показать Word

wa.Visible:= true;

end;

procedure TForm1.SpeedButton8Click(Sender: TObject);

begin

ReportExcel;

end;

procedure TForm1.ReportExcel;

//Отчет в Excel

var

Excel : variant;

WorkBook : variant; //Рабочая книга

j : integer;

begin

//Создать Соm-объект

Excel:= CreateOleObject('Excel.Application');

//Отключить реакцию на внешние события-для ускорения процесса передачи данных

Excel.Application.EnableEvents:= false;

//Добавить рабочую книгу

WorkBook:= Excel.WorkBooks.Add;

//Изменение ширины столбцов

for j:=0 to 2 do

WorkBook.WorkSheets[1].Columns[j+1].ColumnWidth:= 20;

//Вывод строки

WorkBook.WorkSheets[1].Cells[1,1]:= 'Отчет: ';

WorkBook.WorkSheets[1].Cells[2,1]:= 'Параметры формы: ';

WorkBook.WorkSheets[1].Cells[3,1]:= 'Отступ сверху: ';

WorkBook.WorkSheets[1].Cells[3,2]:= Form1.Top;

WorkBook.WorkSheets[1].Cells[4,1]:= 'Отступ слева: ';

WorkBook.WorkSheets[1].Cells[4,2]:= Form1.Left;

WorkBook.WorkSheets[1].Cells[5,1]:= 'Высота: ';

WorkBook.WorkSheets[1].Cells[5,2]:= Form1.Height;

WorkBook.WorkSheets[1].Cells[6,1]:= 'Ширина: ';

WorkBook.WorkSheets[1].Cells[6,2]:= Form1.Width;

//Показать Excel

Excel.Visible:=true;

end;

end.

Файл вывода формы настройки таймера Unit2.pas.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm2 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

CheckBox1: TCheckBox;

Button1: TButton;

Button2: TButton;

procedure CheckBox1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

Procedure Edit1KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked then

Edit1.Enabled:=false

else

Edit1.Enabled:=true;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

if CheckBox1.Checked then

Form1.Timer1.Enabled:=false

else begin

Form1.Timer1.Enabled:=true;

Form1.Timer1.Interval:=StrToInt(Edit1.Text)*1000; end;

end;

Procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);

begin //Фильтр ввода данных

if not(Key in ['0'..'9', #8]) then

begin MessageBox(0,'Допускается только ввод чисел','Ошибка',mb_ok);

Key:= #0;

end;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Close;

Form1.N3Click(Sender);

end;

end.

Файл реализации класса - UStar.pas