Leute ich bekomm das einfach nicht gebacken die Anzahl der Bytes die er sendet zu minimieren.
Mein jetziger Code:
Delphi-Quellcode:
procedure TForm1.ButtonPicSendClick(Sender: TObject);
var i:integer; s:String;
begin
fcMakeCodeforRS232;
for I := 1 to 20 do
begin
s := format('%.2d',[i])+';'+marray[i];
comport1.WriteStr(s+#13);
sleep(1);
end;
end;
In marray steht mein Muster drin. Format siehe oben.
Ich weiß, dass ich es am besten mit Comport1.Write() machen soll, aber jeder Versuch wollte bei mir nicht. Es als String zu senden dauert einfach viel zu lange, da dort ja mehr als ein Byte gesendet werden, wenn ich nur ein Byte senden möchte.
Laut Serial Port Monitor werden 280 Bytes gesendet. Das sind viel zu viele um ein schnelle Übertragung zum Beispiel für Musikvisualisierung bei einer niedrigen Baudrate zu bekommen.
Momentan arbeite ich mit einem USB-Seriell-Adapter bei einer Baudrate von 250.000 um eine halbwegs schnelle Übertragung zu bekommen.
Vielleicht gibts ja hier ein Comportexpert und kann mir helfen. Danke.