freepascal.ru

Код: Выделить всё

//инициализация последовательного порта
  ser:=TBlockserial.Create; //создаем устройство
  ser.RaiseExcept:=false;   //не обрабатываем исключения ошибок связи
  ser.Connect(nPort);      //соединяемся с портом
  ser.Config(4800,8,'N',0,false,false);//настраиваем скорость, стоп биты, паритет 
repeat  
  data := ser.RecvByte(1000);
  // .... тут твой код обработки данных 
until Terminated;
ser.Free;//освобождаем устройство
end.

Код: Выделить всё

  ser:=TBlockserial.Create; //создаем устройство
  ser.RaiseExcept:=false;   //не обрабатываем исключения ошибок связи
  ser.Connect('/dev/ttyS0');      //соединяемся с портом
  ser.Config(115200,8,'N',0,false,false);//настраиваем скорость, стоп биты, паритет
if ser.InstanceActive then
repeat 
  data := ser.RecvByte(1000);
  writeln(data);
until Terminated;
ser.Free;//освобождаем устройство

Код: Выделить всё

 if Ser.LastError<>0  then ShowMessage(' ОШИБКА - '+LastErrorDesc+'  ('+IntToStr(Ser.LastError)+')';

Код: Выделить всё

  if Serial.Handle<>INVALID_HANDLE_VALUE then 
    begin
      Serial.Flush; // ждем до полного очищения буфера
      Serial.Purge; // если что то и есть до очищаем до конца
      Serial.CloseSocket; // отключаемся
   end;

Код: Выделить всё

 if  Ser.CanReadEx(100) then begin
     data := ser.RecvByte(0);
     writeln(data);
   end;

Код: Выделить всё

a:=ser.RecvByte(1000);
writeln(a);