ich habe in pascalIO gerade eine Klasse zur Nutzung von /sys/class/pwm/ hinzugefügt.
Leider fehlt mir aktuell ein Test-Setup, an dem ich den Code testen kann.
Beispiel:/test/pwm_linux/pwm_linux.lpr
Code: Alles auswählen
program pwm_linux;
uses fppwm;
var
  pwm: TPWMLinux;
begin
  pwm := TPWMLinux.Create(0,0);
  try
    pwm.Period    := 10000;  // 10 kHz total time
    pwm.DutyCycle := 6000;   //  6 kHz active time
    pwm.Enabled   := True;
  finally
    pwm.Destroy;
  end;
end.