Hallo
besten Dank an Alle, der Hinweis :
"die Möglichkeit einen kompletten Puffer zu schicken?
Also alle 16 Bytes in einem Rutsch?"
war Goldwert.
Ich habe versuchsweise eine Methode gemacht in Abänderung von SENDSTRING :
//--------------------------------------------------------
T_OutMld = packed array [0..16] of byte;
//------------------------------------------------
procedure TComport.SendArray (Data : T_OutMld);
var BytesWritten: DWord;
begin
WriteFile(PortHandle,Data,17,BytesWritten,NIL);
END;
//--------------------------
und es lauft ohne Unterbrechungen, ich muss es noch für gössere Anzahl Bytes testen als 17.
Bsten Dank für Euere Hilfe
Anton
an himitsu:
www.zuritronic.com