Bytes aus Comport lesen

[NickelM]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   Buff: array of Byte;
   i: Integer;
   sSend: String;

begin
   //ComPort initialisieren
   ComPort1.BaudRate := br9600;
   ComPort1.DataBits := dbEight;
   ComPort1.StopBits := sbOneStopBit;
   ComPort1.Parity.Bits := prNone;
   ComPort1.FlowControl.FlowControl := fcNone;
   ComPort1.Port := 'COM16';
   if not ComPort1.connected then
      ComPort1.Open;

   SetLength(Buff, 5);
   Buff[0] := 2;
   Buff[1] := 0;
   Buff[2] := 1;
   Buff[3] := 254;
   Buff[4] := 255; //ccTalk Polling Befehl
   for i := 0 to 4 do
      sSend := sSend + Binaer[Buff[i]];
   Memo1.Lines.Clear;
   sSend := 'Sende: ' + sSend;
   Memo1.Lines.Add(sSend);

   //Befehl an Comport senden
   ComPort1.ClearBuffer(True, True); //sicherheitshalber
   ComPort1.Write(Buff[0], 5); //Du musst bei Array immer wie beim schreiben wie auch beim Lesen Array[0] sagen. Bei Dynamischen Arrays ist Buff ein Pointer, wo der dynamische Array im Speicher liegt, nicht die Daten.

end;