Sende String an comport

[hathor]

Warum nicht so?

Delphi-Quellcode:

procedure SENDSTRING (Buffer: String);
var BytesWritten: DWord;
begin
  WriteFile(PortHandle,(Pchar(Buffer))^,Length(Buffer),BytesWritten,NIL);
END;

procedure TForm1.Button1Click(Sender: TObject);
var TextString : String;
begin
   TextString := 'Hallo';
   SendString (TextString+ #13);
end;