Blob и отчет в Word?
Добавлено: 11 янв 2006, 23:12
В базе данных в одной из таблиц есть поле Blob, в котором находится текст с графикой, формулами,... Пользователь нажимает на кнопку "Передать в Word", и, все значения других полей замечательно передаются, а вот поле типа Blob, передается в Word не совсем так как хотелось бы.
Процедура выглядит следующим образов:
Подскажите пожалуйста, как исправить этот недочет?
Заранее спасибо!
Процедура выглядит следующим образов:
Код: Выделить всё
procedure TLesson1Form.WordExpButtonClick(Sender: TObject);
var
W: variant;
begin
try
W:=CreateOleObject('Word.Basic');
except
W.free;
ERMsg(6);
exit;
end;
W.AppShow;
W.FileNew(NewTemplate:=0);
W.Insert('Задание № '+MainForm.FindNIBDataSet.FieldByName('LESSON_ID').AsString);
W.Insert(#13);
W.Insert('Из темы '+MainForm.FindNIBDataSet.FieldByName('THEME_NAME').AsString);
W.Insert(#13);
W.Insert(MainForm.FindNIBDataSet.FieldByName('LEVEL_NAME').AsString);
W.Insert(#13);
W.Insert('Источник задания - '+MainForm.FindNIBDataSet.FieldByName('TEXT_AUTOR_NAME').AsString);
W.Insert(#13);
W.Insert(MainForm.FindNIBDataSet.FieldByName('TEXT').Value);
end;
Заранее спасибо!