unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, StdCtrls, Menus, IdComponent, IdTCPServer,
IdCustomHTTPServer, IdHTTPServer, ComCtrls, Clipbrd;

type
TForm1 = class(TForm)
IbAddConnect: TListBox;
Status: TStatusBar;
Server: TIdHTTPServer;
PopupMenu1: TPopupMenu;
MMenu: TMainMenu;
N1: TMenuItem;
mStart: TMenuItem;
mStop: TMenuItem;
Close: TMenuItem;
cmCopy: TMenuItem;
cmClearAll: TMenuItem;
procedure mStartClick(Sender: TObject);
procedure mStopClick(Sender: TObject);
procedure ServerConnect(AThread: TIdPeerThread);
procedure cmCopyClick(Sender: TObject);
procedure cmClearAllClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.mStartClick(Sender: TObject);
begin
Server.Active:=True;
IbAddConnect.Items.Add('Server On'+FormatDateTime('hh.mm.ss',now));
Status.Panels[0].Text:='Monitor ne rabotaet';
mStart.Enabled:=True;
mStop.Enabled:=False;
end;

procedure TForm1.mStopClick(Sender: TObject);
begin
Server.Active:=False;
IbAddConnect.Items.Add('Server Ostanovlen'+FormatDateTime('hh.mm.ss',now));
Status.Panels[0].Text:='Monitor ne rabotaet';
mStart.Enabled:=True;
mStop.Enabled:=False;
end;

procedure TForm1.ServerConnect(AThread: TIdPeerThread);
begin
IbAddConnect.Items.Add('vnimaniya, obnarujen connect:');
//IbAddConnect.Items.Add(Athread.Connection.Binding. PeerIP);//Вот с этим не знаю... С Indy Вообще не работал...
//ВindingS существует только в Server
//Athread.Connection.Server.Bindings <--

end;;

procedure TForm1.cmCopyClick(Sender: TObject);
var Bo: TClipboard;//Требует подключения модуля Clipbrd
begin
Bo:=TClipboard.Create;
Bo.SetTextBuf(pchar(IbAddConnect.Items.Strings[IbAddConnect.ItemIndex]));
end;

procedure TForm1.cmClearAllClick(Sender: TObject);
begin
//IbAddConnect.ItemHeight.Clear;
//ПРОЩЕ!! =)
IbAddConnect.Clear;
end;

end.

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...