[sadikacar60@gmail.com]

arkadaşlar raspery pi ye uygun role kartı aldım 
kartın tanıtımında 21 -22 -23 -24 çıkışlar rolelere bağlanmıştır diyor 
lazarusdaki örnekleri inceleyerk 21 çıkış için bir örnek yaptım ve ilk roleyi çalıştırdım 
fakat aynı kodları kullarak diğer roleleri çalıştıramıyorum 

problem ne olabilir acaba saygılar sunarım

aşagıdaki örnekde 24 ler 21 yaptıgımda role çekiyor veya kapatıyor 
ama 22 23 veya 24 yaptığımda diğer roleyi kontrol etmiyor

Kod:

uses
 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,Unix, BaseUnix;
type  

   const
 PIN_ON: PChar = '1';
 PIN_OFF: PChar = '0';  

Kod:

procedure TForm1.Button1Click(Sender: TObject);
var
fileDesc: integer;
 begin
try
 fileDesc := fpopen('/sys/class/gpio/gpio24/value', O_WrOnly);
 gReturnCode := fpwrite(fileDesc, PIN_ON[0], 1);
finally end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
fileDesc: integer;
 begin
try
 fileDesc := fpopen('/sys/class/gpio/gpio24/value', O_WrOnly);
 gReturnCode := fpwrite(fileDesc, PIN_OFF[0], 1);
finally end;

end;

[sadikacar60@gmail.com]

24 nolu portu çıkış olarak kaydetmek gerekiyormuş sonradan farkettim aşagıdaki kodu eklediğimde çalıştı arkadaşlar saygılar.

procedure TForm1.FormCreate(Sender: TObject);
var
fileDesc: integer;
begin
{ Prepare SoC pin 17 (pin 11 on GPIO port) for access: }
try
fileDesc := fpopen('/sys/class/gpio/export', O_WrOnly);
gReturnCode := fpwrite(fileDesc, PIN_24[0], 2);
LogMemo.Lines.Add(IntToStr(gReturnCode));
finally
gReturnCode := fpclose(fileDesc);
LogMemo.Lines.Add(IntToStr(gReturnCode));
end;
{ Set SoC pin 17 as output: }
try
fileDesc := fpopen('/sys/class/gpio/gpio24/direction', O_WrOnly);
gReturnCode := fpwrite(fileDesc, OUT_DIRECTION[0], 3);
LogMemo.Lines.Add(IntToStr(gReturnCode));
finally
gReturnCode := fpclose(fileDesc);
LogMemo.Lines.Add(IntToStr(gReturnCode));
end;

end;