| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблемы с экспортом в Ворд из парадоксовской таблицы [D7, Paradox]

Fuelfire ©   (2004-03-11 13:00:00) 

Здравствуйте! Столкнулся с проблемой, которую пока решить не могу..
Для большей вместимости текста в RichEdit прописываю следующий код:
procedure TForm1.FormActivate(Sender: TObject);
begin
ForFind.Text:='';
RichEdit1.Perform(EM_LIMITTEXT, 1000000000, 0);
При экспорте в Ворд переносится не всё значение поля, а фрагмент.. Предоставляю часть процедуры экспорта:

procedure TForm7.WordExp(Sender: TObject);
begin
  O:=CreateOleObject('Word.Application');
  O.DisplayAlerts:=false;
  O.Visible:=False;
  O.Documents.Add;
  O.ActiveDocument.AutoHyphenation := True;
  O.ActiveDocument.HyphenateCaps := True;
  O.ActiveDocument.ConsecutiveHyphensLimit := 0;
  O.Selection.ParagraphFormat.Alignment := 0;
  O.Selection.TypeParagraph;
  O.Selection.Font.Bold := True;
  O.Selection.Font.Size := 16;
  O.Selection.TypeParagraph;
  O.Selection.TypeText(DBRichEdit1.Text);
Свойство Text типа TCaption, у него также есть ограничения на длину...Как можно корректно экспортировать данные?

---

V-A-V   (2004-03-11 15:04:00) [1]

>Кстати, если использовать FieldByName, то при экспорте берется значение из поля первой записи, что абсолютно не есть гуд...

Сначало нужно встать на нужную запись в таблице а затем получать значение поля...

>Мне бы узнать как налету при экспорте сохранить файл в нужном формате...

Если твои данные хранятся в Blob поле, то можно их сохранить в файле вот так:
DataSet.FieldByName('BlobField').SaveToFile('MyFile.rtf');
А затем загрузить его в Ворд.
Если поле типа String, то можно сначала запихать текст из поля
в переменную типа TStringList, а затем его методом сохранить в файл с расширением rtf, либо воспользоватся методом DBRichEdit.Lines.SaveToFile('MyFile.rtf');

---

Fuelfire   (2004-03-11 14:42:00) [2]

Кстати, если использовать FieldByName, то при экспорте берется значение из поля первой записи, что абсолютно не есть гуд...
Мне бы узнать как налету при экспорте сохранить файл в нужном формате... Сейчас в полях хранятся текстовые данные в виде rtf-кода...Хотя прога в полях их отображает нормально..
После экспорта копирую rtf-код, создаю файл, вставляю этот код, сохраняю с расширением rtf - при открытии я вижу свои данные на нормальном русском языке..

---

V-A-V   (2004-03-11 14:18:00) [3]

Я так понял, что тебе надо из базы отобразить текст в Ворде.
Тогда могу посоветовать тебе хранить в базе сам Вордовский документ в Blob поле и при надобности сохранять его из Blob поля на диске, а затем если надо после закрытия Ворда можно его из файла опять в базенку спрятать...

---

Fuelfire   (2004-03-11 13:57:00) [4]

Если так передавать данные в Ворд, тогда с кодировкой проблемы.. В файлик выдается следующее (rtf):
{\rtf1\ansi\ansicpg1251\deff0\deftab720{\fonttbl{\f0\fnil MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\froman\fprq2\fcharset204{\*\fname Times New Roman;}Times New Roman Cyr;}{\f4\froman\fprq2 Times New Roman;}}

---

V-A-V   (2004-03-11 13:31:00) [5]

Если ты используешь TDBRichEdit и он привязан к какому-то конкретному полю таблицы БД, то проще наверное написать так:
...
O.Selection.TypeText(DataSet.FieldByName('MyField').As...);
...

---

Наверх