img
00:00
imgDRKB online - WinWord через DDE
imgimgimg
  Общие вопросы
  Delphi IDE, компиллятор, отладчик, редактор
  Язык программирования Дельфи
  VCL
  Системные функции и WinAPI
  Базы данных
  Работа с файловой системой
  Репортинг, работа с принтером
  Работа с сетью, интернетом, протоколами
  Работа с графикой и мультимедиа
  Математика, алгоритмы
  Форматы файлов, данных. Конвертация форматов
  ActiveX, COM, DCOM, MIDAS, CORBA, интерфейсы, OLE, DDE
  Общие вопросы о COM/DCOM/MIDAS технологии
  Работа с ActiveX, OCX, VBX
  Общие вопросы о CORBA технологии
  Распределённые приложения баз данных
  Работа с приложениями MS Office
  Работа с различными приложениями (не MS Office)
  DDE
  Как можно работать с DDE?
  Динамический обмен данными (DDE)
  DDE (статья)
  DDE - передача текста
  DDE для вызова диалога поиска файлов и папок
  DDE для захвата текущего URL из окна Internet Explorer или Netscape Navigator
  GROUPFILE и ADDITEM для групп
  Как добавить группу в Program Manager
  WinWord через DDE
  Как можно работать с DDE под Delphi, используя вызовы API
  Получение данных из Program Manager через DDE
  Пример DDE и WordPerfect
  Работа с Netscape Navigator через DDE
  Регистрация программ в меню Пуск Windows95
  Управление Program Manager в Win95 с помощью DDE
  Управление mIRC при помощи DDE
  Разработка приложений
  Kylix
  Delphi.Net
  Развлечения
  
  [drkb=4230] Комментариев: 0 
WinWord через DDE
Кто-нибудь пробовал использовать WinWord в качестве DDE-сервера? Поделитесь результатами, если они, конечно, успешны.

Опыт 1

Пара других пользователей также задавала на этой неделе аналогичный вопрос, но у меня не было доступа к машине, где установлена Delphi. К несчастью я затер их адреса, но надеюсь они увидят это сообщение. Нижеприведенный код является "экстрактом" моей технологии, которую я успешно применил для создания DDEPokes и DDEExecutes с WinWord в качестве сервера. Обратите внимание на то, что я использовал методы DDE, требующие PChar вместо строк, поскольку строки имеют дополнительные символы и при DDE-преобразованиях WinWord'у плохеет.

delphi
function TfrmLetter.CreateLetter: Boolean;
var
  szCommand: array[0..2048] of char;
  sCommand: string;
  BmkNames: array[0..3] of string;
  idx: ShortInt;
  DDEOK: Boolean;
  Buffer, ParMark: PChar;
  BufSize: Integer;
  hWord: hWnd;
begin
  CreateLetter := False;
  DDEOK := True; {Флаг проверки результатов DDE-операций}
  DDEClient.SetLink('winword', WordDoc);
    {WordDoc содержит имя документа winword, необходимого для связи}
  {DDEClient - элемент управления DDE client}
  if DDEClient.OpenLink = False then
    Exit;

  hWord := FindWindow('OpusApp', nil);
  LockWindowUpdate(hWord); {Блокируем обновление экрана winword}

  {Убедитесь, что нужный документ является активным окном Word}
  sCommand := '[If FileName$() <> "' + WordDoc + '" Then]';
  sCommand := sCommand + '[While (idx < CountWindows()) and (FileName$() <> "';
  sCommand := sCommand + WordDoc + '")][Window][idx = idx + 1]';
  sCommand := sCommand + '[Wend][Activate WindowName$()][End If]';
  StrPLCopy(szCommand, sCommand, SizeOf(szCommand) - 1);
  DDEOK := DDEOK and DDEClient.ExecuteMacro(szCommand, False);

  {Сбрасываем баннер}
  sCommand := '[EditGoto "Banner"]';
  if GetWinwordVersion = 2 then
    {GetWinword - простая функция пользователя, использующая GetModuleHandle
    для определения номера версии запущенного Word: Word 2 или Word 6}

    sCommand := sCommand + '[EditGlossary "Banner"]'
  else if GetWinwordVersion = 6 then
    sCommand := sCommand + '[EditAutoText "Banner"]';
  sCommand := sCommand + '[EditGoto "Date"][UpdateFields][LockFields]';
  StrPLCopy(szCommand, sCommand, SizeOf(szCommand) - 1);
  DDEOK := DDEOK and DDEClient.ExecuteMacro(szCommand, False);
  Application.ProcessMessages;

  {Вставляем Имя отправителя, Прямой номер абонента и пр.}
  BmkNames[0] := 'DirectDialNumber';
  BmkNames[1] := 'EMailAddress';
  BmkNames[2] := 'AuthorName';
  BmkNames[3] := 'Personal';
  for idx := 0 to 3 do
    if CheckInclude[idx].Checked = True then
    begin
      BufSize := TextInclude[idx].GetTextLen;
      Inc(BufSize);
      GetMem(Buffer, BufSize);
      TextInclude[idx].GetTextBuf(Buffer, BufSize);
      DDEOK := DDEOK and DDEClient.PokeData(BmkNames[idx], Buffer);
      FreeMem(Buffer, BufSize);
    end
    else
      DDEOK := DDEOK and DDEClient.PokeData(BmkNames[idx] + '2', '');



и так далее.

Опыт 2

Автор: Jean Yves

Вот еще очень простой пример DDE-связи с WinWord 6. Это работает.

В Word вы должны иметь заранее созданный файл (в нашем примере DDETEST.DOC) и закладку с именем "Bm1".


delphi
unit Unit1;

interface

uses

  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, DdeMan;

type

  TForm1 = class(TForm)
    DdeConv: TDdeClientConv;
    Word: TButton;
    procedure WordClick(Sender: TObject);
  private
    { Private-declarations }
  public
    { Public-declarations }
  end;

  {  Свойства DdeConv:       }
  {  ConnectMode : ddeManual }
  {  DdeService : [None]     }
  {  DdeTopic    : [None]    }
  {  FormatChars : False     }
  {  Name        : DdeConv   }

var

  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WordClick(Sender: TObject);
begin

  if DdeConv.SetLink('WINWORD', 'D:\WINWORD\DDETEST') and
    DdeConv.OpenLink then
  begin
    ShowMessage('Установлена связь с WinWord !')
      { убедимся в наличии соединения }
    DdeConv.PokeData('Bm1', 'Данные из Delphi !')
      { вставляем 'Данные из Delphi' в документ word }
    DdeConv.CloseLink;
  end;
end;

end.


Но только сделав это хотя бы раз своими руками, вы сможете разобраться в этой технологии

@Drkb::04501
http://delphiworld.narod.ru/
DelphiWorld 6.0
Количество статей: 4366
 
Вход
Имя:
Пароль:
Запомнить
Регистрация Забыли пароль?
Мини-чат :)
Необходима регистрация
Архив мини-чата
15-09-2019 18:55
Expendobrooo
Есть кто живой?
15-09-2019 17:36
Programmer
сайт сдох smiley
29-08-2019 22:11
Zoom
ПРивет Привет
02-08-2019 21:22
Set
Не знал что настолько редко
02-08-2019 21:22
Set
Нифига се
01-08-2019 14:26
antonn
smiley
01-08-2019 14:17
pitch
Ну вот и яяяяя
29-07-2019 10:04
antonn
Очень редкое природное явление smiley
28-07-2019 21:21
John Warner
Да, бывает.
27-07-2019 17:41
Set
Тут кто-то пишет?
Статистика
 СегодняВсего
Посетителей2502097507
Запросов26917322744866
Online
Пользователей0
Гостей22
imgimgimgimg
 
img
     00:00