评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi气象服务业务系统＋sql[开题报告＋论文＋源(5)

2013-06-06 02:24 Object);
    procedure AddrBoxChange(Sender: TObject);
    procedure mesTextChange(Sender: TObject);
  private
    { Private declarations }
     UserName:String;
     MessageHeader:TStringList;
  public
    { Public declarations }
  end;

var
  frmSendMsg: TfrmSendMsg;

implementation

{$R *.dfm}

procedure TfrmSendMsg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfrmSendMsg.bbtnSendClick(Sender: TObject);
var
 i,res:Integer;
begin
  if AddrBox.Text<>'' then
   begin
     StatusPanel.Font.Color:=clBlack;
     StatusPanel.Caption:='请稍等......';
     Update;
     if AddrBox.Items.IndexOf(AddrBox.Text)=-1 then
      AddrBox.Items.Add(AddrBox.Text);
     res:=SendMsg(AddrBox.Text,'',MessageHeader.Text+mesText.Text);
     //ShowMessage(IntToStr(res));
     if res=0 then
      begin
       frmSendMsg.StatusPanel.Caption:='消息已成功送出';
       frmSendMsg.StatusPanel.Font.Color:=clBlue;
      end;
     try
      if res=87 then
      begin
       frmSendMsg.StatusPanel.Caption:='指定参数错误';
       frmSendMsg.StatusPanel.Font.Color:=clRed;
      end;
     except
       //ShowMessage('指定参数错误');

     end;
      try
       if res=2273 then
       begin
        frmSendMsg.StatusPanel.Caption:='不能找到该IP:'+AddrBox.Text;
        frmSendMsg.StatusPanel.Font.Color:=clRed;
       end;
       // ShowMessage('不能找到该IP:'+AddrBox.Text);
      except
      end;
      try
        if (res<>0)and(res<>87)and(res<>2273) then
       begin
        frmSendMsg.StatusPanel.Caption:='错误:'+IntToStr(res);
        frmSendMsg.StatusPanel.Font.Color:=clRed;
       end;
     except
     //
     end;
  end;
end;

procedure TfrmSendMsg.FormCreate(Sender: TObject);
var
 strUser:PChar;
 strSize:DWord;
begin
 mesText.Lines.Clear;
 strUser:=StrAlloc(100);
 strSize:=100;
 GetUser