Читать «Виртуальная библиотека Delphi» онлайн - страница 35

Unknown

Накладная № Num № Поставщик Наименование товара Код товара Кол-во Цена Сумма Table ? ? ? ? ? ?

Сдал_______________________          Принял________________________

             М.П.                                    М.П.

Далее в форму, откуда будут выводиться данные, вставляете компоненту DdeClientConv из палитры System. Назовем ее DDE1. Эта компонента позволяет передавать информацию между программами методом DDE. Свойства:

ConnectMode : ddeManual — связь устанавливаем вручную

DdeService : (winword) — с кем устанавливается связь

ServiceApplication : C:\MSOffice\Winword\WINWORD.EXE — полный путь доступа к программе. (Вот здесь можно наступить на грабли. Ведь Word может лежать в любой папке! Поэтому путь доступа к нему лучше взять из реестра, а еще лучше использовать OLE см.начало раздела)

Теперь пишем процедуру передачи данных:

{ Печать накладной }

procedure Form1.PrintN;

Var

    S          : string;

    i          : integer;

    Sum        : double;  {итоговая сумма, кстати,совет: не пользуйтесь типом real!}

    Tv, Ss     : PChar;

begin

S:=GetCurrentDir+'\Накладная.doc'; { имя открываемого документа }

DDE1.OpenLink; { устанавливаем связь }

Tv:=StrAlloc(20000); Ss:=StrAlloc(300); { выделяем память }

  { даем команду открыть документ и установить курсор в начало документа }

StrPCopy(Tv, '[FileOpen "'+S+'"][StartOfDocument]');

S:=NNakl.Text; { номер накладной }

  { записываем в позицию Num номер накладной }

StrCat(Tv, StrPCopy(SS, '[EditBookmark .Name = "Num", .Goto][Insert "'+S+'"]'+

'[EditBookmark .Name = "Table", .Goto]'); { и переходим к заполнению таблицы }

  { передаем данные в Word }

if not DDE1.ExecuteMacro(Tv, false) then

   begin { сообщаем об ошибке и выход }

    MessageDlg('Ошибка связи с Microsoft Word.', mtError, [mbOk], 0);

    StrDispose(Tv); StrDispose(Ss);

    exit;

   end;

  { Заполняем таблицу }

Sum:=0; Nn:=0;

for i:=0 to TCount do

begin

  inc(Nn);

  { предполагаем, что данные находятся в массиве T }

  StrPCopy(Tv, '[Insert "'+IntToStr(Nn)+'"][NextCell][Insert "'+T[i].Company+'"]'+

   '[NextCell][Insert "'+T.TName+'"][NextCell][Insert "'+T.Cod+'"][NextCell]'+

   '[Insert "'+IntToStr(T.Count)+'"][NextCell]'+

   '[Insert "'+FloatToStr(T.Cena)+'"][NextCell]'+

   '[Insert "'+FloatToStr(T.Count*T.Cena)*+'"][NextCell]'));