FreePascal.ru

Спасибо за ответы.

В варианте:
ser.SendString(#2+#5+#19+#30+#0+#0+#0+#8+#13);
label3.caption:=ser.RecvString(1000);
команда на устройство проходит один раз нормально, затем при повторе устройство на данную команду ни как не реагирует и в label3 пусто.
Кстати и при первой посылке команды в label3 ...

Добрый день. Подскажите как можно организовать передачу данных по com порту если протокол обмена с утройством имеет вид:
05h
02h 05h 13h 1Eh 00h 00h 00h 08h
06h
Я пытаюсь сделать так:

var
ser:TBlockSerial;
begin
ser:=TBlockSerial.Create;
ser.LinuxLock := false;
ser.Connect('/dev/ttyS0');
ser ...