Р ис. 5.1.2. Окно созданной справочной системы

5.2. Обзор остальных возможностей

Программирование для Интернет: создание собственного броузе­ра; загрузка и передача файлов и документов; прием и отправка элек­трон­ной почты, кодирование файлов; работа с группой новостей; об­мен тек­сто­выми сообщениями и двоичными файлами; передача данных по протоко­лу UDP; создание собственных протоколов и серверов Интер­нет; создание рас­пределенных многопользовательских приложений для Интернет и локальных сетей TCP/IP; создание Web‑приложения доступа к базе данных; использование активных форм в Интернете [4].

Работа с панелью управления Windows: создание заготовки ап­плета, регистрация и отладка библиотеки CPL [2; 7].

Управление работой офисных приложений: офисные программы как серверы автоматизации COM; загрузка и применение [2; 7].

Установка и развертывание приложений: работа с системным реестром; настройка версий приложения; локализация приложений [2; 7].

Поддержка работы группы разработчиков больших приложений: система TeamSource [2; 7].

5.3. Формирование отчетов, диаграмм и анализа данных пакетом Crystal Reports

Пакет Crystal Report (версии 10) является самым мощным сов­ре­менным автономным средством формирования выходных доку­мен­тов: отчетов, диаграмм и оперативного анализа дан­ных (OLAP‑тех­но­ло­гии). Достоинствами пакета являются его широкие воз­мож­ности, ви­зуаль­ность, универсальность (возможность выбирать инфор­мацию из баз дан­ных с различными СУБД), простота подключения (через ActiveX‑элемен­ты командой Componet/Import ActiveX Control) и использования. Выходные доку­мен­ты наиболее часто подвержены изменениям, это приводит к необходимости корректировать тексты приложений и заново их создавать, что весьма трудоемко. Если выходные документы подготовить автономно средствами этого пакета и включить вызов процедур формирования доку­мен­тов в меню приложения, то документы можно корректировать автоном­но, не изменяя приложения.

5.4. Работа с Excel

Приведем примеры работы с Excel:

Пример создания новой книги и записи в нее данных.

// на форме размещаются объекты: Button (Button1) и Edit (Edit1)

uses ComObj, ActiveX;

procedure TForm1.Button1Click(Sender: TObject);

var xlap,xl:variant;

begin

if SaveDialog1.Execute then // открыть окно диалога

begin

xlap:= CreateOLEObject('Excel.Application'); // создать OLE-объект

xlap.workbooks.add; // создать новую книгу

xlap.visible := true;

xl:=xlap.Workbooks[1].Sheets[1]; //первая страница первой книги

xl.Cells[1,1].Value:=edit1.text; // записать в ячейку текст из Edit1

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

xlap.ActiveWorkbook.SaveAs(SaveDialog1.FileName);

xlap.quit; // выход из Excel

end;

end;

Пример создания новой таблице в Excel 2000:

uses ComObj, ActiveX;

var Row, Col: integer; DestRange: OleVariant; Excel: Variant;

begin

Excel := CreateOleObject('Excel.Application.9'); //создать OLE-объект

Excel.Visible := True;

Excel.WorkBooks.Add; //создать новую таблицу

//Поместить слово тест в диапазон ячеек

Excel.ActiveSheet.Range['A2', 'B3'].Value := 'Тест';

//Или число

Excel.ActiveSheet.Range['A4', 'B5'].Value := 42;

//А вот так задаётся формула

Excel.ActiveSheet.Range['A10', 'A11'].Formula := '=RAND()';

//Можно задавать номера ячеек и столбцов

Excel.ActiveSheet.Cells.Item[1, 1].Value := 'Первая ячейка';

Row:=1; Col:=3;

Excel.ActiveSheet.Cells.Item[Row, Col].Value := 'Другая ячейка';

//Можно скопировать данные из одного диапазона ячеек в другой

DestRange := Excel.Range['D6', 'F10'];

Excel.Range['A1', 'C5'].Copy(DestRange);

//Можно задавать параметры шрифта в определенной ячейке

Excel.Range['A2', 'A2'].Font.Size := 20;

Excel.Range['A2', 'A2'].Font.FontStyle := 'Bold';

Excel.Range['A2', 'A2'].Font.Color := clFuchsia;

Excel.Range['A2', 'A2'].Font.Name := 'Arial';

//Можно еще и так изменить цвет диапазона ячеек

Excel.Range['B2', 'C6'].Interior.Color := RGB(223, 123, 123);

end;

Пример открытия и закрытия таблицы:

uses ComObj, ActiveX;

var Excel: Variant; WBk : OleVariant; SaveChanges: OleVariant;

begin

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

Excel.Visible := True;

//Открыть существующую книгу

WBk := Excel.WorkBooks.Open('C:\Test.xls');

...

//Закрыть книгу с сохранением

WBk.Close(SaveChanges := True);

Excel.Quit;

end;