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

Отправка 1 байта через com-порт   Найти похожие ветки 

← →
Rubi   (2007-09-07 01:06) [0]

мне надо отправить через порт один байт. Я пользуюсь стандартной функцией WriteFile(hPort,MyBuff,Length(Str),ByteWritten,Nil) где mybuff-массив char. Когда я отправляю 1, он отправляет символ единицы, а мне нужен именно один байт. Там просто контроллер с ассемблером, а для вызова функции надо подать байт $01.

---

← →
Германн ©   (2007-09-07 01:42) [1]

> Rubi   (07.09.07 01:06)
>
> мне надо отправить через порт один байт. Я пользуюсь стандартной
> функцией WriteFile(hPort,MyBuff,Length(Str),ByteWritten,
> Nil) где mybuff-массив char. Когда я отправляю 1, он отправляет
> символ единицы, а мне нужен именно один байт. Там просто
> контроллер с ассемблером, а для вызова функции надо подать
> байт $01.
>

Это пардон как? Отправляешь данные из MyBuff, а длину берешь у Str?
Откуда содрал пример? :-)

var
 MyBuff : array of Char;
...
 SetLength(MyBuff,1);
 MyBuff[0]:=#1;
 WriteFile(hPort,MyBuff[0],Length(MyBuff),...


---

← →
tesseract ©   (2007-09-07 10:42) [2]

>  SetLength(MyBuff,1);  MyBuff[0]:=#1;  WriteFile(hPort,MyBuff[0],
> Length(MyBuff),...


var

MyBuff:array[0..255] of byte;

MyBuff[0]:=1;
iToWrite:=1
WriteFile(hPort,MyBuff[0],iToWrite,...

Чтобы каждый раз SetLength не вызывать. Уж больно много проца сжирает.

---

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

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



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