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.