habe auf dem Raspi fpgpio bisher bei GPIO Eingangspins erfolgreich verwendet.
Nun wollte ich GPIOs als Aufgang verwenden und habe da dass Problem das die Pins nicht reagieren.
Erst wenn ich in der Console ein Pin manuel exportiere funktioniert mein Testprogramm(bis zum nächsten Neustart)
Manueller Export wie folgt gemacht:
sudo echo "16" > /sys/class/gpio/export
und hier mein Testprogram
Code: Alles auswählen
//GPIO Out Test
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
fpgpio;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormShow(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
mypin: TGpioPin;
implementation
{$R *.lfm}
{ TForm1 }
//Initialisierungen
procedure TForm1.FormShow(Sender: TObject);
begin
mypin:= TgpioLinuxPin.Create(16);
mypin.Direction:= gdOut;
end;
//Beenden
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
mypin.Destroy;
end;
//GPIO Ein
procedure TForm1.Button1Click(Sender: TObject);
begin
mypin.Value := true;
end;
//Aus
procedure TForm1.Button2Click(Sender: TObject);
begin
mypin.Value := false;
end;
end.
Pins als Eingang funktionieren ohne manuellen export .
Was mache ich falsch ?
Gruß Frank