Скачать: CL | DM;

Проблемка с 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c