IBX, FIBPlus, UIB, ADO, .Net и прочее-прочее-прочее, в общем все, что относится к созданию приложений, работающих с InterBase, Firebird и Yaffil - клиент-серверных, трехзвенных, консольных и т.п.
Модератор: kdv
-
makvell
- Сообщения: 6
- Зарегистрирован: 05 дек 2005, 23:45
Сообщение
makvell » 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;
Подскажите пожалуйста, как исправить этот недочет?
Заранее спасибо!
-
Dimitry Sibiryakov
- Заслуженный разработчик
- Сообщения: 1436
- Зарегистрирован: 15 сен 2005, 09:05
Сообщение
Dimitry Sibiryakov » 12 янв 2006, 08:23
Отдавать это поле Ворду как он хочет а не как тебе взбрело в голову.
Сразу оговорюсь - я не знаю как Ворд готов принимать графику, формулы и т.д.
-
makvell
- Сообщения: 6
- Зарегистрирован: 05 дек 2005, 23:45
Сообщение
makvell » 12 янв 2006, 20:09
Dimitry Sibiryakov писал(а):Отдавать это поле Ворду как он хочет а не как тебе взбрело в голову.
Сразу оговорюсь - я не знаю как Ворд готов принимать графику, формулы и т.д.
Вот именно это меня и интересует...
В принципе, в поле записан текст в формате rtf,
если передать текст в Word, не из БД, а из контрола
(rxDBRichEdit.text), то текст передается нормамльно, а
вот все объекты теряются.
-
smu
- Сообщения: 39
- Зарегистрирован: 29 окт 2005, 10:12
Сообщение
smu » 16 янв 2006, 17:19
makvell писал(а):Dimitry Sibiryakov писал(а):Отдавать это поле Ворду как он хочет а не как тебе взбрело в голову.
Сразу оговорюсь - я не знаю как Ворд готов принимать графику, формулы и т.д.
Вот именно это меня и интересует...
В принципе, в поле записан текст в формате rtf,
если передать текст в Word, не из БД, а из контрола
(rxDBRichEdit.text), то текст передается нормамльно, а
вот все объекты теряются.
Есть возможный способ решения (хотя и кривоватый). Сохраняешь из blob в файловый поток (TFileStream) в temp директорию а затем вызываешь через COM Word с указанием пути и типа файла. Это при условии что rtf был сформирован в самом Word