WIFI 模块 串口 调试 助手

本人在调试wifi模块时，用delphi写了个wifi模块调试助手的程序，

串口采用mscomm，

开启mscomm

procedure TForm1.FormCreate(Sender: TObject);

begin
try
   configinifile:=Tinifile.create('config/config.ini');
   mscomm1.CommPort:=configinifile.readinteger('gsmmscomm','commport',2);
   mscomm1.Settings:=configinifile.readString('gsmmscomm','settings','9600,n,8,1');
   mscomm1.PortOpen:=true;
except
 MessageBox(0,'请修改配置文件config.ini的端口号','串口端口号设置错误或者不存在此端口号！',MB_OK);
end;
   edit2.Text:=inttostr(mscomm1.CommPort);
end;

mscomm接收事件处理程序：

procedure TForm1.MSComm1Comm(Sender: TObject);
var
  inputCount:integer;
  tmpStr:string;
  tmpArray:array of byte;
  i:integer;
begin
  tmpStr:='';
   case mscomm1.CommEvent of
   comEvReceive:
     begin
      tmpStr:='';
      inputCount:=mscomm1.InBufferCount;
    //  tmpReadCount:=inputCount;
      setLength(tmpArray,inputcount);
      tmpArray:=mscomm1.input;
    //  analizeData(tmpArray );
  //-------------------------------------------------//
       for i:=0 to inputCount -1 do
       begin
        if blnHex then
         tmpStr:=tmpstr +' '+intTohex(tmpArray[i],2)
        else
         tmpStr:=tmpStr+chr(tmpArray[i]);
       if (tmpArray[i-1]=13)and(tmpArray[i]=10) then
        begin
         memInfo.Text:=memInfo.Text+tmpStr+#13#10;
         memInfo.SelStart:=length(memInfo.Text);
         tmpStr:='';
        end;
       end;//end for
       memInfo.Text:=memInfo.Text+tmpstr;
       memInfo.SelStart:=length(memInfo.Text);
     //  memInfo.ScrollBars.
   //   sendmessage(memInfo.Handle,WM_VSCROLL,SB_BOTTOM,0);
      //滚动条下滑
       memInfo.SelStart:=   getTextlen;
       memInfo.SelLength:=   Length(memInfo.text);
 //-----------------------------------------------------//
     end;
   else;
   end; //end case;
end;

 

模块和程序效果图如下：