MSCOMM电子秤参考

标签：电子秤;mscomm

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, MSCommLib_TLB, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    CheckBox1: TCheckBox;
    MSComm: TMSComm;
    Memo1: TMemo;
    edtcomm: TEdit;
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    Timer1: TTimer;
    Edit1: TEdit;
    Label2: TLabel;
    procedure CheckBox1Click(Sender: TObject);
    procedure MSCommComm(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    function HexToBin(HexNr : string): string;
    function HexCharToBin(HexToken : char): string;
    function HexCharToInt(HexToken : char):Integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  commType:integer;

implementation

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
  begin
    if  mscomm.portopen   then
    begin
      Timer1.Enabled := false;
      mscomm.portopen:=false;
      mscomm.Refresh;
    end
    else
    begin

      mscomm.CommPort:=5;                         //第几个comm口
//      mscomm.Settings:=‘9600,N,8,1‘;              //波特率，奇偶校验位，数据位，停止位  默认 9600
      mscomm.Settings:= trim(edtcomm.Text);
      mscomm.OutBufferSize:=0;                       //设置发送缓冲区的大小，缺省为512字节
      mscomm.InBufferSize:=1024;                     //设置接受缓冲区的大小，缺省为1024字节
      mscomm.InputLen:=160;                          //设置每次读取的字符数，0表示读取整个缓冲区的内容
      mscomm.InputMode:=0;                           //0为文本传输，1为二进制数据
      //mscomm1.Handshaking:=0;                       //设置握手协议，0表示务协议
      mscomm.RThreshold:=160;                        //当发生字符传输数据大于160时，激活接收传输事件
      mscomm.SThreshold:=0;                           //当发生字符传输数据大于1时，激活传输事件
      mscomm.ParityReplace:=‘?‘;                     //当发生奇偶校验错误时，出现的字符

      if radioGroup1.itemIndex=0 then
        commType := 0
      else
        commType := 1;

      if commType=1 then Timer1.Enabled := true;
     
      try
        MSComm.Enabled:=True;
        MSComm.PortOpen:=True;
      except
        on e:Exception do
          ShowMessage(e.Message);
      end;

     end;
  end;

end;

function TForm1.HexCharToBin(HexToken: char): string;
var DivLeft : integer;
begin
    DivLeft:=HexCharToInt(HexToken); { first HEX->BIN }
    Result:=‘‘;
    // Use reverse dividing
    repeat //Trick; divide by 2
    //if (odd(DivLeft)) then // result = odd ? then bit = 1
    if (DivLeft mod 2) = 1 then
        Result:=‘1‘+Result // result = even ? then bit = 0
        else
        Result:=‘0‘+Result;
    DivLeft:=DivLeft div 2; // keep dividing till 0 left and length = 4
    until (DivLeft=0) and (length(Result)=4); // 1 token = nibble = 4 bits
end;

function TForm1.HexCharToInt(HexToken: char): Integer;
begin
    {if HexToken>#97 then HexToken:=Chr(Ord(HexToken)-32);
    { use lowercase aswell }
    Result:=0;
    if (HexToken>#47) and (HexToken<#58) then { chars 0....9 }
    Result:=Ord(HexToken)-48
    else if (HexToken>#64) and (HexToken<#71) then { chars A....F }
    Result:=Ord(HexToken)-65 + 10;

end;

function TForm1.HexToBin(HexNr: string): string;
var Counter : integer;
begin
    Result:=‘‘;
    for Counter:=1 to length(HexNr) do
    Result:=Result+HexCharToBin(HexNr[Counter]);
end;

procedure TForm1.MSCommComm(Sender: TObject);
var
  strtemp,st,strweigh1 :string;
  inttemp1, inttemp2: Integer;
begin
  if commType=0 then
  begin
    if mscomm.CommEvent=2 then   //如果接收区有数据达到了RThreshold的值则发生；1表示发送区域小于SThreshold的值时发生
    begin
      strtemp:=mscomm.Input;     //接收缓冲区移走一串字符
      memo1.Lines.Add(‘【strtemp为缓冲取的数据】 ‘+strtemp);     //debug称重数据
      memo1.Lines.Add(‘----------------------------------------‘);
      inttemp1:=pos(‘k‘,trim(strtemp));
      memo1.Lines.Add(‘【inttemp1为k第一次出现的位置】 ‘+inttostr(inttemp1));
      memo1.Lines.Add(‘----------------------------------------‘);
      if inttemp1<14 then
      begin
        inttemp2:=pos(‘k‘,trim(strtemp));
        memo1.Lines.Add(‘【跳进if条件第1层 inttemp2为k第一次出现的位置（再一次扑捉）】‘+inttostr(inttemp2));
        memo1.Lines.Add(‘----------------------------------------‘);
        if inttemp2<14 then
        begin
          memo1.Lines.Add(‘【跳进if条件第2层 本次抓取的数据错误，退出。。。】‘);
          memo1.Lines.Add(‘----------------------------------------‘);
          inttemp1:=0;
          exit;
        end;
        inttemp1:=inttemp2;
        memo1.Lines.Add(‘【inttemp1:=inttemp2 以第2次抓取k的位置为准】‘+inttostr(inttemp1));
        memo1.Lines.Add(‘----------------------------------------‘);
      end;

      strweigh1:=trim(copy(strtemp,inttemp1-8,8));
      memo1.Lines.Add(‘【strweigh1为k前8位到K的数据】‘+strweigh1);     //debug称重数据
      memo1.Lines.Add(‘----------------------------------------‘);
      st:=trim(copy(strtemp,inttemp1-13,5));
      memo1.Lines.Add(‘【st为K前13位到17位】‘+st);     //debug称重数据
     // memo1.Lines.Add(‘----------------------------------------‘);
  //-------------------------------------------------------------------------------------------------------------------
      if st=‘ST,GS‘ then                            //数据稳定
      begin
  //      Labweigh.Font.Color:=clGreen;
  //      Labweigh.Caption:=Trim(StrWeigh1);
  //      labweigh.Refresh;
  //      Labinfor2.Caption:=‘请扫入条码‘;
        memo1.Lines.Add(‘数据稳定时，请扫入条码……‘);
  //      labinfor2.Font.Color:=clblue;
  //      Labinfor2.Refresh;
      end
      else
      begin
  //      Labweigh.Font.Color:=clred;
  //      //Labweigh.Caption:=Trim(StrWeigh1);
  //      //labweigh.Refresh;
  //      Labinfor2.Caption:=‘数据不稳定‘;
        memo1.Lines.Add(‘数据不稳定……‘);
  //      labinfor2.Font.Color:=clred;
  //      Labinfor2.Refresh;
      end;

      //if not checkweigh then exit;  //检查重量
  //-------------------------------------------------------------------------------------------------------------------
    end;

    memo1.Lines.Add(‘***********【结束】**********‘);
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  ReceiveData :String;   //接收电子称发到电脑的数据
  decimal_digits:String; //小数位数
  flag:char;  //标志位
  ascII_Data:integer; //ascII数据
  DecData:string; //二进制数据
  HexData:string; //十六进制数据
  w:String; //不带符号和小数点的数据
  ReceiveDataNew:String; //不带符号和小数点的数据
  Start, Stop : integer;
  gross_weight:string;

  filenrc   :char;  
  buffer   :variant;  
  s1,ss:string;
  c   :char;
begin
  if commType=1 then
  begin
    ReceiveData:=MSComm.Input;
   
    If pos(chr(2),ReceiveData )=1 then //chr(2)的值是#2（也就是开始位置）
    begin
        flag:=ReceiveData[2];  //(1)取得标志位逗号,始终是第二位
        W:=copy(ReceiveData,5,6); //(2)不带符号和小数点的数据
        ascII_Data:=ORD(flag); //(3)把字符转换成ACSII码(10进制）
        HexData:=inttohex(ascII_Data,2); //(4)把ACSII码（10进制）转换为16进制
        DecData:=HexToBin(HexData); //(5)把16进制转换为二进制
        decimal_digits :=copy(DecData,4,3); //(6)小数位数
        gross_weight:=‘0‘; //初始化毛重量

        try
            //分八种情况处理，称的数值乘于小数点位数结合后得出实际值
            if  decimal_digits=‘000‘       then   gross_weight:= FloatToStr(StrToFloat(w) * 1)
            else if  decimal_digits=‘100‘  then   gross_weight:= FloatToStr(StrToFloat(w) * 1)
            else if  decimal_digits=‘010‘  then   gross_weight:= FloatToStr(StrToFloat(w) * 1)
            else if  decimal_digits=‘110‘  then   gross_weight:= FloatToStr(StrToFloat(w) * 0.1)
            else if  decimal_digits=‘001‘  then   gross_weight:= FloatToStr(StrToFloat(w) * 0.01)
            else if  decimal_digits=‘101‘  then   gross_weight:= FloatToStr(StrToFloat(w) * 0.001)
            else if  decimal_digits=‘011‘  then   gross_weight:= FloatToStr(StrToFloat(w) * 0.0001)
            else if  decimal_digits=‘111‘  then   gross_weight:= FloatToStr(StrToFloat(w) * 0.00001);
            edit1.Text:=FloatToStr(StrToFloat(gross_weight)*10);
        finally
        end;
    end;

  end;
end;

end.

本文出自 “畅想天空” 博客，请务必保留此出处http://kinwar.blog.51cto.com/3723399/1614277

MSCOMM电子秤参考

标签：电子秤;mscomm

原文地址：http://kinwar.blog.51cto.com/3723399/1614277