Проблема с Async32

← →
ovdolgov (2002-09-16 12:14) [0]

Проблема с Async32
Поставил себе Async32 погонял примеры вроде работает.Пытаюсь сделать следующее: Есть датчик (таблетка Dallas DS1990 в простонародье именуемый электронный ключ с 48 битным уникальным номером). Проверка наличия этого ключа на компорте (при наличии адаптера) состоит в следующем на скорости 19200 (через адаптер) посылается число 0x00 которое для этого датчика является сбросом. Этот байт 0x00 который мы посылали в порт сразу же читается обратно. Этот момент работает, но через примерно 100 микросекунд если ключ получил этот импульс он должен ответить коротким импульсом, который компортом должен фиксироваться как 0xFC. Этот ответ я вижу осциллографом!!! но программно до него добраться не могу :-(

procedure TForm1.Button3Click(Sender: TObject);
var str_in :string;
begin
// Скорость 19200
VaComm1.BaudRate:=TVaBaudrate(br19200);
// Посылаем 0x00
VaComm1.WriteText(chr(0));
// Читаем 2 байта??? Или что то читаем но не обязательно 2 байта
str_in:=VaComm1.ReadText;
ShowMessage(length(str_in)); // Либо 0 либо 1 принятый
// байт 2 вместо 2
end;

В свойствах VaComm1 стоят задержки в при чтении буффера в 1000 милисекун (железобетонно хватает чтобы получить 2 байта 0x00 и 0xFC) однако ничего похожего на ответ не наблюдается.
Подскажите в чем я ошибся ?
P.S. На сайте журнала Радио скачал хорошую программку ComSpy, которая мониторит порты. Там все изумительно стреляет 0x00 пишем и сразу же получаем 0x00 0xFC :-(

← →
REA (2002-09-16 12:23) [1]

А всякие стоп биты, четность, hardware-software flow control и т.п. (хотя вряд ли)? И потом (в компоненты лезть лень) может там еще и второй байт остался в буффере (зависит от того как компонент читает). А почему ReadText?

Посмотри здесь-www.elin.ru/MicroLAn/08.htm-Программные средства, вспомогательные утилиты, программные пакеты, примеры и наиболее интересные фрагменты исходных текстов прикладных программ, необходимые для организации работы с различными устройствами на шине MicroLAN(т.е для Dallas DS1990).

Проблема с Async32 Найти похожие ветки