Инициализация и запись в COM1(RS232)

[wolker]

ОС Slackwarelinux 12.1
Пробую разобраться как произвести запись в COM1(RS232/dev/ttyS0) на free pascal 2.2.2 под linux.
Но похоже очередность отправляемых бит до порта не доходит...
Принимаемая прога работает на COM2 нормально(все данные принимает на ура).
Исходник передающей проги ниже:

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

program copyr_files;
Uses
   CRT;
Var
  f, f2:File;
  path, str:string;
  sim:byte;
  len, i:longint;
Begin
   ClrScr;
   Write('Read sim...');
   Writeln('');
        Read(sim);                 {передаваемый байт}
   assign(f, '/dev/ttyS0');
        {$I-}
   rewrite(f,1);
        {$I+}
         if IOResult <> 0 then {проверка готовности порта}
           begin
            Writeln('File otsutstvuet');
            exit;
           end
         else Writeln('Vse OK');

   while i<5 do  {пять раз передаем sim}
    begin
              Blockwrite(f, sim, 1);
         inc(i);
              delay(200);
    end;
   Close(f);
Writeln('');
   Write('--Finish--', 'dlina copy-file: ',i, 'byte');
   Readkey;
End.


Может я где-то ошибаюсь, если кто сталкивался с такой проблеммой помогите!!!
Глядишь вместе разберемся.

[Mr.Smart]

научитись пользоваться тегами [ code ]..[ /code ], а то при виде данного безобразия читать нехочится!

Добавлено спустя 7 минут 24 секунды:
А вообще где начальные настройки порта? Копайте в сторону TTermios.
Не проще ли использовать Synaser в нём неплохая реализация работы с COM портом как под Линукс так и Виндоус (хотя поработать напильником придётся )

[wolker]

Прошу прощенья за оформление своей темы.
На будующее приму к сведению.
Если не трудно подскажите где можно посмотреть
какую нибудь инфу по TTermios.
С ходу найти что нибудь сносное для изучения не получается...

[serg_iv]

Работать с ком портами удобнее через synaser:
http://synapse.ararat.cz/doku.php/download

[Attid]

На будующее приму к сведению.

вообще-то есть кнопка "Правка" и можно исправить свое сообщение.

[wolker]

Столкнулся с новой проблеммой!

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

uses stdio, linux;

var
  fd:integer;
  nread:longint;
  buf:array [0..64-1] of char;
begin
  fd := fdopen ('data', Open_RDONLY);
  nread := fdread (fd, buf, 64);
  fdclose (fd);
end.


Сначала не было библиотеки stdio, которую позже установил.
Возникли другие ошибки: PPU invalid version 21.
Не понимаю какую версию ему нужно.
И откуда её можно взять.
Использую FPC 2.2.2 ОС slackware 12.1
Подскажите решение!

Добавлено спустя 20 минут 32 секунды:
Вообще пример взят с самоучителя
Но кажется не только я один столкнулся с подобной траблой.
Хотелось бы просто узнать у кого нибудь получилось
откомпилить исходник STDIO из этой книги или лучше использовать
другие способы низкоуровнего доступа к файлам?

[Attid]

другие способы низкоуровнего доступа к файлам?

если чисто под линукс тогда

http://lazarus-ccr.sourceforge.net/docs/rtl/index.html

и изучай модули *nix