Скачать: CL | DM;

Выгрузка результатов в Word   Найти похожие ветки 

← →
ambhtr   (2007-06-09 11:14) [0]

Результаты запроса вывожу в Word.
Общая схема следующая:
- На форму поместил DDE: TDdeClientConv;
- В процедуре пишем:
try
 DDE.OpenLink; { устанавливаем связь }
 Tv:=StrAlloc(20000);
 Ss:=StrAlloc(300); { выделяем память }
…
 qryDBF.First;
 while not qryDBF.Eof do
   begin
…
       // 1 - открываем документ и становимся в начало документа
       StrPCopy(Tv, "[FileOpen ""+ sNewFileName + ""][StartOfDocument]");
       if not DDE.ExecuteMacro(Tv,false) then
        begin
         MessageDlg("1 Ошибка связи с Microsoft Word.", mtError, [mbOk], 0);
         exit;
        end;
…
и далее идет заполнение документа
…
    qryDBF.Next;
   end;  //  while not qryDBF.Eof do
finally
 DDE.CloseLink; //Разрываем установленную ранее связь
 StrDispose(Tv);
 StrDispose(Ss);
end;

Но получается так, что каждый раз открывается сам Word и остается открытым и полученный файл приходиться "вручную" записывать и после этого закрывать Word.
Можно ли сделать так, чтобы выгрузка данных в Word, запись созданного файла и закрытие приложения Word, происходила без "визуализации" Worda.

---

← →
clickmaker ©   (2007-06-09 11:31) [1]

> запись созданного файла и закрытие приложения Word, происходила
> без "визуализации" Worda

TWordApplication с Visible = false подойдет?

---

← →
ambhtr   (2007-06-09 11:57) [2]

К сожалению, я не смог найти в DDE: TDdeClientConv;, что-нибудь со свойством Visible.
Есть DDE.DdeService := "winword";
Есть DDE.ServiceApplication := "C:\Program Files\Microsoft Office\Office10\WINWORD.EXE";
Я это взял из примера приведенного в какой-то статье. Давно. Саму статью найти не могу тоже.

---

← →
clickmaker ©   (2007-06-09 12:06) [3]

> не смог найти в DDE: TDdeClientConv;, что-нибудь со свойством
> Visible

а кто сказал, что оно там?
я предлагал TWordApplication с закладки Servers

---

← →
Amoeba ©   (2007-06-09 12:34) [4]

> ambhtr   (09.06.07 11:14)
>
> Результаты запроса вывожу в Word.
> Общая схема следующая:
> - На форму поместил DDE: TDdeClientConv;

И зачем понадобилось использовать сию давно устаревшую технологию? Ведь для таких задач есть OleAutomation.

http://www.podgoretsky.com/ddp.html
http://www.delphimaster.ru/articles/dbtoword/index.html

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c