|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Передать двоичный код в COM
Добрый день. Помогите, пожалуйста, по следующему вопросу.
У меня данные типа string отправляются на com порт с помощью следующей процелуры: Код:
Procedure WriteStrToPort(Str:String); Var ByteWritten:cardinal; MyBuff:Array[0..1023] Of Char; Begin FillChar(MyBuff,SizeOf(MyBuff),#0); Str:=Str+#13#10; StrPCopy(MyBuff,Str); If Not WriteFile(hPort,MyBuff,Length(Str),ByteWritten,Nil) Then Begin SysErrorMessage(GetLastError); fmMain.btnStop.Click; Exit; End; End; Все работает, но мне необходимо отправить команду в двоичном виде, со следующими условиями Цитата:
Подскажите, как необходимо изменить код? |