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 :
Delphi-Quellcode:
//--------------------------------------------------------
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 Falls Du die etwas universellere Methode TComport.SendBuffer (s. #15) benutzen möchtest, geht das z.B. so:
Delphi-Quellcode:
var
Msg: T_OutMld;
begin
Comport.SendBuffer(Msg, Length(Msg));
end;