roboforum.ru

Для управления СОМ-портом под Delphi использую утилитку BComPort, не могу разобраться как отослать какое либо число.
Раньше для управления диодами я отсылал код символа, принимал его контроллером и код символа 0-255 отсылал в порт МК и таким образом управлял светодиодами

Код: Выделить всё • Развернуть

BComPort1.WriteStr(Chr(128));

А вот отослать число к примеру 12345 ну никак не могу понять как. Ну и желательно получить его обратно, а то я отсылаю, а назад получаю кракозяблы.
ХЕЛП?

var buf: word;
...
buf := 12345;
if BComPort1.Write( buf, sizeof(buf) ) <> sizeof(buf) then
showmessage('Error');
...
if BComPort1.Read( buf, sizeof(buf) ) <> sizeof(buf) then
showmessage('Error');

Спасибо, очень помогло.