?? unit_server_main.pas
字號(hào):
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('你要退出服務(wù)器程序嗎?',mtWarning,[mbYes,mbNo],0)=mrNo then
begin
CanClose:=false;
end;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -