用的是TMSCOMM控件在窗体创建时 设置了comm端口号 在开始按钮中作了判断 begin if not (eleComm.PortOpen) then begin ShowMessage('Agilent connect has problem, please check!'); end else begin ele:='0'; eleComm.PortOpen := True; // if not(eleComm.PortOpen) then // eleComm.PortOpen:=True; if Trim(frm1.label.Caption) <> '' then begin ele := eleComm.Input; eleComm.PortOpen := False; end;
begin
if not (eleComm.PortOpen) then
begin
ShowMessage('Agilent connect has problem, please check!');
end else
begin
ele:='0';
eleComm.PortOpen := True;
// if not(eleComm.PortOpen) then
// eleComm.PortOpen:=True;
if Trim(frm1.label.Caption) <> '' then
begin
ele := eleComm.Input;
eleComm.PortOpen := False;
end;