powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB6 и DDE
11 сообщений из 11, страница 1 из 1
VB6 и DDE
    #32521402
Фотография # Darth Vader #
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть некое приложение работающее в реальном времени. Оно поддерживает протокол DDE. В каком формате обратиться к приложению для получения значения я знаю, но вот только как "дернуть" значения из приложения работающего в реальном времени в текстБокс формы VB6 ?
...
Рейтинг: 0 / 0
VB6 и DDE
    #32521569
Фотография # Darth Vader #
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сижу жду...
...
Рейтинг: 0 / 0
VB6 и DDE
    #32521674
Фотография Шайтан
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
у текстБокса "txtDDE":
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
txtDDE.LinkTopic = "View|Tagname"
     'где View - имя приложения, которое будешь опрашивать'
     'Tagname - область опрашиваемых переменных'
txtDDE.LinkItem = NameTag
     'где NameTag имя опрашиваемого айтима'
txtDDE.LinkMode =  2 
     'вариант опроса (2 - по запросу, 1 - автоматом, 0 не опрашивать)'
txtDDE.LinkRequest
     'делаешь опрос (нужное тебе значение появляется в тексБоксе)'

с серверами DDE хорошо работает Excel. Можешь там хелп посмотреть и там же создать подключение (чтоб в ячейке было запрашиваемое значение) - и увидишь как правильно обзывать приложение|область, айтим

но учти! DDE старо, как мир :) и в .NET не поддерживается. Так что развития твоё приложение получить не сможет.


Шайтан
...
Рейтинг: 0 / 0
VB6 и DDE
    #32521947
Фотография # Darth Vader #
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо. Пробую.
...
Рейтинг: 0 / 0
VB6 и DDE
    #32521997
Фотография # Darth Vader #
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Шайтану

Блин сразу носом в стенку

Пишу так

Text1.LinkTopic = "RTM1|Get!testdde"
Text1.LinkItem = "testdde" 'вот тут я не уверен что верно указал
Text1.LinkMode = 2
Text1.LinkRequest


Проверил в ексель , =RTM1|Get!testdde - это работает, а в васике выдает ошибку

"No foreign application responded to a DDE initiate"

Что такое Айтим ?
...
Рейтинг: 0 / 0
VB6 и DDE
    #32522030
Фотография Шайтан
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
RTM1|Get!testdde
в VB будет
Код: plaintext
1.
2.
.LinkTopic=RTM1|Get
.LinkItem=testdde
Шайтан
...
Рейтинг: 0 / 0
VB6 и DDE
    #32522032
Фотография Шайтан
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а ты к чему коннектишься?
Шайтан
...
Рейтинг: 0 / 0
VB6 и DDE
    #32522182
Фотография # Darth Vader #
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SCADA система Trace Mode.
...
Рейтинг: 0 / 0
VB6 и DDE
    #32522202
Фотография # Darth Vader #
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть. Пошло вот так:

Text1.LinkTopic = "RTM1|Get"
Text1.LinkItem = "testdde"
Text1.LinkMode = 1
Text1.LinkRequest

Только после значения в текстБоксе какая я то палка уродливая торчит. Как я ее убрать нафиг?

Шайтан , спасибо!
...
Рейтинг: 0 / 0
VB6 и DDE
    #32522291
Фотография Шайтан
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
не знаю, как убирать палку
это будет зависеть, во-первых, от того - какие тэги ты опрашиваешь (текстовые, числовые. ....), во-вторых, не знаю особенностей Trace Mode (что она ещё подпихивает в значение переменной)
я коннектился к SCADA InTouch, но это года 2 назад было.. всех ньансов не помню
Шайтан
...
Рейтинг: 0 / 0
VB6 и DDE
    #32522366
Фотография # Darth Vader #
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо за помощь. Будь здоров!
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB6 и DDE
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]