Текст программы
Ниже приведён текст программы, написанный на языке программирования Delphi 7, для вывода в файл MS Word картинки и подрисуночной подписи.
unit ProgLab;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ExtDlgs, ComObj;
type
TMainProgram = class(TForm)
Picture: TImage;// Объект, на который выводится картинка
InputString: TEdit;// Строка, записываемая в файл
Start: TButton;// Объект для запуска программы
Find_Picture: TOpenPictureDialog;// Объект для выбора адреса картинки
InfInpString: TLabel;// Информация о вводе строки
InputParag: TEdit;// Объект для ввода числа пропускаемых строк
InfInpParag: TLabel;// Информация о вводе числа пропускаемых строк
InfMainProg: TLabel;// Информация о основной программе
procedure StartClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainProgram: TMainProgram;
implementation
{$R *.dfm}
{Подпрограмма для проверки ввода данных}
function check(InputParag:TEdit;var parag:integer):boolean;
begin
try
parag:=strtoint(InputParag.Text);
except
on EConvertError do
begin
ShowMessage('Ошибка ввода! Введите целое число!');
result:=false;
end;
end;
if ((parag<1)or(parag>32768)) then
begin
result:=false;
ShowMessage('Ошибка ввода смещения. Введите значение в допустимом диапозоне [0,32768]');
end;
end;
{Подпрограмма для ввода картинки}
function InputfromFile(var picture:TImage;var Find_Picture: TOpenPictureDialog):boolean;
begin
if FileExists(Find_Picture.FileName) then
Picture.Picture.LoadFromFile(Find_Picture.FileName);
end;
{Подпрограмма для пересылки картинки и подрисуночной подписи в файл Word}
procedure TMainProgram.StartClick(Sender: TObject);
var word:variant;
i,parag:integer;
begin
if ((Find_Picture.Execute)) then
if (check(InputParag, parag)) then
if InputfromFile(picture,Find_Picture) then
begin
Word:=CreateOleObject('Word.Application');
Word.Visible:=True;
Word.Documents.Add; Word.ActiveDocument.Shapes.AddOLEObject(ClassType:='Paint.Picture',FileName:=Find_Picture.FileName,left:=Picture.Left,top:=Picture.Top,width:=Picture.Width,Height:=Picture.Height);
for i:=1 to Parag do
Word.ActiveDocument.Paragraphs.Add;
Word.ActiveDocument.Range.InsertAfter(InputString.Text);
Word.Quit;
end;
end;
end.
Инструкция пользователю
Данная программа создана для вывода подрисуночной надписи и рисунка в файл MS Word. Для запуска программы необходимо активировать вкладку «Пуск».
Инструкция программисту
Список переменных, используемых в программе, для решения поставленной задачи, представлен в таблице 3.1.
Таблица 3.1 - Перечень переменных для решения поставленной задачи
Имя |
Тип |
Описание |
word |
variant |
Файловая переменная Word |
i |
integer |
счётчик цикла |
parag |
integer |
Число пропускаемых строк |
Список используемых компонентов представлен в таблице 3.2.
Таблица 3.2 - Перечень используемых компонентов и их описание
Имя |
Тип |
Описание |
Picture |
TImage |
Объект, на который выводится картинка |
InputString |
TEdit |
Строка, записываемая в файл |
Start |
TButton |
Объект для запуска программы |
Find_Picture |
TOpenPictureDialog |
Объект для выбора адреса картинки |
InfInpString |
TLabel |
Информация о вводе строки |
InputParag |
TEdit |
Объект для ввода числа пропускаемых строк |
InfInpParag |
TLabel |
Информация о вводе числа пропускаемых строк |
InfMainProg |
TLabel |
Информация о основной программе |