怎样直接写COM1口

Question

它有自己的指令集的，关键是怎么把指令集与DELPHI联系起来？？？

Answer 1

下例用于打开串口com1，显示了函数的使用方法
var
  commport:string;
  hcommfile:thandle;
begin
   commport:='com1';
  {打开指定串口}]
  hcommfile:=createfile(pchar(commport),
                       generic_write,
                       0,
                      nil,
                     open_existing,
                     file_attribute_normal,
                    0);
end;   

Answer 2

guoyhcs(孤烟)　：
 
  它自己的指令码怎么办，送到COM1 吗，为什么写时，如果用PCHAR型的BUFF缓冲的内容去写，打印出来的是乱码，而用CHAR数组则是正常，但我不可能用数组去一个个赋值，请问怎么办？？？

Answer 3

你可以定义一个PChar的指针变量和一个CHAR数组,将PChar指向数组第一个无素后，就可以使用字符串函数了。
例如：
p:Pchar;
Buf:Array [1..255] of char;
//p:=@Buf[1];
strcopy(p,打印命令)
也要吧直接使用strcopy(@buf[1],打印命令）
如果还有其它问题，可以发邮件给我。