Comport und LED Lauflicht

[sirius]

Ich kenne die Komponente nicht und habe in Delphi selber noch nie mt dem Com-Port gearbeitet, weiß aber aus C++ und aus der Erfahrung mit anderen Schnittstellen, dass es meistens nix anderes ist,
-Komponente initialisieren
-Einstellungen vornehmen (Baudrate, Startbits, Stopbits, etc.)
-Stream oder Buffer senden (wie der aussieht gibt es ja ein schönes Beispiel)

Ich kann dir auf Grund der PDF den Stream zusammenbauen, den du senden musst, weiß aber nicht, wie es deine Komponente verlangt.


So, ich habe mal geschaut. Kann es aber nicht testen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Daten:string;
    TextPacket:string;
    TextData:string;
    Checksum:byte;
    i:integer;
    Laenge:word;
begin

  TextData:=#$01; //Method: Cyclic;
  TextData:=TextData+#$EF#$A2; //Attribut 1: Font=default;
  TextData:=TextData+#$EF#$B0; //Attribut 1: Color=red;
  TextData:=TextData+'Hello World'; //Nachricht
  TextData:=TextData+#$FF#$FF; //Ende von TextData;

  TextPacket:=#$01#$01+TextData;  //Filenumber dazu

  Daten:=#$00#$00#$00#$00#$00+TextPacket; //5 x Reserved Betes
  Daten:=#$00+Daten; //Farbe: mono
  Daten:=#$08+Daten; //Höhe in Pixel: 8;
  Daten:=#$00#$78+Daten; //Breite in Pixel: 120
  Daten:=#$01+Daten; //Versionsnummer 1
  Daten:=#$00#$00+Daten; //Addresse: BroadCast

  Laenge:=length(daten);
  CheckSum:=0;
  for i:=1 to Laenge do inc(Checksum,ord(Daten[i])); //Checksumme berechnen

  Daten:=Daten+chr(Checksum); //Checksumme anhängen;
  Daten:=chr(hibyte(Laenge))+chr(lobyte(Laenge))+Daten; //Länge hinzufügen
  Daten:='$CSTES>'+Daten; //Header;

  apdComPort1.Open:=true;
  apdcomport1.Output:=Daten;
  apdcomport1.Open:=false;
end;

Einstellungen im OI für adpComPort1:
-Baudrate: 9600
-CompNumber: (entsprechend setzen)
Alles andere würde ich lassen.