[rroommaann]

Проблема в следующем - в Delphi я не силен!!!
Но умудрился написать программку, которая делает расчеты и строит графики…
Как я говорил выше (Delphi я не силен), а графики мне нужны с несколькими осями и красивые, а компонент Chart не может так как мне хочется, моя програмулина рисует графики аж на двух компонентах Image (на одном (Image1) рисуются оси и подписи к ним, а на втором (Image2) рисуется сеточка и сами графики) - но сейчас не об этом…
В данный момент пишу код создания отчета…
Немного разобрался как делать отчет в MSWord (по шаблону) - тут очень все просто, но не могу в этот отчет никак вставить мои графики…
Единственное чего я достиг, так это написал процедурку сохранения моих графиков на жесткий диск в формате JPG - (есть специальная кнопка, при нажатии на которой на экране возникают по очереди мои графики (а их у меня 8 штук) делаются скриншоты части экрана, на котором график - так пришлось сделать из-за построения графиков аж на двух компонентах Image)…

Помогите пожалуйста вставить рисунки формата JPG (которые сохранены на жестком диске) в документ MSWord…

Пол дня я бороздил просторы бескрайнего Интернета - нашел всего парочку статей - ничего не могу понять и ничего у меня не работает…

Заранее спасибо!!!

[Ildar-tsr]

С Вордом через OLE работаешь?

[rroommaann]

если не ошибаюсь то да

в uses я дописал ComObj

Запускаю MSWord так:

Код:

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

А вот так я произвожу заполнение шаблона:

Код:

  Word.Selection.Find.Text := '$символ$';
  Word.Selection.Find.Replacement.Text := 'значения';
  Word.Selection.Find.Execute(Replace := 2);

$символ$ - так написано в шаблоне, а delphi сам меняет на 'значения'

[Ildar-tsr]

Сообщение от rroommaann

если не ошибаюсь то да

Вставка картинки в месте где установлен курсор:

Код:

  Word.Selection.InlineShapes.AddPicture(FileName:= 'C:\123.jpg',
                                         LinkToFile:= false,
                                         SaveWithDocument:= true);

P.S. Я не особо в построении графиков разбираюсь, но по-моему изначально программа неправильно спроектирована. Хотя может быть в твоем случае это то что нужно.

[rroommaann]

Огромаднейшее СПАСИБО!

Все заработало!!!

Я не силен не только в Delphi, но и вообще в программировании... как-то я написал программку, там отчет я делал в MSExcel - это очень нудный и долгий процесс - написание самого кода, в MSWord - все гораздо проще и код получается поменьше...

а графики у меня выглядят так (я прикрепил файл)...
рисую я их с помощью прямых линий:

Код:

 Image_2.Canvas.MoveTo(a1, b1); // начало линии
 Image_2.Canvas.LineTo(a2, b2);   // конец линии 

где a1, b1, a2, b2 - координаты начала и конца линии соответственно

других способов в голову не пришло...

Еще раз большое Спасибо!!!

[rroommaann]

... а еще используя

Код:

   Canvas.MoveTo(a1, b1);
   Canvas.LineTo(a2, b2);

(программа рисует прямо на форме)
я написал скринсервер - часики... рисуночек тоже прилагаю: