freepascal.ru

dionic писал(а):мышь

dionic писал(а):FDevice := '/dev/ttyS' + IntToStr(FComNr) на FDevice := '/dev/ttyUSB' + IntToStr(FComNr)?

FDevice := comport;

dionic писал(а):а открывать этот порт все равно не хочет...

dionic писал(а):А как работать (с помощью каких функций) работать с портом если не через synaser, подскажите плиз народ.

Вроде бы в модуле synaser исправил все строчки где встречается '/dev/ttyS', даже номер устройства теперь определяет правильно, а открывать этот порт все равно не хочет...

//инициализация последовательного порта
  ser:=TBlockserial.Create; //создаем устройство
  ser.RaiseExcept:=false;   //не обрабатываем исключения ошибок связи
  ser.Connect('/dev/ttyUSB0');      //соединяемся с портом
  ser.Config(115200,8,'N',0,false,false);//настраиваем скорость, стоп биты, паритет
  //пересылаем данные
  ser.SendInteger(data);
  //принимаем данные от устройства
  a:=ser.RecvInteger(4);
  ser.Free;//освобождаем устройство

serg_iv писал(а):в общем то эт лишнее, synaser понимает и явное указание - /dev/ttyUSB0

зачем лудей вводишь в заблуждение посмотри реализацию Connect в линуксе. зачем там так сделано не знаю, но сделано =)

serg_iv писал(а):Но у меня именно так работает, только железка висит на /dev/ttyACM0

procedure TBlockSerial.Connect(comport: string);
begin
  FDevice := comport;
  GetComNr(comport);
{******}
  if FComNr <> PortIsClosed then
    FDevice := '/dev/ttyS' + IntToStr(FComNr);
  FHandle := THandle(Libc.open(pchar(FDevice), O_RDWR or O_SYNC));
{******}
end;

procedure TBlockSerial.GetComNr(Value: string);
begin
  FComNr := PortIsClosed;
  if pos('COM', uppercase(Value)) = 1 then
    FComNr := StrToIntdef(copy(Value, 4, Length(Value) - 3), PortIsClosed + 1) - 1;
  if pos('/DEV/TTYS', uppercase(Value)) = 1 then
    FComNr := StrToIntdef(copy(Value, 10, Length(Value) - 9), PortIsClosed - 1);
end;

serg_iv писал(а):/dev/ttyACM0

сотовый телефон ?

Attid писал(а):

serg_iv писал(а):Но у меня именно так работает, только железка висит на /dev/ttyACM0

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

procedure TBlockSerial.Connect(comport: string);
begin
  FDevice := comport;
  GetComNr(comport);
{******}
  if FComNr <> PortIsClosed then
    FDevice := '/dev/ttyS' + IntToStr(FComNr);
  FHandle := THandle(Libc.open(pchar(FDevice), O_RDWR or O_SYNC));
{******}
end;

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

procedure TBlockSerial.GetComNr(Value: string);
begin
  FComNr := PortIsClosed;
  if pos('COM', uppercase(Value)) = 1 then
    FComNr := StrToIntdef(copy(Value, 4, Length(Value) - 3), PortIsClosed + 1) - 1;
  if pos('/DEV/TTYS', uppercase(Value)) = 1 then
    FComNr := StrToIntdef(copy(Value, 10, Length(Value) - 9), PortIsClosed - 1);
end;

хм. а вообще да будет работать строку с if я не приметил, так что можно ничего не править и даже указывать в линуксе COM1 и будет подключение к ttyS0. забавно.

serg_iv писал(а):/dev/ttyACM0

сотовый телефон ?

sergeypankov писал(а):Может вопрос не сюда, но кто нибудь пробовал устанавливать визуальный компонент Cportlaz в Lazarus под Linux? В Lazarus под винду встал без проблем, а под Linux ни в какую не хочет.Сначала писал что не найдены модули libc, установил пакет fp-units-i386, теперь вот не может найти модули Windows а где ж их взять в Linuxe, не из винды же тащить.

  FDevice := comport;
  if FComNr <> PortIsClosed then
    FDevice := '/dev/ttyS' + IntToStr(FComNr);

dionic писал(а):и нельзя указать com1.

Attid писал(а):даже указывать в линуксе COM1

dionic писал(а):Comport can be used in Windows style (COM2)