не пойму почему так (comm32)

[yuta_86]

товарищи, несколько часов потратил на поиск проблемы((( и так её и не нашёл
использую компонент comm32
открываю порт
Comm321.StartComm; здесь всё ок
пытаюсь записывать в порт

var
 SendStr:String;
begin
 SendStr:='';
 if InputQuery('Запрос данных', 'Введите данные, которые надо отправить', SendStr) then
  Comm321.WriteCommData(PChar(SendStr), Length(SendStr));
end;

в итоге вместо например 1 пишет 31 вместо 2 32 и тд (сажусь на подслушку Free serial port monitor )

если пользуюсь обычным методом WriteFile(FHandl, Buffer, Byte_Number, Byte_Count2, nil); всё работает на ура. данные передаются в Hex.

[yuta_86]

я понял 1 это 31 по счёту позиция в ASCII, почему же он отправляет нев HEX формате, а не пойми в чём (((

[p51x]

по счёту позиция в ASCII

Это код символа, а не просто какая-то позиция.

почему же он отправляет нев HEX формате, а не пойми в чём (((

Он именно отправляет байты,просто Вы передаете ему строку.

[yuta_86]

я хочу чтобы он передавал 1 в формате HEX чтобы 255 было FF ;-)
а не 32 35 35

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

Он именно отправляет байты,просто Вы передаете ему строку.

так WriteCommData(PAnciChar,Word );
вот я ему и передаю PAnciChar

[raxp]

эта функция и должна так работать, достаточно взглянуть в кишки:

function TComm32.WriteCommData( pDataToWrite: PChar; dwSizeofDataToWrite: Word ): Boolean;
var
	Buffer:	Pointer;
begin
	if WriteThread <> nil then
	begin
		Buffer := Pointer(LocalAlloc( LPTR, dwSizeofDataToWrite+1 ));
		Move( pDataToWrite^, Buffer^, dwSizeofDataToWrite );
		if PostThreadMessage( WriteThread.ThreadID, PWM_COMMWRITE,
					 WPARAM(dwSizeofDataToWrite), LPARAM(Buffer) ) then
		begin
			Result := true;
			Exit;
		end
		else
			LogDebugInfo( 'Failed to Post to Write thread. ' );
	end
	else
		LogDebugInfo( 'Write thread not created' );

	Result := False;
end;

[yuta_86]

какой же функцией передавать данные? чтобы видеть в посылке HEX ((((

[raxp]

передавайте побайтно через WriteFile().

[yuta_86]

я её и использовал, но умные люди подсказали что для передачи необходимо использовать поток, а в TComm32.WriteCommData как раз его и юзают.

[raxp]

ну, вообще-то ожидание окончания передачи можно реализовать и через WaitForSingleObject.

...рекомендую bcomport:

[yuta_86]

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

ну, вообще-то ожидание окончания передачи можно реализовать и через WaitForSingleObject.

не совсем понял