17 / 17 / 0
Регистрация: 04.06.2012
Сообщений: 88
|
|
1 | |
Последовательность при работе с TDde18.07.2012, 16:03. Показов 3686. Ответов 3
Метки нет (Все метки)
Здравствуйте!
Дело вот в чём: есть приложение, которое в режиме реального времени просчитывает некие параметры. Далее часть параметров записывается в одну строку и эта строка должна передаваться другому приложению, запущенному из первой программы. Как я понимаю смысл всего этого: 1. В основной программе необходимо использовать TDdeServerConv и TDdeServerItem. 2. Во вспомогательной - TDdeClientConv и TDdeClientItem. Вопрос: что именно нужно прописывать в основной программе и что именно во вспомогательной?
0
|
18.07.2012, 16:03 | |
Ответы с готовыми решениями:
3
Нераспознанная управляющая последовательность при работе с путями Последовательность директив #include при работе со списками структур Исключение при работе с pictureBox (задание картинки при работе с формой) Грабли при работе STM32f4 при работе с ftp |
422 / 352 / 19
Регистрация: 14.05.2012
Сообщений: 1,437
|
|
18.07.2012, 16:13 | 2 |
0
|
17 / 17 / 0
Регистрация: 04.06.2012
Сообщений: 88
|
|
18.07.2012, 16:57 [ТС] | 3 |
Пробовал уже, не работает... Ладно, буду экспериментировать, может что и получится.
0
|
17 / 17 / 0
Регистрация: 04.06.2012
Сообщений: 88
|
|||||||||||||||||||||||||||||||
19.07.2012, 17:59 [ТС] | 4 | ||||||||||||||||||||||||||||||
В общем разобрался. Кому интересно, вот:
Опишу действия по шагам. Код приведён на C++ Builder'е. Думаю перевести в Delphi труда не составит. Создание Сервера с помощью компонентов TDdeServerConv и TDdeServerItem. Шаг 1. Создайте новый проект. На форму поместите TEdit, TDdeServerConv и TDdeServerItem. Для удобства переименуем DdeServerConv1 в Topic1, а DdeServerItem1 в Items1. Шаг 2. На форме жмём на Items1 и в свойствах щелкаем дважды по свойству Lines и пишем там что-нибудь. В свойстве ServerConv пишем Topic1 (имя темы, или имя компонента TDdeServerConv). Шаг 3. Дважды щёлкаем по форме (FormCreate) и пишем следующее:
Дважды щёлкаем по Edit1 (Edit1Change) и пишем:
При закрытии окна сервера окно клиента должно тоже закрываться, поэтому создаем действие формы CloseQuery и там пишем:
Название проекта по умолчанию Project1. Измените его на server. В свойстве Caption формы также напишите Server (вроде как не обязательно). На этом создание сервера закончено. Создание Клиента. Шаг 1. Создайте новый проект. Дайте форме имя (name) ChatClient. Проект сохраните как Client. Разместите на форме TEdit, TDdeClientConv и TDdeClientItem. Для удобства переименуем DdeClientConv1 в DdeClient, а DdeClientItem1 в DdeClientItem. Шаг 2. В свойствах DdeClient свойство ConnectMode поставьте ddeManual. В графе ServiceApplication напишите имя приложения сервера, то есть Server. Шаг 3. В свойствах DdeClientItem в DdeConv напишите DdeClient, а в DdeItem - Items1 (Название компонента TDdeServerItem в приложении сервера). Шаг 4. Щёлкните дважды по DdeClientItem и напишите:
Щёлкните дважды по форме и напишите:
Выберите в инспекторе объектов формы событие CloseQuery, щёлкните по нёму дважды и напишите:
Если нужно что-либо поподробнее описать, просите, опишу. Прикрепляю файлы проекта и исполняемых файлов: DDE.rar
0
|
19.07.2012, 17:59 | |
19.07.2012, 17:59 | |
Помогаю со студенческими работами здесь
4
Аппаратная ошибка видео (Ошибка при работе с видеоустройствами привела к некорректной работе Windows). Нарушение прав доступа при чтении при работе с большим массивом ASUS K53S выключается при работе от батареи при низком разряде Ошибка при использовании ADODB.CONNECTION при работе с dbf-файлом Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |