Проблемка с TurboAsync

← →
Seb_Kost (2003-04-07 09:28) [0]

У меня подключен прибор.
Чтобы установить связь с прибором необходимо послать 16h.
ApdComPort1.Output := "16";
Затем читаю.

procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
Var I:Word;
C:Char;
S:String;
begin
S:="";
For I:=1 To Count Do
Begin
C:= ApdComPort1.GetChar;
S:=S+C;
End;
Label1.Caption:=S;
end;

Ответ - то что и посылаю. Эхо какое-то.

← →
MBo (2003-04-07 09:33) [1]

а что, ApdComPort1 понимает, что строка "16" должна интерпретироваться как шестнадцатиричное число $16 (десят.22)????

← →
cdaDMITRIY (2003-04-07 09:52) [2]

1. Может и эхо смотря какой конвертер используешь для передачи

232 - 485 232 - 232 ??? -- ??? ?

2. Ни когда не работал с " ApdComPort1.Output := "16" "
Всегда

TBuf=Array[0..MaxBuf] Of Byte;
buf :TBuf
buf[0]:=$16; aCount:=1; // для тебя
IF ApdComPort1.Open Then ApdComPort1.PutBlock(buf,aCount);

← →
Forint (2003-04-11 11:00) [3]

А чистить буферы перед приёмом не пробовал?

← →
Wedos (2003-04-11 12:29) [4]

Спасибо, с этой проблемой я уже разобрался.
Спасибо, еще раз.

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