RS422 Datensenden unter Windows7

[akuk]

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

[Andreas13]

Hallo Anton,
Du kannst Deinen QuellCode hier mit Hilfe des Delphi-Symbols (= Helm mit rotem Kamm) richtig formatieren, damit er besser lesbar ist.
Gruß, Andreas

[samso]

Zitat von akuk:

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;