Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB6 и DDE / 11 сообщений из 11, страница 1 из 1
18.05.2004, 09:08
    #32521402
# Darth Vader #
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и DDE
Есть некое приложение работающее в реальном времени. Оно поддерживает протокол DDE. В каком формате обратиться к приложению для получения значения я знаю, но вот только как "дернуть" значения из приложения работающего в реальном времени в текстБокс формы VB6 ?
...
Рейтинг: 0 / 0
18.05.2004, 10:31
    #32521569
# Darth Vader #
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и DDE
Сижу жду...
...
Рейтинг: 0 / 0
18.05.2004, 11:13
    #32521674
Шайтан
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и DDE
у текстБокса "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
18.05.2004, 12:44
    #32521947
# Darth Vader #
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и DDE
Спасибо. Пробую.
...
Рейтинг: 0 / 0
18.05.2004, 12:59
    #32521997
# Darth Vader #
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и DDE
Шайтану

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

Пишу так

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
18.05.2004, 13:10
    #32522030
Шайтан
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и DDE
RTM1|Get!testdde
в VB будет
Код: plaintext
1.
2.
.LinkTopic=RTM1|Get
.LinkItem=testdde
Шайтан
...
Рейтинг: 0 / 0
18.05.2004, 13:12
    #32522032
Шайтан
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и DDE
а ты к чему коннектишься?
Шайтан
...
Рейтинг: 0 / 0
18.05.2004, 13:58
    #32522182
# Darth Vader #
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и DDE
SCADA система Trace Mode.
...
Рейтинг: 0 / 0
18.05.2004, 14:03
    #32522202
# Darth Vader #
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и DDE
Есть. Пошло вот так:

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

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

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


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