Форум TRACE MODE: техническая поддержка Послать новую тему / Post New Topic  Послать ответ / Post A Reply
мой профиль / my profile авторизация / login | регистрация / register | поиск / search | часто задаваемые вопросы / faq | начало / forum home

  Следующая старая тема / next oldest topic   Следующая новая тема / next newest topic
» Форум TRACE MODE: техническая поддержка » ТЕХНИЧЕСКАЯ ПОДДЕРЖКА / TECHNICAL SUPPORT TRACE MODE 6 » Языки программирования в TRACE MODE 6 / Algorithm Programming Languages » Пример ActiveX на Delphi для TM6

   
Автор / Author Тема / Topic: Пример ActiveX на Delphi для TM6
Dok222
Junior Member / Новичок
Участник № / Member № 6537


Icon 1 отправлено / posted      Профиль для / Profile for Dok222           Редактировать/удалить сообщение / Edit/Delete Post   Вставить в ответ текст исходного сообщения  / Reply With Quote 
Если есть готовый, сбросьте, пожалуйста, пример ActiveX на Delphi для TM6.
Сообщения / Posts 15 | Из / From: Украина  |  IP / IP: IP адрес / IP address | Report this post to a Moderator
AdAstra Technical Support
Moderator
Участник № / Member № 4


Icon 1 отправлено / posted      Профиль для / Profile for AdAstra Technical Support           Редактировать/удалить сообщение / Edit/Delete Post   Вставить в ответ текст исходного сообщения  / Reply With Quote 
В папке TMX IDE Trace Mode 6 есть файлы для разработчика и примеры реализации (см. раздел "Дополнительные интерфейсы для ActiveX").
Сообщения / Posts 15118 | Из / From: Russia  |  IP / IP: IP адрес / IP address | Report this post to a Moderator
Dok222
Junior Member / Новичок
Участник № / Member № 6537


Icon 1 отправлено / posted      Профиль для / Profile for Dok222           Редактировать/удалить сообщение / Edit/Delete Post   Вставить в ответ текст исходного сообщения  / Reply With Quote 
Да, разумеется, с него и начал. Только там ошибка в исходниках и после компиляции и вставки в проект, TM виснет. Предположил, что интерфейс изменился или еще что-то.

procedure TTmDelCtl.RefillObjs();
...
for i:=0 to n_objs do
secs[i] := RAO_NAME;

необходимо
for i:=0 to n_objs-1 do

Сообщения / Posts 15 | Из / From: Украина  |  IP / IP: IP адрес / IP address | Report this post to a Moderator
AdAstra Technical Support
Moderator
Участник № / Member № 4


Icon 1 отправлено / posted      Профиль для / Profile for AdAstra Technical Support           Редактировать/удалить сообщение / Edit/Delete Post   Вставить в ответ текст исходного сообщения  / Reply With Quote 
Видимо, есть проблема с версиями DELPHI.
Приведенный нами пример сформирован в 2004 г. (на версии DELPHI 7).
Готовый компонент VB_Delphi\TmDelCtl\TmDelCtlProj.ocx от 2004 г., лежащий в примере, в текущем релизе Trace Mode 6 вводится и работает.

Ошибка будет исправлена.

Уточните, пожалуйста, на какой версии DELPHI Вы работаете.

Сообщения / Posts 15118 | Из / From: Russia  |  IP / IP: IP адрес / IP address | Report this post to a Moderator
Dok222
Junior Member / Новичок
Участник № / Member № 6537


Icon 1 отправлено / posted      Профиль для / Profile for Dok222           Редактировать/удалить сообщение / Edit/Delete Post   Вставить в ответ текст исходного сообщения  / Reply With Quote 
Готовый компонент, лежащий вместе с исходниками, я и не пытался вставлять. Сразу скомпилировал проект и уже регистрировал полученный компонент, при вставке которого и возникли проблемы. После исправления ошибки в исходниках все работает хорошо (Delphi 2010).

Попробовал вставить скомпилированный компонент, идущий вместе с TM - все в порядке.

Сообщения / Posts 15 | Из / From: Украина  |  IP / IP: IP адрес / IP address | Report this post to a Moderator
   

Quick Reply
Сообщение / Message:

HTML код не разрешен. / HTML is not enabled.
UBB код разрешен. / UBB Code is enabled.

Значки Graemlins / Instant Graemlins
   


Послать новую тему / Post New Topic  Послать ответ / Post A Reply Закрыть тему / Close Topic   Feature Topic   Переместить топик / Move Topic   Удалить топик / Delete Topic Следующая старая тема / next oldest topic   Следующая новая тема / next newest topic
 - Printer-friendly view of this topic
Перейти к / Hop To


Новости АСУ ТП / News | SCADA / HMI | Обучение / Trainings | Свяжитесь с нами / Contact Us

Rambler's Top100 Rambler's Top100



Powered by Infopop Corporation
UBB.classic™ 6.7.2