Вверх ↑
Этот топик читают: Гость
Ответов: 253
Рейтинг: 0
#1: 2019-04-09 14:54:16 ЛС | профиль | цитата
Как передать данные из одной программы в другую? знаю что можно через TCP. А можно как-то без него. допустим в одной программе кнопка в другой светодиод. нажав кнопку включить светодиод.
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 233
Рейтинг: 12
#2: 2019-04-09 15:26:14 ЛС | профиль | цитата
egorhay, MailSlot

Принимаемая программа


Add(MainForm,2953706,133,140)
{
Width=389
Height=167
Caption="Главная программа"
Point(onClose)
link(onCreate,8563558:doCreate,[])
link(onClose,8563558:doDestroy,[])
}
Add(MailSlot_Server,8563558,196,154)
{
Name="Slot"
link(onRead,8356496:doCompare,[])
}
Add(Edit,12778857,336,182)
{
Left=30
Top=30
Width=325
Text=""
}
Add(If_else,8356496,252,154)
{
Op2=String(#1)
link(onTrue,12720843:doChangeValue,[(310,160)(310,132)])
link(onFalse,12778857:doText,[(310,167)(310,188)])
}
Add(LED,12720843,336,126)
{
Left=35
Top=65
}

Отправляемая программа


Add(MainForm,2953706,294,77)
{
Height=149
Caption="Передача данных"
}
Add(MailSlot_Client,9910013,294,140)
{
Name="Slot"
}
Add(Button,2966614,175,112)
{
Left=20
Top=15
Width=80
Caption="Светодиод"
Data=String(#1)
link(onClick,11634712:doEvent1,[(229,118)(229,146)])
}
Add(Edit,15701504,175,161)
{
Left=20
Top=50
Width=305
Text=""
link(onChange,11634712:doEvent2,[(237,167)(237,153)])
}
Add(Hub,11634712,252,140)
{
InCount=2
OutCount=1
link(onEvent1,9910013:doWrite,[])
}
карма: 2

0
Ответов: 253
Рейтинг: 0
#3: 2019-04-09 16:05:27 ЛС | профиль | цитата
Iliya, Спасибо большое)
карма: 0

0
Ответов: 1328
Рейтинг: 69
#4: 2019-04-09 18:23:50 ЛС | профиль | цитата
egorhay, посмотри еще в примерах система-dde
карма: 2

0
4
Сообщение
...
Прикрепленные файлы
(файлы не залиты)