Question

怎样用delphi写一个程序来读取从串口读取来的数据，并显示出来。

我用DH11温湿度差传感器于89C52作了一个最小系统的测温湿程序。现在要用delphi程序制作上位机程序，显示出温湿度。那位高手能给我写个delphi程序。

Answer 1

Comm1.CommName := 'com1';
  Comm1.BaudRate := 4800;//波特率每个机器都不一样
  Comm1.Parity := TParity(2);
  Comm1.ByteSize := TByteSize(2);
  Comm1.StopBits := TStopBits(2);
  Comm1.StartComm;    //开始记得结束哦

以上代码在formshow里面写

然后写下面的过程

procedure Tfrm_cnc_h_edt.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var str: string;
begin
  edit.Clear;
  SetLength(Str, BufferLength);
  move(buffer^, pchar(@Str[1])^, bufferlength);
 edit.Text := trim(Str);// 这里显示到你要的edit.text
  sendmessage(edt_measure.handle, wm_keydown, vk_return, 0);
end;

最后在formclose 里面写上

Comm1.StopComm;  //comm1结束

控件在system这里面找跟手电筒一样的那个就是

代码你可以复制，便宜你了。

Answer 2

假设你的下位机是通过一个命令(A)读取出这两个值，一个温度值和一个湿度值，那么你可以先配置好串口组件的相关参数，然后打开串口，再用write命令发出去，然后你的单片机收到这个命令后，就立即返回当前的两个值，上位机收到后再进行解析就可以了，如果你的下位机返回的是电压值的话，上位机还需要根据你的电路计算出对应的温度和湿度值。

Answer 3

假设你的下位机是通过一个命令(A)读取出这两个值，一个温度值和一个湿度值，那么你可以
先配置好串口组件的相关参数，然后打开串口，再用write命令发出去，然后你的单片机收到这个命令后，就立即返回当前的两个值，上位机收到后再进行解析就可以了，如果你的下位机返回的是电压值的话，上位机还需要根据你的电路计算出对应的温度和湿度值。

Answer 4

SPCOMM 或者COMM 这两个控件可以实现你的要求