[sforce]

Добрый день. Помогите, пожалуйста, по следующему вопросу.
У меня данные типа 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;

Все работает, но мне необходимо отправить команду в двоичном виде, со следующими условиями

Длина посылки от компьютера к компаратору фиксированная – 4 байта.
Состав посылки:
SOM=0x01 – заголовок
CMD – команда
DAT0 – данные, если нужны
DAT1 – данные, если нужны
EOF=0x1a – конец посылки
Таким образом, минимальная длина посылки – 3 байта.
Необходимая команда GETCOUNT - 0x3a

Подскажите, как необходимо изменить код?

[CynicRus]

Код:

function Write(const Buffer: array of Byte;
 NumberOfBytesToWrite: Cardinal): Cardinal;
begin
 Result := 0;
 if FPortHandle <> INVALID_HANDLE_VALUE then
 begin
   WriteFile(hPort, Buffer, NumberOfBytesToWrite, Cardinal(Result),
     @OverlappedWrite);
 end;
end;

Где OverlappedWrite - TOverlapped.
Соответствтенно забиваешь свои в массив байт и высылаешь в порт.

[sforce]

Код:

buffer[0]:=0x01;
buffer[1]:=0x3a;
buffer[2]:=0x1a;

Так?

[Aristarh Dark]

1. Убери из своей процедуры записи в порт (Procedure WriteStrToPort(Str:String) ; ) строку 8.
2. Вызывай так: WriteStrToPort(#$01#$3A#$1A);
3. Profit

[CynicRus]

Сообщение от sforce

Код:

buffer[0]:=0x01;
buffer[1]:=0x3a;
buffer[2]:=0x1a;

Так?

Ну да. (10 символов)

[icWasya]

И уточните, хотя бы для себя, какая версия Дельфи, и String - это AnsiString или WideString ?

[sforce]

Спасибо, вроде отсылает. Теперь следующая проблема)
Устройство, с которым связан компьютер через COM отправляет ответ. И программа его принимает, правда почему-то стабильно через раз (то принимает - то не принимает). НО я так понимаю не может корректно отобразить. Потому что количество принятых байт увеличивается, а memo пополняется лишь одним пробелом. С другим устройством, где передавались данные обычной строкой и без запросов, все работало нормально.
Код такой:

Код:

Procedure TCommThread.Execute;
Begin
Repeat
QueryPort;//процедура опроса порта будет производиться пока поток не будет прекращен
Until Terminated;
End;

Procedure TCommThread.QueryPort;
Var
MyBuff:Array[0..1023] Of Char;//буфер для чтения данных
ByteReaded:cardinal; //количество считанных байт
Str:String;         //вспомогательная строка
Status:DWord;       //статус устройства (модема)
Begin
//получим статус COM-порта устройства (модема)
If Not GetCommModemStatus(hPort,Status) Then
Begin {ошибка при получении статуса модема}
SysErrorMessage(GetLastError);
Exit;
End;

//читаем буфер из Com-порта

FillChar(MyBuff,SizeOf(MyBuff),#0);
If Not ReadFile(hPort,MyBuff,SizeOf(MyBuff),ByteReaded,Nil) Then
Begin
SysErrorMessage(GetLastError);
Exit;
End;

If ByteReaded>0 Then
Begin

ReciveBytes:=ReciveBytes+ByteReaded;
Str:=String(MyBuff);
fmMain.Memo1.Text:=fmMain.Memo1.Text+ Str;
fmMain.lbRecv.Caption:='Принято: '+IntToStr(ReciveBytes)+' байт...';
End;
End;

В работе с байтами не очень силен, да и с портами в целом тоже. Так что очень нуждаюсь в помощи.
Возможно данная информация поможет:

Ответ устройства имеет переменную длину и содержит контрольную сумму. Контрольная сумма считается как сумма всех последующих за ней байт по модулю 32768, включая символ EOF, и передается полубайтами (с прибавлением к каждому полубайту 0x30, чтобы получился ASCII-символ), начиная с младшего полубайта.