RS422 Datensenden unter Windows7

[samso]

Zitat von akuk:

Hallo
Beim senden der Daten über ComPort unter Windows werden zwischen den einzelnen
bytes 70 bis 100 uS durch windows eingefügt. Meine transmit funktion sendet jedoch die einzelne Bytes ohne unterbruch (pro Meldung 16 Bytes).
Benützte Komponente : uComPort, (115.2 Kbaud , N , 8, 1).
Die Transmitmethode wird durchgelaufen als Criticalsection, dürfte also nicht durch anderen Task behindert werden.
Wie kann man diese Wartezeiten im Windows verhindern ?
Umgebung : Delphi7, Windows7

Ich habe zunächst mal Probleme die Fehlerbeschreibung zu verstehen. Du schreibst "zwischen den einzelnen bytes". Deine Message besteht aus 16 Bytes. D.h. du hast 15 Lücken von 70-100µs? Oder hast Du zwischen den Messages (je 16 Bytes) eine Verzögerung von 70-100µs. Wie misst Du die Verzögerungen? Mit einem Oscilloskop auf der Leitung?

[akuk]

Hallo samso
Zwischen der einzelnen Bytes hat es Lücken, siehe LA Aufzeichnung auf der Emfängerseite
Signale Rx-/RX+ in der Beilage.
Hier Ausschnitt aus der Methode Transmit, genau die aufgezeichnete Meldung
.......
else // alle 16 + 1 Byte Meldungen S1 bis S9
begin
OutMsg.Meldung[0]:= OutType; // MeldungsTyp (Byte 0) setzen
for i:=0 to 16 do //Byte 0 bis 16
Comport.SendByte(OutMsg.Meldung[i]);
MldgOK := true; // Meldung gesendet
end;
end;//case

Gruss Anton

[akuk]

Hallo
Die LA Aufzeichnung ist nicht mitgekomme, hier die Korrektur

[TurboMagic]

Sehe immer noch keine Aufzeichnung...
Wie soll die Aussehen? Screenshot?

[akuk]

2020-08-14_120133.pdf

[akuk]

sorry das war genau die dritte Message, anbei das mit Lücken, 1. Message
2020-08-14_133549.pdf

[samso]

Zitat von akuk:

Hallo samso
Zwischen der einzelnen Bytes hat es Lücken, siehe LA Aufzeichnung auf der Emfängerseite
Signale Rx-/RX+ in der Beilage.
Hier Ausschnitt aus der Methode Transmit, genau die aufgezeichnete Meldung
.......
else // alle 16 + 1 Byte Meldungen S1 bis S9
begin
OutMsg.Meldung[0]:= OutType; // MeldungsTyp (Byte 0) setzen
for i:=0 to 16 do //Byte 0 bis 16
Comport.SendByte(OutMsg.Meldung[i]);
MldgOK := true; // Meldung gesendet
end;
end;//case

Gruss Anton

Ok, danke für den Quelltext.

Für mich sieht das so aus, als wenn dieses Comport.SendByte tatsächlich auf die Übertragung des Bytes wartet. Denn 87µs ist ja gerade die Zeit für die Übertragung eines Bytes. Bietet Comport denn nicht die Möglichkeit einen kompletten Puffer zu schicken? Also alle 16 Bytes in einem Rutsch?

[KodeZwerg]

Zitat von samso:

Bietet Comport denn nicht die Möglichkeit einen kompletten Puffer zu schicken? Also alle 16 Bytes in einem Rutsch?

Gibt es, man muss es nur anders nutzen als vom Entwickler gedacht.
procedure SENDSTRING(Buffer: Pchar); // Text über die serielle Schnittstelle senden
Falls das hier genutzt wird.

[samso]

Zitat von KodeZwerg:

Zitat von samso:

Bietet Comport denn nicht die Möglichkeit einen kompletten Puffer zu schicken? Also alle 16 Bytes in einem Rutsch?

Gibt es, man muss es nur anders nutzen als vom Entwickler gedacht.
procedure SENDSTRING(Buffer: Pchar); // Text über die serielle Schnittstelle senden
Falls das hier genutzt wird.

Da diese Klasse nicht mit Delphi 10.3 kompatible ist, kommt sie eher nicht in Frage .

[KodeZwerg]

Zitat:

Umgebung : Delphi7, Windows7

Ich las nirgends von wo uComPort her kommt, tut mir leid das war nur ins blaue geraten und ich bin auch schon wieder still.