Du brauchst eine Serielle Komponete. Oben sind ein paar genannt worden.
ICh füge noch Synapse hinzu.
So dann musst du 4
Bytes übertragen. Jeder deiner 4 in reihe schaltbaren Platinen bekommt eins.
Angenommen du willst nur die ersten 4 anhaben dann musst du entweder
Dezimal 240 oder 16 übertragen. (musst ausprobieren wie er dann schaltet).
Und dann halt 4 Bytes.
Delphi-Quellcode:
uses synaser;
procedure TForm1.Button1Click(Sender: TObject);
var
ser : TBlockSerial;
Byte1,Byte2,byte3,byte4: Byte;
begin
ser := TBlockSerial.Create;
ser.Connect('COM1');
ser.Config(19200,8,'N',false,false);
ser.SendString(Chr(Byte1)+Chr(Byte2)+Chr(Byte3)+Chr(Byte4));
ser.Free;
end;
Synapse gibt hier
http://synapse.ararat.cz/doku.php/start
Gruß snow