Валерий Борисок - Delphi. Трюки и эффекты
- Название:Delphi. Трюки и эффекты
- Автор:
- Жанр:
- Издательство:неизвестно
- Год:неизвестен
- ISBN:нет данных
- Рейтинг:
- Избранное:Добавить в избранное
-
Отзывы:
-
Ваша оценка:
Валерий Борисок - Delphi. Трюки и эффекты краткое содержание
«Delphi. Трюки и эффекты», как и все издания данной серии, адресована тем, кто хочет научиться делать с помощью уже знакомых программных пакетов новые, интересные вещи. В первой части книги многое говорится о среде разработки Delphi (самых последних версий) и программировании на языке Object Pascal. Благодаря этому издание подходит и новичкам, и начинающим программистам. Вторая (основная) часть книги описывает удивительные возможности, скрытые в языке, и на примерах учит читателя программистским фокусам – от «мышек-невидимок» и «непослушных окон» до воспроизведения МРЗ и управления офисными программами Word и Excel из приложений Delphi. Купив эту книгу, вы пройдете непростой путь к вершинам программистского мастерства весело и интересно.
Delphi. Трюки и эффекты - читать онлайн бесплатно ознакомительный отрывок
Интервал:
Закладка:
Все, теперь можно запускать сервер и клиенты (на произвольном количестве компьютеров) и понаблюдать за результатами их работы. Только не забудьте запустить сервер до того, как будете обращаться к нему с помощью программы-клиента.
11.3. Слежение за компьютером по сети
Теперь рассмотрим более интересный пример использования сетевых компонентов IdTCPServerи IdTCPQient,который может быть полезен для людей, имеющих отношение к администрированию компьютеров сети.
Серверная программа предварительно запускается на наблюдаемом компьютере. В этом примере программа-сервер позволяет клиентской программе получать следующие сведения о компьютере, на котором она (программа-сервер) запущена:
• разрешение монитора;
• глубину цвета для монитора;
• полноразмерную копию экрана;
• копию экрана, уменьшенную (или увеличенную) до заданных размеров.
Для получения указанных сведений программа-клиент должна послать серверу следующие строковые значения:
• get_screen_width – для получения ширины и get_screen_height – для получения высоты экрана в пикселах;
• get_screen_colors – для получения значения установленной для монитора глубины цвета (бит на точку);
• get_screen – для получения полноразмерной копии экрана;
• get_screen: X, Y – для получения копии экрана, приведенной к размеру Хх Y.
Сначала рассмотрим реализацию сервера (проект SpyServer). Весь код, обеспечивающий работу сервера, помещен в модуле Unitl. pas формы Forml.Обработчик запросов клиентов – главная процедура для сервера – приводится в листинге 11.3.
Листинг 11.3.
Обработчик клиентских запросов
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
strText: string;
width, height, i: Integer;
dc: HDC;
begin
//Принимаем от клиента строку
strText := AThread.Connection.ReadLn;
//Определяем, что нужно выполнить
if (strText = \'get_screen_height\') then
//Возвратим высоту экрана
Athread.Connection.WriteInteger(Screen.Height)
else if (strText = \'get_screen_width\') then
//Возвратим ширину экрана
Athread.Connection.WriteInteger(Screen.Width)
else if (strText = \'get_screen_colors\') then
begin
//Возвратим количество бит на точку
dc := GetDC(0);
Athread.Connection.WriteInteger(GetDeviceCaps(dc,
BITSPIXEL));
ReleaseDC(0, dc);
end
else if (strText = \'get_screen\') then
//Возвратим полноразмерную копию экрана
SendScreen(Screen.Width, Screen.Height, AThread.Connection)
else begin //строка вида \'get_screen:x,y\'
//Определим значения высоты и ширины,
//переданные пользователем
strText := Copy(strText, 12,Length(strText)-11);
i := Pos(\',\', strText); //Положение запятой
width := StrToInt(Copy(strText, 1, i-1));
height := StrToInt(Copy(strText, i+1, Length(strText)-i));
//Возвратим копию экрана
SendScreen(width, height, AThread.Connection);
end;
end;
Используемая в листинге 11.3 процедура SendScreen, отправляющая клиенту копию экрана, приведена в листинге 11.4.
Листинг 11.4.
Снятие копии экрана
//Процедура снимает копию экрана, приводит полученное
//изображение к заданному размеру и отправляет
//преобразованное изображение клиентской программе
procedure SendScreen(width: Integer; height: Integer;
Connection: TIdTCPServerConnection);
var
ScreenCopy: TCanvas;
gr: TBitmap;
stream: TMemoryStream;
rcDest, rcSource: TRect;
begin
rcDest := Rect(0, 0, width, height); //Конечный размер
//изображения
rcSource := Screen.DesktopRect; //Исходный размер
//изображения
//Создаем канву и присоединяем ее к контексту Рабочего стола
ScreenCopy := TCanvas.Create;
ScreenCopy.Handle := GetDC(0);
//Создаем объект для хранения копии экрана
//и копируем изображение
gr := TBitmap.Create;
gr.Height := height;
gr.Width := width;
gr.Canvas.CopyRect(rcDest, ScreenCopy,rcSource);
ReleaseDC(0, ScreenCopy.Handle);
//Сохраняем изображение в поток данных
stream := TMemoryStream.Create;
gr.SaveToStream(stream);
//Отправляем изображение клиенту
Connection.WriteStream(stream,True,True);
stream.Clear;
stream.Free;
gr.Free;
end;
Как можно увидеть, даже самая сложная операция рассматриваемого сервера копирование изображения – реализуется довольно просто благодаря наличию такого стандартного класса, как TMemoryStream.
При реализации сервера использован таймер. Он применен для скрытия формы сервера сразу при запуске приложения (не забудьте установить значения его свойств Enabled = True и Interval = 50). Компонент IdTCPServer(с именем IdTCPServerl) в этом примере присоединен к порту 12341 (не забудьте также установить свойство Active = True).
Теперь о реализации клиентского приложения (проект SpyClient). Внешний вид формы (Forml)клиента во время работы приводится на рис. 11.5 (видно, что пользователь наблюдаемого компьютера только что проиграл в игру Сапер).
Рис. 11.5. Внешний вид клиента слежения
Описания, имена и значения настроенных вручную свойств самых важных компонентов формы клиента приведены в табл. 11.1. Таблица 11.1.Основные компоненты формы клиента слежения и их свойства
Работа клиентского приложения начинается с соединения с сервером. Код, отвечающий за эту операцию, приведен в листинге 11.5.Листинг 11.5. Соединение с сервером
procedure TForm1.cmbConnectClick(Sender: TObject);
begin
if (cmbConnect.Caption = \'Подключиться\') then
begin
if (txtServer.Text = \'\') then
//Не введено имя сервера
MessageDlg(\'Введите имя машины-сервера в текстовое поле\',
mtInformation, [mbOK], 0)
else begin
//Подключаемся к серверу
IdTCPClient1.Host := txtServer.Text;
try
IdTCPClient1.Connect;
except
MessageDlg(\'Не удается соединиться с указанным сервером\',
mtError, [mbOK], 0);
Exit;
end;
end
end
else begin
//Отключаемся от сервера
IdTCPClient1.Disconnect;
end;
end;
Если соединение с сервером произошло успешно, то выполняется обработчик TForml. IdTCPClientlConnected, подготавливающий приложение-клиент к периодическим запросам данных с сервера (листинг 11.6).
Листинг 11.6.
Действия, выполняемые при соединении с сервером
procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
txtServer.Enabled := False;
cmbConnect.Caption := \'Отключиться\
//Начинаем периодически запрашивать данные с сервера
Timer1.Enabled := True;
//Выполним первый запрос, не дожидаясь срабатывания таймера
Timer1Timer (Nil);
end;
При отсоединении от сервера также выполняются действия, прекращающие периодические запросы данных и переводящие клиент в состояние ожидания подключения (первоначальное состояние программы) (листинг 11.7).
Листинг 11.7.
Действия при отсоединении от сервера
Интервал:
Закладка:
