怎样接收别的机子(不是电脑，而是像医疗仪器那样的可用COM口实时传出数据的仪器)的COM口数据？

Question

原机的程序有点坏了，想自己做一个，需要哪些东西？要机子厂家的函数吗？

Answer 1

to ffwin()
 请问你做过类似的东东吗？到哪 找那个调试软件？

Answer 2

串口调试助手 hehe 我也用这个

Answer 3

我看到有个用MSCOMM控件作的例子，怎么用？
procedure TcommForm.FormCreate(Sender: TObject);
begin
mscomm.commport:=1;
mscomm.settings:='9600,n,8,1';
mscomm.inputlen:=1;
mscomm.inbuffercount:=0;
mscomm.portopen:=true;
ss:='';
i:=0;
j:=0;
assignfile(savef,'save1');
rewrite(savef);
assignfile(readf,'read1');
reset(readf);
end;procedure TcommForm.Button1Click(Sender: TObject);
begin
if mscomm.portopen then
mscomm.portopen:=false;
mscomm.commport:=strtoint(edtCommport.text);
mscomm.settings:=edtCommsetting.Text;
end;
procedure TCommForm.MSCommComm(Sender: TObject);
var
filenrc :char;
buffer :variant;
s1:string;
c :char;
begin
case mscomm.commEvent of
comEvSend:
begin
while not(eof(readf)) do
begin
read(readf,filenrc);
mscomm.output:=filenrc;
j:=j+1;
lblDisplay.caption:=inttostr(j);
if mscomm.outbuffercount>=2 then
break;
end;
end;
comEvReceive:
begin
buffer:=mscomm.Input;
s1:=buffer;
c:=s1[1];
ss:=ss+c;
i:=i+1;
lblDisplay.caption:=c+inttostr(i);
write(savef,c);
if (c=chr(10))or(c=chr(13)) then
begin
lblDisplay.caption:='cr'+inttostr(i);
memDisplay.lines.add(ss);
ss:='';
end;
end;
end;
end;

Answer 4

我用这个做了个，可接收不到任何数据，为什么？
procedure TForm1.FormCreate(Sender: TObject);
begin
mscomm1.InBufferCount:=0;
mscomm1.InputLen:=0;
mscomm1.RThreshold:=1;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
mscomm1.Settings:=combobox1.Text;
if combobox2.Text='com1' then
  mscomm1.CommPort:=1
  else
  mscomm1.CommPort:=2;
  mscomm1.PortOpen:=true;
  mscomm1.DTREnable:=true;
  mscomm1.RTSEnable:=true;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
mscomm1.PortOpen:=false;
mscomm1.DTREnable:=false;
mscomm1.RTSEnable:=false;
end;procedure TForm1.MSComm1Comm(Sender: TObject);
var
recstr:olevariant;
begin
  if mscomm1.CommEvent=2 then
  begin
  recstr:=mscomm1.Input;
  memo1.Text:=memo1.Text+recstr;
  end;
end;

Answer 5

是不是要将那个VB的MSCOMM32.OCX进行注册？

Answer 6

菜单Component/Import ActiveX Control..." 在列表中选择Microsoft Comm Control1.0 然后Install 就可以用了