Форум: "Основная";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
ВнизDDE Найти похожие ветки
← →
serg (2002-02-25 13:44) [6]Почитать можно в Helpe по VBA и в MSDN.
Поэтапно:
1.Открываешь Word.
2.Нажимаешь в нем Alt+F11(открывается редактор VBA)
3.Открываешь проект.
4.Набираешь:
sub MyFirstDDE
Dim TheCanel As Long
TheCanel = Application.DDEInitiate("DDEProject", "MyDDEServer")
Application.DDEPoke TheCanel, "MyDDEItem", "Текст,который передаешь в прогу"
Application.DDETerminate TheCanel
end sub
5.Открываешь DELPHI
6.Создаешь новый проект и называешь его DDEProject
7.кидаешь на форму TDdeServerConv.
8.называешь его (Name=) MyDDEServer
9.кидаешь на форму TDdeServerItem
10. устанавливаешь его сво-о ServerConv в MyDDEserver
11.называешь его MyDDEItem
12. делаешь у него обработчик
procedure MyDDEItem.OnPokeData(Sender:TObject);
begin
ShowMessage(MyDDEItem.Text);
end;
13.Запускаешь этот проект.
14.Переходишь в Word
15.Запускаешь макрос MyFirstDDE
Вот примерно так.Удачи
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c