![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 19.11.2012
Сообщений: 2
|
![]()
Ну прям беда с этим ActEasyIF.
Скорость обмена 19200, при это для считывания 45 данных компу требуется 5 секунд (мне кажется что это очень много,может ошибаюсь). Программа визуализации зависает на время считывания соответственно на 5 секунд. Считывание нужно производить каждые 3 секунды (такова производственная необходимость). Что происходит с визуалкой не трудно представить. Вот код (delphi). var odata:array[0..999] of integer; procedure TForm1.FormCreate(Sender: TObject); begin PLK; end; procedure TForm1.PLK; begin Form1.ActEasy1.ActLogicalStationNum ber:=255; RW_plk:=1; RW_plk:= Form1.ActEasyIF1.Open(); if RW_plk=0 then Form1.Label11.Visible:=false else Form1.Label11.Visible:=true ; end; procedure TForm1.Write_PLK(Data:Widestring; idata:integer); begin RW_plk:=Form1.ActEasyIF1.WriteDevic eRandom(Data,1,idata); if RW_plk=0 then Form1.Label11.Visible:= false else Form1.Label11.Visible:=true; RW_plk:=0; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled:=false; RW_plk:=Form1.ActEasyIF1.ReadDevice Block('D901',945,odata[901]); Timer1.Enabled:=true; Что не так делаю не пойму. НУЖЕН ДЕЛЬНЫЙ СОВЕТ!!! |
![]() |
![]() |
![]() |
#2 |
Software Developer
Старожил
Регистрация: 19.12.2008
Сообщений: 2,070
|
![]()
Первая мысль, что приходит - возможно поможет использование потоков...перейти на асинхронную модель взаимодействия...
Будь проще и люди к тебе потянутся
|
![]() |
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 19.11.2012
Сообщений: 2
|
![]()
Да ваша правда.
Запустил считывание через другой поток и всё пошло. Спасибо! |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не изменяется интерфейс моей программы при переходе с Delphi 7 на Delphi 2010 | Elvisnya | Общие вопросы Delphi | 3 | 28.04.2011 15:59 |
На Delphi 7 сделать игру кто хочет стать миллионером в delphi 7 | 666dart666 | Помощь студентам | 11 | 04.11.2010 17:57 |
Rad Studio 2011 XE: новое в Delphi, C++ Builder, RadPHP и Delphi Prism | savva-paladin | Софт | 18 | 02.10.2010 20:24 |
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью? | redred | Общие вопросы Delphi | 10 | 11.12.2007 10:43 |
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет? | dagarik | БД в Delphi | 7 | 22.10.2007 17:54 |