Ausgabe auf /dev/..

Für Fragen zur Programmiersprache auf welcher Lazarus aufbaut
Antworten
thompz
Beiträge: 1
Registriert: Sa 14. Jun 2008, 19:26

Ausgabe auf /dev/..

Beitrag von thompz »

Hallo,

ist es möglich auf ein Linux-Device zu schreiben oder zu lesen?
In der Shell kann ich z.B.

Code: Alles auswählen

echo "led on" > /dev/gpio9
ausführen, um bei meinem Router die GPIOs (Leds) zu steuern.
Dies würde ich gerne von Pascal aus machen. Ist das direkt möglich oder muss
ich hier den Umweg über ein ShellEx oder sowas machen?

mfg

Thomas

Benutzeravatar
theo
Beiträge: 10927
Registriert: Mo 11. Sep 2006, 19:01

Re: Ausgabe auf /dev/..

Beitrag von theo »

Ich denke da kannst du entweder Pipes verwenden
http://wiki.lazarus.freepascal.org/Exec ... rograms/de" onclick="window.open(this.href);return false;
oder einfach ein Shell-Script (auch zur Laufzeit) speichern, und es aufrufen (chmod setzen)

creed steiger
Beiträge: 958
Registriert: Mo 11. Sep 2006, 22:56

Beitrag von creed steiger »

http://wiki.lazarus.freepascal.org/Console_Mode_Pascal" onclick="window.open(this.href);return false;

http://www.savs.hcc.edu.tw/~chuavv/fpc/ ... ystem.html" onclick="window.open(this.href);return false;

mschnell
Beiträge: 3444
Registriert: Mo 11. Sep 2006, 10:24
OS, Lazarus, FPC: svn (Window32, Linux x64, Linux ARM (QNAP) (cross+nativ)
CPU-Target: X32 / X64 / ARMv5
Wohnort: Krefeld

Beitrag von mschnell »

Geht das nicht einfach so ?

Code: Alles auswählen

procedure LedOn;
var
  FHandle: THandle;
  b: String;
begin
  FHandle := FileOpen('/dev/gpio9', fmOpenWrite);
  b := 'led on';
  FileWrite(FHandle, b[1], length(b));
  FileClose(FHandle);
end;
... aber dann müsste es eigentlich auch mit TFilestream gehen...

-Michael

Antworten