Рисунок 13.2 Ammy Admin

Преимущества: простая и легкая программа, можно работать как в Интернете, так и в локальной сети, обладает минимальными настройками и не требует каких-то особых умений и навыков. По сравнения с TeamViewer более мягкая лицензионная политика.

Недостатки: минимум функций для удаленного управления, администрировать большой парк компьютеров будет сложно, при долгом использование, более 15 часов в месяц, сеанс работы может быть ограничен или заблокирован, платная для коммерческого использования.

Итог: данная программа больше подойдет для разового подключения к компьютеру и не сильно сложных манипуляциях, например в качестве оказания помощи не опытному пользователю в настройке компьютера.

Radmin, Одна из первых программ удаленного управления и известная в своем кругу, не мог ее не упомянуть, больше предназначенная для системного администрирования, основной акцент сделан на безопасности. Программа состоит из двух: компонент сервера и клиента. Требует установки, не опытному пользователю будет не просто с ней разобраться, программа предназначена в основном для работы по IP адресу, что не совсем удобно для оказания тех. поддержки через Интернет. Программа платная, но обладает бесплатным тестовым периодом.

Рисунок 13.3 Radmin

Преимущества: У программы высокая скоростью работы, особенно в хорошей сети, благодаря видео драйверу захвата рабочего стола, повышенной надежностью и безопасностью. Встроена технология Intel AMT, что позволяет подключаться к BIOS удаленного компьютера и настраивать его. Реализованы только основные режимы работы удаленное управление, передача файлов, чат и т.д.

Недостатки: Почти нет возможности для работы без IP адреса, т.е. соединяться по ID. Отсутствует клиент для мобильных систем. Нет бесплатной версии, только тестовый период 30 дней. Для работы с программой необходимы навыки опытного пользователя. При подключении видео драйвер может отключать графическую оболочку Aero, иногда мигает экран.

Итог: Программа больше подойдет для системных администраторов для администрирования компьютеров и серверов в локальной сети. Для работы через Интернет, возможно, придется настроить VPN туннель

13.2 Постановка задачи

Основной задачей курсовой работы является создание программы разработать программное обеспечение для удаленного управления компьютером.

13.3 Разработка алгоритма и программного средства ( ПС )

Интерфейс программы должен содержать быстрый доступ к основным своим функциям. Клиент и сервер необходимо разделить на разные приложения. Тем самым мы сможем контролировать удаленный доступ от наших клиентов в сети. При подключении к серверу, в серверном клиенте отображать соответствующее сообщение.

13.4 Разработка алгоритма работы ПС

Для реализации основных функций программы были использованы компаненты IdTCPClient и IdTCPServer. С помощью данных Indy модулей совершаются основные действия:

1) Подключении и отключение от клиента

2) Прием и передача данных и команд

13.5 Разработка спецификации требований к ПС

Для реализации поставленной задачи выбрана среда разработки Delphi, так как позволяет с помощью готовых объектов быстро создать интерфейс пользователя для работы в Windows.

Системные требования для Delphi 7:

Процессор: Intel Pentium 500 МГц и выше

* Оперативная память: 256 Мб и более

* Пространство на жестком диске: от 60 до 700 Мб

* Монитор: VGA или выше

Системные требования для программы, полученной в результате решения поставленной задачи:

Полученный в результате программный продукт должен работать на любом компьютере под управлением операционной системы Windows XP и выше.

13.6 Разработка структурной схемы ПС

Структурная схема изображена на рисунке 13.6.1

Рисунок 13.6.1 - Структурная схема ПС

13.7 Обоснование выбора языка и среды программирования

В последнее время резко возрос интерес к программированию. Это связано с развитием и внедрением в повседневную жизнь информационно-коммуникационных технологий. Если человек имеет дело с компьютером, то рано или поздно у него возникает желание, а иногда и необходимость, программировать.

Среди пользователей персональных компьютеров в настоящее время наиболее популярно семейство операционных систем Windows и, естественно, что тот, кто собирается программировать, стремится писать программы, которые будут работать в этих системах. Несколько лет назад рядовому программисту оставалось только мечтать о создании собственных программ, работающих в среде Windows, т. к. единственным средством разработки был Borland C++ for Windows, явно ориентированный на профессионалов, обладающих серьезными знаниями и опытом.

Бурное развитие вычислительной техники, потребность в эффективных средствах разработки программного обеспечения привели к появлению систем программирования, ориентированных на так называемую «быструю разработку», среди которых можно выделить Borland Delphi и Microsoft Visual Basic. В основе систем быстрой разработки (RAD-систем, Rapid Application Development -- среда быстрой разработки приложений) лежит технология визуального проектирования и событийного программирования, суть которой заключается в том, что среда разработки берет на себя большую часть рутинной работы, оставляя программисту работу по конструированию диалоговых окон и функций обработки событий. Производительность программиста при использовании RAD-систем -- фантастическая! Среда программирования - Delphi - весьма быстрая и удобная для разработки приложений различного назначения для Windows.

13.8 Программная реализация разработанного алгоритма работы ПС (описание основных функций)

Для использования возможностей сервера этот компонент нужно поместить на форму (компонент неотображаемый). При настройке компонента полезными являются следующие его свойства:

Active -- активизирует или деактивизирует сервер (по умолчанию False);

Bindings -- настраивает серверные сокеты (присоединяет их к определенно му порту компьютера, позволяет задавать диапазон IP-адресов и портов клиентов при помощи диалогового окна настройки свойства Binding;

ListenQueue -- численное значение, ограничивающее максимальное количество запросов на установление соединения от клиентов в очереди;

MaxConnections -- позволяет ограничить максимальное количество клиентов, присоединенных к серверу;

Теперь рассмотрим, как сконфигурировать клиент (IdTCPClient - закладка Indy Clients), чтобы он был способен взаимодействовать с нашим сервером. Чтобы использовать компонент ТСР-клиента, достаточно поместить его на форму (компонент также неотображаемый).

После этого как минимум нужно настроить следующие его свойства (остальные упоминаются по мере необходимости в приведенных далее примерах):

Host -- имя или IP-адрес компьютера, на котором запущен сервер;

Port -- номер порта, к которому присоединен серверный сокет.

Вообще, даже эти свойства на этапе разработки формы настраивать не обязательно. Приложение получается гораздо более гибким, если давать, например, пользователю возможность выбрать (или ввести) имя или адрес сервера.



Рисунок 13.1- Клиент

Рисунок 13.2- Сервер

procedure TForm1.Button1Click(Sender: TObject);

var

s: string;

begin

s:=edit1.text;

IdTCPClient1.Host:= s;

IdTCPClient1.Port:=33333;

IdTCPClient1.Connect();

end;

Серверная же часть на своей стороне смотрит когда к ней подключаются или отключатся и составляет соответствующие сообщения.

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);

begin

Label1.Caption:=Клиент подключился;

end;

procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread);

begin

Label1.Caption:='Клиент отключился';

end;

Для передачи команды через командную строку используется функция GetDosOutput.

function GetDosOutput(

CommandLine: string; Work: string = 'C:\'): string;

var

SA: TSecurityAttributes;

SI: TStartupInfo;

PI: TProcessInformation;

StdOutPipeRead, StdOutPipeWrite: THandle;

WasOK: Boolean;

Buffer: array[0..255] of Char;

BytesRead: Cardinal;

WorkDir: string;

Handle: Boolean;

begin

Result := '';

with SA do begin

nLength := SizeOf(SA);

bInheritHandle := True;

lpSecurityDescriptor := nil;

end;

CreatePipe(StdOutPipeRead, StdOutPipeWrite, @SA, 0);

try

with SI do

begin

FillChar(SI, SizeOf(SI), 0);

cb := SizeOf(SI);

dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;

wShowWindow := SW_HIDE;

hStdInput := GetStdHandle(

STD_INPUT_HANDLE); // не переадресовывать stdinput

hStdOutput := StdOutPipeWrite;

hStdError := StdOutPipeWrite;

end;

WorkDir := Work;

Handle := CreateProcess(nil, PChar('cmd.exe /C ' + CommandLine),

nil, nil, True, 0, nil,

PChar(WorkDir), SI, PI);

CloseHandle(StdOutPipeWrite);

if Handle then

try

repeat

WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);

if BytesRead > 0 then

begin

Buffer[BytesRead] := #0;

Result := Result + Buffer;

end;

until not WasOK or (BytesRead = 0);

WaitForSingleObject(PI.hProcess, INFINITE);

finally

CloseHandle(PI.hThread);

CloseHandle(PI.hProcess);

end;

finally

CloseHandle(StdOutPipeRead);

end;

end;

Получить картинку можно с помощью процедуры jpg.

procedure jpg (Connection: TIdTCPServerConnection);

var

Stream: TMemoryStream;

Desktopcanvas : TCanvas;

BitMap: TBitMap;

begin

DesktopCanvas := TCanvas.Create;

DesktopCanvas.Handle := GetDC (Hwnd_Desktop);

BitMap := TBitMap.Create;

BitMap.Width := Screen.Width;

BitMap.Height := Screen.Height;

BitMap.Canvas.CopyRect (BitMap.Canvas.ClipRect,DesktopCanvas,DesktopCanvas.ClipRect);

if not DrawIcon

(BitMap.Canvas.Handle,Mouse.CursorPos.X,Mouse.CursorPos.Y,GetCursor) then

begin end;

Stream := TMemoryStream.Create;

BitMap.SaveToStream (Stream);

Connection.WriteStream(Stream, True,True);

Stream.Clear;

Stream.Free;

BitMap.Free;

end;

За отловом текстовых сообщений следит процедура ServerSocket1ClientRead.

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

Socket: TCustomWinSocket);

begin

socket.SendText(getdosoutput(Socket.ReceiveText));

end;

end.

Как видно из кода она просто слушает наш сокет и выводит сообщение на экран.

13.9 Тестирование и отладка ПС

Так как разрабатываемый программный продукт не будет выполнять вычислений, поэтому минимальные требования к ЭВМ, на которой будет эксплуатироваться данный программный модуль следующие:

- центральный процессор - Intel Celeron 1100;

- оперативная память - 256 Mb;

- HDD - 20 Gb;

- монитор 14-19 дюймов;

- стандартная мышь;

- стандартная клавиатура;

- встроенная видеокарта;

- 100 Мбайт свободного пространства на жестком диске;

- Windows XP, Windows 7 и выше.

Рекомендуемая конфигурация системы:

- AMD ATHLON 2500 или Intel Celeron процессор и выше;

- 256 Mb оперативной памяти и выше;

- монитор SVGA с разрешением 1024x768 85Hz,

- 200 Мб свободного пространства на жестком диске;

- мышь;

- клавиатура;

- операционная система Windows XP, Windows 7 и выше;

Для корректной работы программы рекомендуется использование источника бесперебойного питания.

13.10 Руководство пользователя

Для работы с ПС неоюходимо запустить у администратора «клиент» (Рисунок 13.10.1) а на стороне клиента «сервер» (Рисунок 13.10.2).

Рисунок 13.10.1- Клиент



Рисунок 13.10.2- Сервер

После чего в клиенте ввести необходимый ip-адресс компьютера где запущен сервер и нажать на кнопку подключить. После чего можем работать с нашим набором функций.

14. Методы и средства защиты информации в сети

Основные методы защиты информации:

1 Установка препятствия - метод физического преграждения пути злоумышленнику к защищаемой информации, в т.ч. попыток с использованием технических средств съема информации и воздействия на нее;

2 Управление доступом - метод защиты информации за счет регулирования использования всех информационных ресурсов, в т.ч. автоматизированной информационной системы предприятия. Управление доступом включает следующие функции защиты:

- идентификацию пользователей, персонала и ресурсов информационной системы (присвоение каждому объекту персонального идентификатора);

- аутентификацию (установление подлинности) объекта или субъекта по предъявленному им идентификатору;

- проверку полномочий (проверка соответствия дня недели, времени суток, запрашиваемых ресурсов и процедур установленному регламенту);

- разрешение и создание условий работы в пределах установленного регламента;

- регистрацию (протоколирование) обращений к защищаемым ресурсам;

- реагирование (сигнализация, отключение, задержка работ, отказ в запросе) при попытках несанкционированных действий.

3 Маскировка - метод защиты информации с использованием инженерных, технических средств, а также путем криптографического закрытия информации.

Методы защиты информации на практике реализуются с применением средств защиты.

Принято выделять пять основных средств защиты информации: технические, программные, криптографические, организационные, законодательные.

Технические средства - защиты это механические, электромеханические, оптические, радио, радиолокационные, электронные и другие устройства и системы, способные выполнять самостоятельно или в комплексе с другими средствами функции защиты данных.

Программные средства защиты - это специальные программы, включаемые в состав программного обеспечения системы, для обеспечения самостоятельно или в комплексе с другими средствами, функций защиты данных.

Криптографические средства защиты - это методы специального шифрования данных, в результате которого их содержание становится недоступным без применения некоторой специальной информации и обратного преобразования.

Организационные средства защиты - это специальные организационно-технические и организационно-правовые мероприятия, акты и правила, осуществляемые в процессе создания и эксплуатации системы для организации и обеспечения защиты информации.

Законодательные средства защиты - это законодательные акты, которые регламентируют правила использования и обработки информации, и устанавливают ответственность, и санкции за нарушение этих правил.

Основной особенностью любой сетевой системы является то, что её компоненты распределены в пространстве и связь между ними физически осуществляется при помощи сетевых соединений (коаксиальный кабель, витая пара, оптоволокно и т. п.) и программно при помощи механизма сообщений. При этом все управляющие сообщения и данные, пересылаемые между объектами распределенной вычислительной системы, передаются по сетевым соединениям в виде пакетов обмена.

Программные средства и методы зашиты активнее и шире других применяются для защиты информации в персональных компьютерах и компьютерных сетях, реализуя такие функции защиты, как разграничение и контроль доступа к ресурсам; регистрация и анализ протекающих процессов, событий, пользователей; предотвращение возможных разрушительных воздействий на ресурсы; криптографическая защита информации; идентификация и аутентификация пользователей и процессов.

Следующая группа методов защиты от удалённых атак программно-аппаратные. К ним относятся: программно-аппаратные шифраторы сетевого трафика, методика Firewall, защищенные сетевые криптопротоколы.

В общем случае методика Firewall реализует следующие основные функции, как многоуровневая фильтрация сетевого трафика, создание приватных сетей с "виртуальными" IP-адресами и др. В нашей сети будет применяться Firewall, антивирусное программное обеспечение, программы анализа трафика, что по позволит тщательно отслеживать входные и выходные потоки данных.

Заключение

В данном курсовом проекте была спроектирована информационно-вычислительная сеть. Выбор структуры сети основывался на изначально определенных количествах узлов и схемы работы всей сети, хотя самым гланым критерием для нас была это стоимость сети, как вы могли заметить выбрано не самое лучшее сетевое оборудование, но в рамках учебного заведения, на мой взгляд, этого должно вполне хватить.

Так же в курсовом проекте разработана программа для удаленного управления компьютером написанная на языке программирования Delphi.

Все цели, которые были постелены на этапе разработки спецификации требований были выполнены.

В дальнейшем возможно улучшение программы. Усовершенствование контроля над ошибками, добавление справочной информации, добавление новых функции для контроля удаленного компьютера.

Список использованных источников

1. "Компьютерные сети. Принципы, технологии, протоколы." /Олифер, В.Г., Олифер, Н.А./ СПб.:Питер, 2008.-384c.

2. "Компьютерные сети" /Танненбаум, Э./ - СПб.:Питер, 2002. - 459c.

3. "Защита компьютерной информации". /Анин, Б./ - СПб.: БЧВ, 2000. -384c.

4. "Вычислительные системы, сети и телекоммуникации." /Пятибратов, М.Д./ - ФИС, 1998. - 279с.

5. "TCP/IP. Архитектура, протоколы, реализация." /Фейт, С., Лори, М./ СПб : БЧВ, 2010. - 562с.

6. "Сети ЭВМ: протоколы, стандарты, интерфейсы." /Блэк, Ю./ М.: Мир, 1990. - 321с.

7. "Стандарты по локальным вычислительным сетям: Справочник" /Под ред. Шерба, В.К., Киреичев, В.М., Самойленко, С.И./ М.: Радио и связь, 1990 - 356c.

8. "Проектирование распределенных информационно-вычислительных систем." / Решетняк, В.Н., Гузик, В.Ф., Сидоренко, В.Г./ Учеб. пособие. Таганрог: ТРТУ, 2006. - 284c.

Приложение А - Текст ПС

Клиент:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,

StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

IdTCPClient1: TIdTCPClient;

Button4: TButton;

Button6: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

s: string;

begin

s:=edit1.text;

IdTCPClient1.Host:= s;

IdTCPClient1.Port:=33333;

IdTCPClient1.Connect();

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

IdTCPClient1.Disconnect;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

form2.showmodal;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

form3.showmodal;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

form4.showmodal;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent,

IdTCPConnection, IdTCPClient;

type

TForm2 = class(TForm)

IdTCPClient1: TIdTCPClient;

Timer1: TTimer;

Image1: TImage;

Edit1: TEdit;

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Timer1Timer(Sender: TObject);

var

st:TMemoryStream;

begin

IdTCPClient1.Writeln('jpg');

st:=TMemoryStream.Create;

IdTCPClient1.ReadStream(st);

st.Position:=0;

Image1.Picture.Bitmap.LoadFromStream(st);

st.Clear;

st.Free;

end;

procedure TForm2.FormCreate(Sender: TObject);

var

s:string;

begin

s := Form1.Edit1.Text;

Edit1.Text:=s; //проверка

IdTCPClient1.Host:= s;

IdTCPClient1.Port:=33334;

IdTCPClient1.Connect();

end;

procedure TForm2.Image1Click(Sender: TObject);

begin

Timer1.Enabled:=True;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,

IdTCPClient;

type

TForm3 = class(TForm)

Label1: TLabel;

Memo1: TMemo;

Button1: TButton;

Edit1: TEdit;

IdTCPClient1: TIdTCPClient;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);

var

s:string;

begin

s:=form1.edit1.Text;

Memo1.Text:='';

IdTCPClient1.Host:= s;

IdTCPClient1.Port:=33333;

IdTCPClient1.Connect();

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

IdTCPClient1.WriteLn(memo1.Text);

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ScktComp;

type

TForm4 = class(TForm)

ClientSocket1: TClientSocket;

Memo1: TMemo;

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

procedure FormCreate(Sender: TObject);

procedure ClientSocket1Connect(Sender: TObject;

Socket: TCustomWinSocket);

procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;

ErrorEvent: TErrorEvent; var ErrorCode: Integer);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);

var

s:string;

begin

s:=Form1.Edit1.Text;

Memo1.Text:='';

Edit1.Text:=s; // для проверки

ClientSocket1.Host:=s;

ClientSocket1.Port:=33335;

ClientSocket1.Active:=True;

end;

procedure TForm4.ClientSocket1Connect(Sender: TObject;

Socket: TCustomWinSocket);

begin

form1.caption:='connect';

end;

procedure TForm4.ClientSocket1Error(Sender: TObject;

Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;

var ErrorCode: Integer);

begin

ErrorCode:=0;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

ClientSocket1.Socket.SendText(Edit1.Text);

end;

end.

Сервер:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, IdBaseComponent, IdComponent, IdTCPServer, StdCtrls, TlHelp32,

ScktComp;

type

TForm1 = class(TForm)

IdTCPServer1: TIdTCPServer;

Label1: TLabel;

IdTCPServer2: TIdTCPServer;

Label2: TLabel;

ServerSocket1: TServerSocket;

procedure IdTCPServer1Execute(AThread: TIdPeerThread);

procedure FormCreate(Sender: TObject);

procedure IdTCPServer1Connect(AThread: TIdPeerThread);

procedure IdTCPServer1Disconnect(AThread: TIdPeerThread);

procedure IdTCPServer2Connect(AThread: TIdPeerThread);

procedure IdTCPServer2Disconnect(AThread: TIdPeerThread);

procedure IdTCPServer2Execute(AThread: TIdPeerThread);

procedure ServerSocket1ClientError(Sender: TObject;

Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;

var ErrorCode: Integer);

procedure ServerSocket1ClientRead(Sender: TObject;

Socket: TCustomWinSocket);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

function GetDosOutput(

CommandLine: string; Work: string = 'C:\'): string;

var

SA: TSecurityAttributes;

SI: TStartupInfo;

PI: TProcessInformation;

StdOutPipeRead, StdOutPipeWrite: THandle;

WasOK: Boolean;

Buffer: array[0..255] of Char;

BytesRead: Cardinal;

WorkDir: string;

Handle: Boolean;

begin

Result := '';

with SA do begin

nLength := SizeOf(SA);

bInheritHandle := True;

lpSecurityDescriptor := nil;

end;

CreatePipe(StdOutPipeRead, StdOutPipeWrite, @SA, 0);

try

with SI do

begin

FillChar(SI, SizeOf(SI), 0);

cb := SizeOf(SI);

dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;

wShowWindow := SW_HIDE;

hStdInput := GetStdHandle(

STD_INPUT_HANDLE); // не переадресовывать stdinput

hStdOutput := StdOutPipeWrite;

hStdError := StdOutPipeWrite;

end;

WorkDir := Work;

Handle := CreateProcess(nil, PChar('cmd.exe /C ' + CommandLine),

nil, nil, True, 0, nil,

PChar(WorkDir), SI, PI);

CloseHandle(StdOutPipeWrite);

if Handle then

try

repeat

WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);

if BytesRead > 0 then

begin

Buffer[BytesRead] := #0;

Result := Result + Buffer;

end;

until not WasOK or (BytesRead = 0);

WaitForSingleObject(PI.hProcess, INFINITE);

finally

CloseHandle(PI.hThread);

CloseHandle(PI.hProcess);

end;

finally

CloseHandle(StdOutPipeRead);

end;

end;

procedure jpg (Connection: TIdTCPServerConnection);

var

Stream: TMemoryStream;

Desktopcanvas : TCanvas;

BitMap: TBitMap;

begin

DesktopCanvas := TCanvas.Create;

DesktopCanvas.Handle := GetDC (Hwnd_Desktop);

BitMap := TBitMap.Create;

BitMap.Width := Screen.Width;

BitMap.Height := Screen.Height;

BitMap.Canvas.CopyRect (BitMap.Canvas.ClipRect,DesktopCanvas,DesktopCanvas.ClipRect);

if not DrawIcon (BitMap.Canvas.Handle,Mouse.CursorPos.X,Mouse.CursorPos.Y,GetCursor) then

begin end;

Stream := TMemoryStream.Create;

BitMap.SaveToStream (Stream);

Connection.WriteStream(Stream, True,True);

Stream.Clear;

Stream.Free;

BitMap.Free;

end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);

var

mes,a:string;

begin

mes:=AThread.Connection.ReadLn(); // сообщение

ShowMessage(mes);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

IdTCPServer1.Active:= True;

IdTCPServer2.Active:= True;

end;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);

begin

Label1.Caption:=' лиент подсоединилс¤';

end;

procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread);

begin

Label1.Caption:=' лиент отключилс¤';

end;

procedure TForm1.IdTCPServer2Connect(AThread: TIdPeerThread);

begin

Label2.Caption:=' лиент подсоединилс¤'

end;

procedure TForm1.IdTCPServer2Disconnect(AThread: TIdPeerThread);

begin

Label2.Caption:=' лиент отключилс¤';

end;

procedure TForm1.IdTCPServer2Execute(AThread: TIdPeerThread);

var

a:string;

begin

a := AThread.Connection.ReadLn(); // картинка

if a ='jpg' then

begin

jpg (AThread.Connection);

end;

if AThread.Connection.ReadLn=('cmd1') then

end;

procedure TForm1.ServerSocket1ClientError(Sender: TObject;

Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;

var ErrorCode: Integer);

begin

ErrorCode:=0;

end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

Socket: TCustomWinSocket);

begin

socket.SendText(getdosoutput(Socket.ReceiveText));

end;

end.

Размещено на Allbest.ru

...