Ausgabe auf /dev/..

[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

[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]

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]

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