Bonjour,
J'ai un problème pour la lecture sur le port série avec le composant Synaser Linux : je ne reçois rien sur le port mais l'envoi se fait sans problème.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
program testport;
{$mode objfpc}{$H+}
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils,synaser,DateUtils,baseunix;
 
var
  ser: TBlockSerial;
begin
  ser := TBlockSerial.Create;
  try
    ser.Connect('/dev/ttyD00'); 
    Sleep(250); 
    ser.config(9600, 8, 'N', 1, False, False);
    ser.LinuxLock:=False
    repeat
       writeln(ser.RecvString(1000));
    until keypressed;
  finally
    ser.free;
  end;
end;
Merci pour votre aide