Raspberrypiにて、LazarusでGPIOを使用したいのですが上手くいきません。

S 2021-02-04 16:09:00 No: 149581

Raspberrypi3 model b+にて
Lazarus(1.6.2) FPC(3.0.0) を使用して、
GPIOの制御をしたいのですが、
https://wiki.freepascal.org/Lazarus_on_Raspberry_Pi/es　左記ページの
pigpio.pasをダウンロードし、
実行ファイルの入ったフォルダにpigpio.pasを入れ、
下記のソースでコンパイルしているのですが、
エラーが出ます。

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls, lNetComponents, lNet, lhttp, IniFiles ,Unix, BaseUnix, pigpio;

type

{ TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

const
PIN18 = 18;

var
  Form1: TForm1;
  GPIO_Driver : TIoDriver;
  Gpf : TIoPort;
    {stores the result of the IO operation}

implementation

{$R *.lfm}

{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin

Memo1.Clear;

  if not GPIO_Driver.MapIo then
  begin
    Memo1.Lines.Add('Error Mappig GPIO Registry');
  end;
  if GPIO_Driver.MapIo then
  begin
    Gpf := GpIo_Driver.CreatePort(GPIO_BASE,CLOCK_BASE,GPIO_PWM);

Gpf.SetPinMode(18,INPUT);

end;

Timer1.Enabled := True;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

Timer1.Enabled := false;

  try
    if Gpf.GetBit(18) = true then
    begin
      Memo1.Lines.Add('1');
    end;
    if Gpf.GetBit(18) = false then
    begin
      Memo1.Lines.Add('0');
    end;
  finally
    //Gpf.SetPinMode(18,INPUT);
    //Gpf.ClearBit(18);
    //GpIo_Driver.UnmapIoRegisrty(Gpf);
  end;
  Timer1.Enabled := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
end;
end.

どうも、FormCreateの「if not GPIO_Driver.MapIo then」を通ってしまっている様で、
その後のTimer1イベントで、

プロジェクト project1 は、例外クラス'External SIGSEGV'を発生させました。
該当ファイル 'unit1.pas' 該当行72
if Gpf.GetBit(18) = true then

上記のエラーが出てしまいます。

gpio.pasの使い方が間違っているのでしょうか？
それとも、Raspberrypi側で先にやっておかなくてはならない事があるのでしょうか？

どなたかご教授の程、宜しくお願い致します。

たけし 2021-02-08 09:30:23 No: 149583

1）
GPIO_Driver : TIoDriver;
Gpf : TIoPort;
いずれもクラスなので、Createして、使い終わったらFreeが必要です。

例）
  GPIO_Driver :=TIoDriver.Create;
  GPIO_Driver.SetPinMode(999,999);
  GPIO_Driver.Free;

2)
この宣言がグローバル変数なので、誰も初期化してくれない。
Createしていないけれど、なんらかのアドレスを持っているので、
存在している(Create済み)と判断されているが、正しいものではないので、
本来利用できる関数が、利用できない（エラーが発生する）

対処1）
フォームでしか使わないのであれば、宣言を移動する
private
　　//2つの宣言をここに移動
public

対処2）
FormCreateで、それぞれをCreate
FormDestory で、それぞれをFreeする。

使っておられるのが、Lazarusですが、Delphiも同じようなものなので、
以下をお勉強されることをおすすめします。
旧 Delphi 入門
http://kakinotane.s7.xrea.com/delphi/d2/toc.html
クラスとオブジェクトの初歩
　・コンストラクタとデストラクタ