我请天同帮我看看DELPHI源代码!

procedure Tmain_form.N2Click(Sender: TObject);  //ÅäÖÃ²Ëµ¥¡ª¡ªÁ¬½Ó
begin
    hClientSocket:=CommInit(ServerIP,CommPortID);
    if  hClientSocket.socket.Connected  then begin
        StatusBar1.Panels[2].Text :='Í¨ÐÅ:Á¬½Ó...';
    end Else
        Main_form.StatusBar1.Panels[2].Text :='Í¨ÐÅ:¶Ï¿ª';
end;procedure Tmain_form.N3Click(Sender: TObject);  //ÅäÖÃ²Ëµ¥¡ª¡ª¶Ï¿ª
begin
    hClientSocket.Active :=False;
    StatusBar1.Panels[2].Text :='Í¨ÐÅ:¶Ï¿ª';
end;procedure Tmain_form.N4Click(Sender: TObject); //ÅäÖÃ²Ëµ¥¡ª¡ªÅäÖÃ
begin
    Application.CreateForm(TCFG_Form,Cfg_Form);
    Cfg_Form.ShowModal;
end;procedure Tmain_form.N6Click(Sender: TObject);  //²Ù×÷²Ëµ¥¡ª¡ª·¢ËÍ£¨¶ÔÊ÷ÐÍÊý¾Ý£©
Var
    Sn,CMDEX:String;
    pNode:TTreeNode;
begin
    if Not hClientSocket.socket.Connected then Begin
        Memo3.Lines.Add('Í¨ÐÅ¶Ë¿Ú´¦ÓÚ¶Ï¿ª×´Ì¬£¬ÇëÁ¬½Óºó·¢ËÍ');
        Exit;
    End;
    pNode:= TreeView1.Selected;//Ê÷µ±Ç°Ñ¡ÖÐ½áµã
    Sn:=PMyRec(pNode.Data)^.Sn;
    If Length(Trim(Sn))<>4 Then Begin
        ShowMessage('Select Correct Command');
        Exit;
    End;
    Memo3.Clear;
    CMDEX:=PMyRec(pNode.Data)^.CMDEX;
    Strcopy(Send_Buffer,pchar(CMDEX));
    Received_len:=CmdSend(@Send_Buffer,@Received_Buffer);//·¢ËÍ²¢½Ó½á¹û
    If Received_len<0 Then
        Memo3.Lines.Add('Í¨ÐÅ¶Ë¿Ú´¦ÓÚ¶Ï¿ª×´Ì¬£¬ÇëÁ¬½Óºó·¢ËÍ')
    Else
        Memo3.Lines.Add('Comm:='+Received_Buffer);
end;procedure Tmain_form.N10Click(Sender: TObject); //ÅäÖÃ²Ëµ¥¡ª¡ªÍË³ö
begin
    CmdExit();
    hClientSocket.Active :=False;
    Close;
end;procedure Tmain_form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
end;procedure Tmain_form.TreeView1Click(Sender: TObject); //Ê÷ÐÍÊý¾ÝÑ¡Ôñ
var
    sn:string;
    pNode,node:ttreenode;
begin
    pNode:= TreeView1.Selected;//Ê÷µ±Ç°Ñ¡ÖÐ½áµã
    sn:=PMyRec(pNode.Data)^.sn;//µ±Ç°Ñ¡ÖÐ½áµã±àºÅ
    if  (pNode.HasChildren=false) and (length(trim(sn))=2)then begin
        With query1 do begin
            close;
            ParamByName('vLen').asinteger :=4;
            ParamByName('vsn').asstring:=sn+'%';
            open;
            First;
            while not Eof do begin
                new(MyRecPtr);
                MyRecPtr^.sn := fields[0].text;
                MyRecPtr^.CMDFMT := fields[2].value;
                MyRecPtr^.CMDEX := fields[3].value;
                node:=treeview1.items.Addchildobject(pNode,fields[1].Text,MyRecPtr);
                Node.ImageIndex :=3;
                Node.SelectedIndex:=3;
                next;
            End;
        end;
    End;
    If length(trim(sn))=4 Then
        ReFresh();
end;procedure Tmain_form.B1Click(Sender: TObject);  //Á¬½Ó°´Å¥
begin
hClientSocket:=CommInit(ServerIP,CommPortID);
    if  hClientSocket.socket.Connected  then begin
          b1.Enabled:=false;
          b2.Enabled:=true;
         //remind.showhint:=true;
        StatusBar1.Panels[2].Text :='Í¨ÐÅ:Á¬½Ó...';
    end Else
        Main_form.StatusBar1.Panels[2].Text :='Í¨ÐÅ:¶Ï¿ª';end;procedure Tmain_form.B2Click(Sender: TObject);    // ¶Ï¿ª°´Å¥
begin
//    StatusBar1.simpletext:='ÒÑ¾¶Ï¿ªÁËÓë·þÎñÆ÷µÄÁ¬½Ó';
    hClientSocket.Active :=False;
    b1.Enabled:=true;
    b2.Enabled:=false;
    StatusBar1.Panels[2].Text :='Í¨ÐÅ:¶Ï¿ª';end;procedure Tmain_form.B3Click(Sender: TObject);   // ÅäÖÃ°´Å¥
begin
//    StatusBar1.simpletext:='ÇëÄã¶ÔÒÔÉÏ¶Ô»°¿ò½øÐÐÉèÖµ';
    Application.CreateForm(TCFG_Form,Cfg_Form);
    Cfg_Form.ShowModal;end;procedure Tmain_form.B4Click(Sender: TObject);   //ÍË³ö°´Å¥
begin
    CmdExit();
    hClientSocket.Active :=False;
    Close;end;
procedure Tmain_form.ToolButton2Click(Sender: TObject); //·¢ËÍ°´Å¥
Var
    //Sn,CMDEX:String;
    //pNode:TTreeNode;
    b:double; //bÎª³É¹¦±ÈÀý
   s,j,k,i,x:integer;   //i:Ð¡Ñ»·£¬j´óÑ»·£¬xÎÄ±¾ÐÐ£¬k·¢ËÍ´ÎÊý,s³É¹¦Êýbegin
     x:=2;
      k:=10;
      s:=0;
  for i:=0 to x do     for j := 1 to k do
    begin     if Not hClientSocket.socket.Connected then Begin
        Memo3.Lines.Add('Í¨ÐÅ¶Ë¿Ú´¦ÓÚ¶Ï¿ª×´Ì¬£¬ÇëÁ¬½Óºó·¢ËÍ');
        Exit;
    End;
    //pNode:= TreeView1.Selected;//Ê÷µ±Ç°Ñ¡ÖÐ½áµã
    //Sn:=PMyRec(pNode.Data)^.Sn;
   //If Length(Trim(Sn))<>4 Then Begin
    //    ShowMessage('Select Correct Command');
     //   Exit;
   // End;
    //Memo3.Clear;
    //CMDEX:=PMyRec(pNode.Data)^.CMDEX;
    //Strcopy(Send_Buffer,pchar(CMDEX));
    Strcopy(Send_Buffer,PChar(Memo2.Lines[i]));
    Received_len:=CmdSend(@Send_Buffer,@Received_Buffer);//·¢ËÍ²¢½Ó½á¹û
    If Received_len<0 Then
        Memo3.Lines.Add('Í¨ÐÅ¶Ë¿Ú´¦ÓÚ¶Ï¿ª×´Ì¬£¬ÇëÁ¬½Óºó·¢ËÍ')
    Else
        Memo3.Lines.Add('Comm:='+Received_Buffer);
        Memo1.Lines.Add(IntToStr(i+1)+'successful');
        s:=s+1;  end;
        b:=s/(k*(x+1));
  Memo1.Lines.Add('totle '+IntToStr(s)+' successful');
  Memo1.Lines.Add(FloatToStr(b*100)+'% successful');
end;procedure Tmain_form.ToolButton4Click(Sender: TObject);  //M2toM3°´Å¥£¨ÊÔÑémemo3·´Ó³mem02Êý¾Ý£©
  var
  j: Integer;
begin
  for j := 0 to Memo2.Lines.Count - 1 do
  begin
    Memo3.Lines.Add(Memo2.Lines[j]);
     Memo3.Lines.Add(':it is the '+IntToStr(2*j+2)+'

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货