Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Компонент Async Pro 3.0 ;считывание строки принятой терминалом [D5, D6, D7, Win95/98, NT4, Win2k]


Comwad ©   (2002-12-24 08:14:00) 

Кто работал с Async Pro 3.0.
Два вопроса.

1. Помогите пожалуйста понять через какое событие компонента
TAdTerminal я могу получить принятую им строку для своей дальнейшей обработки?
Все работает, принимает, но как получить доступ к строкам во впемя их "прихода"?

2. Чем отличается TAdTerminal от TApdTerminal?

Спасибо.


Reindeer Moss Eater   (2002-12-24 12:14:00) [1]

Используй TApdDataPacket + IncludeStrings = False
Заголовки и окончания пакетов установи в управляющие символы. Если конечно все строки ограничены ими.


Reindeer Moss Eater   (2002-12-24 12:12:00) [2]

за исключением того , что не фильтрует управляющие символы.
Кто мешает самому фильтровать?


Comwad   (2002-12-24 12:07:00) [3]

> Reindeer Moss Eater
С компорта ( работаю в режиме принтера).


Comwad   (2002-12-24 12:05:00) [4]



Это все нормально работает (и есть в хелпе) за исключением того , что не фильтрует управляющие символы.

Свой обработчик управл.символов уже есть и работает давно, как
и предлагает CDADMITRIY, но хотель использовать "мощь" Async Pro.


А сам же компонент "терминал" отображает информацию в чистом виде по строчно (жаль что только для визуализации, если это так), что и нужно получить для последующей обработки.
Но вот когда, при каком Event?


cdadmitriy   (2002-12-24 09:27:00) [5]

A TAdTerminal Только дя визуализации ( Я Думаю ) и им T***Terminal не пользуюсь проще написать свой со своей под данное устройство ....

ApdComPort1: TApdComPort;


procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word); Var I:Integer;
begin
For i:=1 To Count Do Begin
Answer[CountAns]:=Byte(ApdComPort1.GetChar); Inc(CountAns); IF CountAns>=MaxBuf-1 Then Exit;
End;
WriteBufToRich;
end;


Reindeer Moss Eater   (2002-12-24 09:01:00) [6]

>OxOTHuK
Сей компонент работает с компортом, а про модем сто лет ничего не знает


OxOTHuK   (2002-12-24 08:59:00) [7]

2 Reindeer Moss Eater
сей компонент работает с модемом...


Reindeer Moss Eater   (2002-12-24 08:49:00) [8]

Принятую строку откуда? С клавиатуры? С компорта?


Наверх

Титульная страница Поиск, карта сайта Написать письмо