unit_server_main.~pas

这是Delphi开发的GPS系统的原代码势力程序

      if ChatServerSocket.Socket.Connections[i].RemoteAddress <> clientip.Text then
        ChatServerSocket.Socket.Connections[i].SendBuf(y,18) ;
     end ;
end;
procedure TForm_Server_Main.E941E ;
var i , x : Integer ;
    y :array[0..17] of byte ;
begin
   y[0] := $fe ;
   y[1] := $fe ;
   y[2] := $fe ;
   y[3] := $fe ;
   y[4] := $68 ;
   y[5] := $99 ;
   y[6] := $99 ;
   y[7] := $99 ;
   y[8] := $99 ;
   y[9] := $99 ;
   y[10] := $99 ;
   y[11] := $68 ;
   y[12] := $1 ;
   y[13] := $2 ;
   y[14] := $1e + $33 ;
   y[15] := $94 + $33 ;

   x := 0 ;
   for i := 4 to 15 do
       x := x + y[i] ;

   y[16] := x mod 256 ;
   y[17] := $16 ;

   for i := 0 to ChatServerSocket.Socket.ActiveConnections - 1 do
     begin
      if ChatServerSocket.Socket.Connections[i].RemoteAddress <> clientip.Text then
        ChatServerSocket.Socket.Connections[i].SendBuf(y,18) ;
     end ;
end;
procedure TForm_Server_Main.E942E ;
var i , x : Integer ;
    y :array[0..17] of byte ;
begin
   y[0] := $fe ;
   y[1] := $fe ;
   y[2] := $fe ;
   y[3] := $fe ;
   y[4] := $68 ;
   y[5] := $99 ;
   y[6] := $99 ;
   y[7] := $99 ;
   y[8] := $99 ;
   y[9] := $99 ;
   y[10] := $99 ;
   y[11] := $68 ;
   y[12] := $1 ;
   y[13] := $2 ;
   y[14] := $2e + $33 ;
   y[15] := $94 + $33 ;

   x := 0 ;
   for i := 4 to 15 do
       x := x + y[i] ;

   y[16] := x mod 256 ;
   y[17] := $16 ;

   for i := 0 to ChatServerSocket.Socket.ActiveConnections - 1 do
     begin
      if ChatServerSocket.Socket.Connections[i].RemoteAddress <> clientip.Text then
        ChatServerSocket.Socket.Connections[i].SendBuf(y,18) ;
     end ;
end;
procedure TForm_Server_Main.E951E ;
var i , x : Integer ;
    y :array[0..17] of byte ;
begin
   y[0] := $fe ;
   y[1] := $fe ;
   y[2] := $fe ;
   y[3] := $fe ;
   y[4] := $68 ;
   y[5] := $99 ;
   y[6] := $99 ;
   y[7] := $99 ;
   y[8] := $99 ;
   y[9] := $99 ;
   y[10] := $99 ;
   y[11] := $68 ;
   y[12] := $1 ;
   y[13] := $2 ;
   y[14] := $1e + $33 ;
   y[15] := $95 + $33 ;

   x := 0 ;
   for i := 4 to 15 do
       x := x + y[i] ;

   y[16] := x mod 256 ;
   y[17] := $16 ;

   for i := 0 to ChatServerSocket.Socket.ActiveConnections - 1 do
     begin
      if ChatServerSocket.Socket.Connections[i].RemoteAddress <> clientip.Text then
        ChatServerSocket.Socket.Connections[i].SendBuf(y,18) ;
     end ;
end;
procedure TForm_Server_Main.E952E ;
var i , x : Integer ;
    y :array[0..17] of byte ;
begin
   y[0] := $fe ;
   y[1] := $fe ;
   y[2] := $fe ;
   y[3] := $fe ;
   y[4] := $68 ;
   y[5] := $99 ;
   y[6] := $99 ;
   y[7] := $99 ;
   y[8] := $99 ;
   y[9] := $99 ;
   y[10] := $99 ;
   y[11] := $68 ;
   y[12] := $1 ;
   y[13] := $2 ;
   y[14] := $2e + $33 ;
   y[15] := $95 + $33 ;

   x := 0 ;
   for i := 4 to 15 do
       x := x + y[i] ;

   y[16] := x mod 256 ;
   y[17] := $16 ;

   for i := 0 to ChatServerSocket.Socket.ActiveConnections - 1 do
     begin
      if ChatServerSocket.Socket.Connections[i].RemoteAddress <> clientip.Text then
        ChatServerSocket.Socket.Connections[i].SendBuf(y,18) ;
     end ;
end;

procedure TForm_Server_Main.EB61F ;
var i , x : Integer ;
    y :array[0..17] of byte ;
begin
   y[0] := $fe ;
   y[1] := $fe ;
   y[2] := $fe ;
   y[3] := $fe ;
   y[4] := $68 ;
   y[5] := $99 ;
   y[6] := $99 ;
   y[7] := $99 ;
   y[8] := $99 ;
   y[9] := $99 ;
   y[10] := $99 ;
   y[11] := $68 ;
   y[12] := $1 ;
   y[13] := $2 ;
   y[14] := $1F + $33 ;
   y[15] := $B6 + $33 ;

   x := 0 ;
   for i := 4 to 15 do
       x := x + y[i] ;

   y[16] := x mod 256 ;
   y[17] := $16 ;

   for i := 0 to ChatServerSocket.Socket.ActiveConnections - 1 do
     begin
      if ChatServerSocket.Socket.Connections[i].RemoteAddress <> clientip.Text then
        ChatServerSocket.Socket.Connections[i].SendBuf(y,18) ;
     end ;
end;
procedure TForm_Server_Main.EB33F ;
var i , x : Integer ;
    y :array[0..17] of byte ;
begin
   y[0] := $fe ;
   y[1] := $fe ;
   y[2] := $fe ;
   y[3] := $fe ;
   y[4] := $68 ;
   y[5] := $99 ;
   y[6] := $99 ;
   y[7] := $99 ;
   y[8] := $99 ;
   y[9] := $99 ;
   y[10] := $99 ;
   y[11] := $68 ;
   y[12] := $1 ;
   y[13] := $2 ;
   y[14] := $3F + $33 ;
   y[15] := $B3 + $33 ;

   x := 0 ;
   for i := 4 to 15 do
       x := x + y[i] ;

   y[16] := x mod 256 ;
   y[17] := $16 ;

   for i := 0 to ChatServerSocket.Socket.ActiveConnections - 1 do
     begin
      if ChatServerSocket.Socket.Connections[i].RemoteAddress <> clientip.Text then
        ChatServerSocket.Socket.Connections[i].SendBuf(y,18) ;
     end ;
end;

procedure TForm_Server_Main.EB34F ;
var i , x : Integer ;
    y :array[0..17] of byte ;
begin
   y[0] := $fe ;
   y[1] := $fe ;
   y[2] := $fe ;
   y[3] := $fe ;
   y[4] := $68 ;
   y[5] := $99 ;
   y[6] := $99 ;
   y[7] := $99 ;
   y[8] := $99 ;
   y[9] := $99 ;
   y[10] := $99 ;
   y[11] := $68 ;
   y[12] := $1 ;
   y[13] := $2 ;
   y[14] := $4F + $33 ;
   y[15] := $B3 + $33 ;

   x := 0 ;
   for i := 4 to 15 do
       x := x + y[i] ;

   y[16] := x mod 256 ;
   y[17] := $16 ;

   for i := 0 to ChatServerSocket.Socket.ActiveConnections - 1 do
     begin
      if ChatServerSocket.Socket.Connections[i].RemoteAddress <> clientip.Text then
        ChatServerSocket.Socket.Connections[i].SendBuf(y,18) ;
     end ;
end;

procedure TForm_Server_Main.Button4Click(Sender: TObject);
var i , x : Integer ;
    y :array[0..17] of byte ;
begin



end;

procedure TForm_Server_Main.Timer1Timer(Sender: TObject);
var i , x : Integer ;
    y,data :array[0..17] of byte ;
    str:string;
begin
   y[0] := $AA ;
   y[1] := $AA ;
   y[3] := $AA ;
     Data[0]  := $fe ;
     Data[1]  := $fe ;
     Data[2]  := $fe ;
     Data[3]  := $fe ;
     Data[4]  := $68 ;

     Data[5]  := $99 ;
     Data[6]  := $99 ;
     Data[7]  := $99 ;
     Data[8]  := $99 ;
     Data[9]  := $99 ;
     Data[9]  := $99 ;
     Data[10]  := $99 ;

     Data[11] := $68 ;
     Data[12] := $1 ;
     Data[13] := $2 ;

     Data[14] := $18 + $33 ;
     Data[15] := $c1 + $33 ;
     x:=0 ;
     for  i:= 4 to 15 do
         x := x + Data[i] ;

     Data[16] := x mod 256 ;
     Data[17] := $16 ;

   for i:=0 to 1 do
     str:=str+inttohex(y[i],2);
   if ChatServerSocket.active =true then
    begin
     loginnumber:=loginnumber+1 ;
     timercount:=timercount+1 ;
      if loginnumber>=240 then
       begin
         timercount:=0;
         loginnumber:=0;
           for i := 0 to ChatServerSocket.Socket.ActiveConnections-1  do
           begin
              ChatServerSocket.Socket.Connections[i].SendBuf(y,3) ;
           end ;
           memo1.Lines.Add('AA,AA,AA');
         for i := 0 to ChatServerSocket.Socket.ActiveConnections - 1 do
           begin
            if ChatServerSocket.Socket.Connections[i].RemoteAddress <>clientip.Text then
                ChatServerSocket.Socket.Connections[i].SendBuf(data,18) ;
           end ;
       end;
    end;
 end;
{   if loginnumber=30 then
    begin
      loginnumber:=0;

      form_server_main.Cursor :=crDefault;
      pcLearnSockets.Cursor := crDefault;
      with sgServerConnections do
       begin
         for I := 0 to High(ServerConnectionStatus) do
            begin
              with ServerConnectionStatus[I] do
                begin
                  if tcsRemoteAddress = trim(clientip.Text) then
                    ChatServerSocket.Socket.Connections[i].SendBuf(y,2) ;
                end;
              end;
            end;
        end;
    end;
 }
 {if loginnumber=1000 then
    begin
      if meterno[1]<>'' then
        begin
         for I := 0 to High(ServerConnectionStatus) do
           begin
              sgServerConnections.Cells[1 ,I+1] := '';
              sgServerConnections.Cells[2 ,I+1] := '';
              sgServerConnections.Cells[3 ,I+1] := '';
              sgServerConnections.Cells[4 ,I+1] := '';
              sgServerConnections.Cells[5 ,I+1] := '';
              sgServerConnections.Cells[7 ,I+1] := '';
              sgServerConnections.Cells[8 ,I+1] := '';
              sgServerConnections.Cells[0 ,I+1] := '';
           end;
         for x:=1 to 99 do
          begin

          if meterno[x]<>'' then
           begin
             with sgServerConnections do
              begin
                for I := 0 to High(ServerConnectionStatus) do
                begin
                 with ServerConnectionStatus[I] do
                  begin
                    if tcsRemoteAddress = meterno[x] then
                       begin
                          Cells[1 ,I+1] := IntToStr(tcsActiveConnections);
                          Cells[2 ,I+1] := tcsScreenName;
                          Cells[3 ,I+1] := tcsLocalHost;
                          Cells[4 ,I+1] := tcsLocalAddress;
                          Cells[5 ,I+1] := IntToStr(tcsLocalPort);
                          Cells[7 ,I+1] := tcsRemoteAddress;
                          Cells[8 ,I+1] := IntToStr(tcsRemotePort);
                          if (tcsServerPrivateMsg) then
                            Cells[0 ,I+1] := '(Selected)'
                          else
                            Cells[0 ,I+1] := '';
                       end;
                  end;
                end; //end for I
              end;
             end;
           end;
        end;
        loginnumber:=0;
        y[0] := $AA ;
        y[1] := $AA ;

     for i := 0 to ChatServerSocket.Socket.ActiveConnections - 1 do
       ChatServerSocket.Socket.Connections[i].SendBuf(y,2) ;
    for i:=1 to 99 do
      meterno[i]:='';
   end ; }


procedure TForm_Server_Main.Panel1CanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
 button1.Width :=panel1.Width ;
end;

procedure TForm_Server_Main.Panel2CanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
 button2.Width :=panel2.Width ;
end;

procedure TForm_Server_Main.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
 button1.Width :=memo1.Width ;
 button2.Width :=lvServerActivity.Width;
end;

procedure TForm_Server_Main.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  key:=#0 ;
end;

procedure TForm_Server_Main.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if MessageDlg('你要退出服务器程序吗?',mtWarning,[mbYes,mbNo],0)=mrNo then
  begin
    CanClose:=false;
  end;
end;

end.