searcheventslog.pas

SPServer.rar一个基于TCP/IP监听发送代码

unit SearchEventsLog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Grids, ExtCtrls, Buttons, ToolWin, Menus,
  ImgList;

type
  TfrmSearchEventsLog = class(TForm)
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    Panel2: TPanel;
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    E1: TMenuItem;
    H1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    P1: TMenuItem;
    O1: TMenuItem;
    I1: TMenuItem;
    N3: TMenuItem;
    E2: TMenuItem;
    ToolButton3: TToolButton;
    ImageList3: TImageList;
    ImageList2: TImageList;
    Panel1: TPanel;
    TreeView1: TTreeView;
    Splitter1: TSplitter;
    Panel4: TPanel;
    Panel3: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Label1: TLabel;
    ToolBar2: TToolBar;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    NoteBook: TNotebook;
    sgr1: TStringGrid;
    sgr2: TStringGrid;
    sgr3: TStringGrid;
    sgr4: TStringGrid;
    RichEdit1: TRichEdit;
    sgr5: TStringGrid;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TreeView1Changing(Sender: TObject; Node: TTreeNode;
      var AllowChange: Boolean);
    procedure sgr4SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure sgr3SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure sgr2SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure sgr1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure sgr5SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
  private
   procedure DispEventsLog(Falg:Integer);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSearchEventsLog: TfrmSearchEventsLog;

implementation

uses
 ServerDB;
 
{$R *.dfm}

procedure TfrmSearchEventsLog.FormShow(Sender: TObject);
begin
with sgr1 do
 begin
   Cells[0,0]:='记录号';
   Cells[1,0]:='被叫号码';
   Cells[2,0]:='付费号码';
   Cells[3,0]:='服务类型';
   Cells[4,0]:='安排时间';
   Cells[5,0]:='发送时间';
   Cells[6,0]:='信息内容';
   Cells[7,0]:='发送类型';
   Cells[8,0]:='SP号码';
   Cells[9,0]:='信息内容';
   Cells[10,0]:='发送标志';
 end;
with sgr2 do
 begin
   Cells[0,0]:='网络句柄';
   Cells[1,0]:='信息头';
   Cells[2,0]:='IP地址';
   Cells[3,0]:='SP子号码';
   Cells[4,0]:='用户名';
   Cells[5,0]:='命令号';
   Cells[6,0]:='被叫号码';
   Cells[7,0]:='付费号码';
   Cells[8,0]:='服务类型';
   Cells[9,0]:='信息内容';
   Cells[10,0]:='操作时间';
 end;
with sgr3 do
 begin
   Cells[0,0]:='接收类型';
   Cells[1,0]:='主叫号码';
   Cells[2,0]:='SP号码';
   Cells[3,0]:='TpUid';
   Cells[4,0]:='TpUdhi';
   Cells[5,0]:='加密格式';
   Cells[6,0]:='信息长度';
   Cells[7,0]:='请求内容';
   Cells[8,0]:='请求时间';
 end;
with sgr4 do
 begin
   Cells[0,0]:='接收类型';
   Cells[1,0]:='OID';
   Cells[2,0]:='发送次数';
   Cells[3,0]:='发送时间';
   Cells[4,0]:='发送模式';
   Cells[5,0]:='被叫号码';
   Cells[6,0]:='信息状态';
   Cells[7,0]:='付费号码';
 end;
with sgr5 do
 begin
   Cells[0,0]:='记录号';
   Cells[1,0]:='接收类型';
   Cells[2,0]:='信息头';
   Cells[3,0]:='命令号';
   Cells[4,0]:='主叫号码';
   Cells[5,0]:='SP号码';
   Cells[6,0]:='信息长度';
   Cells[7,0]:='请求内容';
   Cells[8,0]:='请求时间';
   Cells[9,0]:='返回值';
   Cells[10,0]:='发送标志';
 end;
end;

procedure TfrmSearchEventsLog.SpeedButton3Click(Sender: TObject);
begin
Close;
end;

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

procedure TfrmSearchEventsLog.TreeView1Changing(Sender: TObject;
  Node: TTreeNode; var AllowChange: Boolean);
begin
NoteBook.PageIndex:=Node.Index;
DispEventsLog(Node.Index);
end;

procedure TfrmSearchEventsLog.DispEventsLog(Falg:Integer);
var
 i,sRow:Integer;
begin
I:=1;
 case Falg of
  0:begin
     frmServerDB.aScheduleSendData.Close;
     frmServerDB.aScheduleSendData.Open;
     frmServerDB.aScheduleSendData.First;
     while not frmServerDB.aScheduleSendData.Eof do
      begin
        with frmServerDB.aScheduleSendData do
          begin
           sgr1.Cells[0,I]:=IntToStr(Fields[0].Value);
           sgr1.Cells[1,I]:=Fields[1].Text;
           sgr1.Cells[2,I]:=Fields[2].Text;
           sgr1.Cells[3,I]:=Fields[3].Text;
           sgr1.Cells[4,I]:=Fields[4].Text;
           sgr1.Cells[5,I]:=DateTimeToStr(Fields[5].Value);
           sgr1.Cells[6,I]:=Fields[6].Text;
           sgr1.Cells[7,I]:=Fields[7].Text;
           sgr1.Cells[8,I]:=Fields[8].Text;
           sgr1.Cells[9,I]:=IntToStr(Fields[9].Value);
           Inc(I);
           sgr1.RowCount:=I;
          end;
        frmServerDB.aScheduleSendData.Next;
       end;
       sgr1.Row:=sgr1.RowCount-1;
      end;
  1:begin
     frmServerDB.tblMessageLog.Close;
     frmServerDB.tblMessageLog.Open;
     frmServerDB.tblMessageLog.First;
     while not frmServerDB.tblMessageLog.Eof do
      begin
        with frmServerDB.tblMessageLog do
          begin
           sgr2.Cells[0,I]:=IntToStr(Fields[0].Value);
           sgr2.Cells[1,I]:=IntToStr(Fields[1].Value);
           sgr2.Cells[2,I]:=Fields[2].Text;
           sgr2.Cells[3,I]:=Fields[3].Text;
           sgr2.Cells[4,I]:=Fields[4].Text;
           sgr2.Cells[5,I]:=Fields[5].Text;
           sgr2.Cells[6,I]:=Fields[6].Text;
           sgr2.Cells[7,I]:=Fields[7].Text;
           sgr2.Cells[8,I]:=Fields[8].Text;
           sgr2.Cells[9,I]:=Fields[9].Text;
           sgr2.Cells[10,I]:=DateTimeToStr(Fields[10].Value);
           Inc(I);
           sgr2.RowCount:=I;
          end;
        frmServerDB.tblMessageLog.Next;
       end;
       sgr2.Row:=sgr2.RowCount-1;
    end;
  2:begin
     frmServerDB.tbDeliver.Close;
     frmServerDB.tbDeliver.Open;
     frmServerDB.tbDeliver.First;
     while not frmServerDB.tbDeliver.Eof do
      begin
        with frmServerDB.tbDeliver do
          begin
           sgr3.Cells[0,I]:=IntToStr(Fields[0].Value);
           sgr3.Cells[1,I]:=Fields[1].Text;
           sgr3.Cells[2,I]:=Fields[2].Text;
           sgr3.Cells[3,I]:=IntToStr(Fields[3].Value);
           sgr3.Cells[4,I]:=IntToStr(Fields[4].Value);
           sgr3.Cells[5,I]:=Fields[5].Text;
           sgr3.Cells[6,I]:=IntToStr(Fields[6].Value);
           sgr3.Cells[7,I]:=Fields[7].Text;
           sgr3.Cells[8,I]:=DateTimeToStr(Fields[8].Value);
           Inc(I);
           sgr3.RowCount:=I;
          end;
        frmServerDB.tbDeliver.Next;
       end;
      sgr3.Row:=sgr3.RowCount-1;
    end;
 3:begin
     frmServerDB.tbResult.Close;
     frmServerDB.tbResult.Open;
     frmServerDB.tbResult.First;
     while not frmServerDB.tbResult.Eof do
      begin
        with frmServerDB.tbResult do
          begin
           sgr4.Cells[0,I]:=IntToStr(Fields[0].Value);
           sgr4.Cells[1,I]:=IntToStr(Fields[1].Value);
           sgr4.Cells[2,I]:=IntToStr(Fields[2].Value);
           sgr4.Cells[3,I]:=Fields[3].Text;
           sgr4.Cells[4,I]:=Fields[4].Text;
           sgr4.Cells[5,I]:=Fields[5].Text;
           sgr4.Cells[6,I]:=Fields[6].Text;
           sgr4.Cells[7,I]:=Fields[7].Text;
           Inc(I);
           sgr4.RowCount:=I;
          end;
        frmServerDB.tbResult.Next;
       end;
       sgr4.Row:=sgr4.RowCount-1;
      end;

 4:begin
     frmServerDB.tblTranClient.Close;
     frmServerDB.tblTranClient.Open;
     frmServerDB.tblTranClient.First;
     while not frmServerDB.tblTranClient.Eof do
      begin
        with frmServerDB.tblTranClient do
          begin
           sgr5.Cells[0,I]:=IntToStr(Fields[0].Value);
           sgr5.Cells[1,I]:=IntToStr(Fields[1].Value);
           sgr5.Cells[2,I]:=IntToStr(Fields[2].Value);
           sgr5.Cells[3,I]:=Fields[3].Text;
           sgr5.Cells[4,I]:=Fields[4].Text;
           sgr5.Cells[5,I]:=Fields[5].Text;
           sgr5.Cells[6,I]:=IntToStr(Fields[6].Value);
           sgr5.Cells[7,I]:=Fields[7].Text;
           sgr5.Cells[8,I]:=DateTimeToStr(Fields[8].Value);
           sgr5.Cells[9,I]:=IntToStr(Fields[9].Value);
           sgr5.Cells[10,I]:=Fields[10].Text;
           Inc(I);
           sgr5.RowCount:=I;
          end;
        frmServerDB.tblTranClient.Next;
       end;
       sgr5.Row:=sgr5.RowCount-1;
      end;
    end;
end;

procedure TfrmSearchEventsLog.sgr4SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
 i:Integer;
begin
RichEdit1.Clear;
for I:=0 to sgr4.ColCount-1 do
  RichEdit1.Lines.Add(sgr4.Cells[I,0]+':'+sgr4.Cells[I,ARow]);
end;

procedure TfrmSearchEventsLog.sgr3SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
 i:Integer;
begin
RichEdit1.Clear;
for I:=0 to sgr3.ColCount-1 do
  RichEdit1.Lines.Add(sgr3.Cells[I,0]+':'+sgr3.Cells[I,ARow]);
end;

procedure TfrmSearchEventsLog.sgr2SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
 i:Integer;
begin
RichEdit1.Clear;
for I:=0 to sgr2.ColCount-1 do
  RichEdit1.Lines.Add(sgr2.Cells[I,0]+':'+sgr2.Cells[I,ARow]);
end;

procedure TfrmSearchEventsLog.sgr1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
 i:Integer;
begin
RichEdit1.Clear;
for I:=0 to sgr1.ColCount-1 do
  RichEdit1.Lines.Add(sgr1.Cells[I,0]+':'+sgr1.Cells[I,ARow]);
end;

procedure TfrmSearchEventsLog.sgr5SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
 i:Integer;
begin
RichEdit1.Clear;
for I:=0 to sgr5.ColCount-1 do
  RichEdit1.Lines.Add(sgr5.Cells[I,0]+':'+sgr5.Cells[I,ARow]);
end;

end.