Программа Atpro - типа P2ktools, новые версии и глюки описывайте здесь Поделиться Опции

[student_pro]

Зацените мою прогу
Официальный сайт программы, последняя версия ATPro 1.6.3.1, коментарии оставляйте в форуме или на мейл :)

[n0wheremany]

Так. Прога виснет из-за timeOut который задаётся порту, это (зависание) мона избезать ввести Thred в программу, но это неудобно. т.к. timeOut всё равно придётся ввести (нуц мона правда через Application.ProcessMessages).

Т.о.

Выставляй TimeOut в 50 мс,

Делай типа так

var C:cardinal;
SendCommand('{команда}');
C:= GetTekCount;
while C+1000<=GetTekCount do
Application.ProcessMessages
S := ReadCommand

Единственное то что надо будет выставить буфер получения данных. Могут быть ошибки писал прямо сдесь.

Зависаний не будет.