Discussion :

[elecpic]

Bonjour,

Voilà plusieurs mois que je galère pour faire fonctionner les ports série du Raspberry.
j'ai essayé plusieurs librairies trouvées sur le net (pxl, Ultibo, ...) et testé tout le wiki traitant de ce sujet : je n'ai rien trouvé.

N'étant pas du tout calé sur l'installation de composants, bibliothèques et autre, si quelqu'un pouvait me mettre sur la piste, ce serait sympa.

Par avance merci de votre aide et vous souhaite de très bonnes fêtes.

elecpic

[ChPr]

Avez-vous essayé cette bibliothèque ?
Je l'ai utilisé en GPIO et en I2C : ça fonctionne.

Cordialement.

Pierre.

[elecpic]

Bonjour,

Merci pour ta réponse.
Oui, j'ai tenté (en tente encore) d'utiliser la PXL.

Dans leur site, voici ce qu'ils marquent :

Installation is quite straightforward, you just need to add full path to
"Source" folder in IDE's "library path" for each of the platforms

Comme je ne sais pas quoi faire, j'ai fait ces manip :
Projet puis inspecteur de projet
Ajouter puis ajouter des fichiers depuis le système
J'ai donc ajouté tous les fichiers presents dans PXL/Source.

À ce stade, je compile le fichier : PXL-v110/Samples/FreePascal/SingleBoard/RaspberryPI/DisplaySPI

Rien ne se passe et je n'ai pas de message du compilateur.

Pourrais-tu me mettre sur la bonne voie ???

En te remerciant chaleureusement.

[ChPr]

... Projet puis inspecteur de projet ...

Ce n'est pas dans l'inspecteur de projet qu'il faut aller, mais dans les Options de projets, soit :

Projet/Options de projet/Options du compilateur/Chemins/Autre fichiers unité.

Cliquer sur les ... en fin de ligne. Dans la fenêtre qui s'ouvre, chercher le chemin de RPI, Cliquer sur le bouton ajouter, puis OK. Ça devrait être bon.

Cordialement.

Pierre.

[ChPr]

ah oui, j'oubliais. Pour avoir accès aux entrées/sorties physiques, il faut être en mode "root".

Afin de pouvoir déboguer, je lance aussi Lazarus en mode "root".

Cordialement.

Pierre.

[elecpic]

Bonjour,

Ca avance

Dans mon post précédent, j'avais marqué :

Installation is quite straightforward, you just need to add full path to
"Source" folder in IDE's "library path" for each of the platforms

j'ai donc fait:
Inspecteur de projet
Ajouter -> Ajouter des fichiers depuis le système
et j'ai sélectionné : ... PXL-v110/Source/PXL.Boards.Types.pas

Dans l'unit1 de ma Form, j'ai ajouté:
Uses Classes, ... , PXL.Boards.Types;

Je compile : Pas d'erreur

Voici mon code :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, PXL.Boards.Types;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
  Bus : TcustomGPIO;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
Var
  IO : TPinMode;
begin
  Bus.Create ();
  io := 0;
  Bus.PinMode[32] := io;
end;

Et la, j'ai un joli plantage sur IO:= 0;
Voici la definition de TCustomGPIO :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    { Currently set mode for the specified pin number. }
    property PinMode[const Pin: TPinIdentifier]: TPinMode read GetPinMode write SetPinMode;

Voici la definition de TPinMode

{ I/O mode typically used in GPIO pins. }
TPinMode = (
{ Pin set for input / high impedance }
Input = 0,

{ Pin set for output }
Output = 1,

{ Pin set for alternate Pinfunction }
Unknown = 99);

Ou est le probleme ?????


Par ailleurs, je remercie ChPr pour son soutient et son aide (je prend bien note de ton post)

Cordialement

elecpic

[BYLS07]

Bonjour,
Est-ce que vous galérez encore à utiliser la librairie PXL ? Je l'utilise en permanence depuis 2016, surtout pour le bus spi et série. Si je peux vous aider, n'hésitez pas.