| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблемка с TurboAsync [D6, Win2k]
Seb_Kost © (2003-04-07 09:28:00)У меня подключен прибор.
Чтобы установить связь с прибором необходимо послать 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;
Ответ - то что и посылаю. Эхо какое-то.
Wedos (2003-04-11 12:29:00) [1]Спасибо, с этой проблемой я уже разобрался.
Спасибо, еще раз.
Forint (2003-04-11 11:00:00) [2]А чистить буферы перед приёмом не пробовал?
cdaDMITRIY (2003-04-07 09:52:00) [3]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);
MBo (2003-04-07 09:33:00) [4]а что, ApdComPort1 понимает, что строка "16" должна интерпретироваться как шестнадцатиричное число $16 (десят.22)????
| |
