Май - Xakep Online

coding
Несколько слов о формате PNG
В 1978 году израильские исследователи
Яков Зив (Jacob Ziv) и Абрам
Лемпел (Abraham Lempel) изобрели
новый алгоритм компрессии данных
без потерь, названный LZ78. Публикация
алгоритма была открытой, любой
человек мог взять и использовать его
для своих целей, и в 1987 году сотрудник
компании CompuServe Боб Берри
(Bob Berry) разработал на основе LZW
новый формат хранения изображений
— Graphic Interchange Format (GIF). В
декабре 1994 года было объявлено, что
за использование алгоритма LZ78 нужно
выплачивать лицензионные отчисления
разработчикам. Таким образом, использование
формата GIF стало платным.
После этого была создана рабочая
группа под руководством Томаса Боутела
(Thomas Boutell), которая решала задачу
по разработке альтернативы GIF. Новый
формат получил название PNG (Portable
Network Graphics).
Активизация сервера
IdTCPServer1.Bindings.Add;
IdTCPServer1.Bindings.Items[0].
IP:=IPadress.Text;
IdTCPServer1.Bindings.Items[0].Port:=StrToI
nt(PortNumber.Text);
IdTCPServer1.Active:=true;
рисунке. Во время обращения к серверу каждый
клиент создает свой собственный поток.
Информация о нем содержится в переменной
AThread, из которой мы читаем присланную
команду с помощью функции ReadLn. Далее с
помощью функции SameText мы осуществляем
проверку того, является ли присланная команда
разрешенной. Затем создаем поток и через
Сервер удаленного администрирования
в действии
него передаем файл клиенту, после чего рвем
соединение, так как запрошенное действие
выполнено.
Проектируем и пишем клиентскую часть
Я уже чувствую нетерпение, с которым ты
хочешь приступить к тестированию разработанной
тобой утилиты. Конечно, хочется
расслабиться, откинувшись на спинку кресла
(копирайт на эту фразу по-прежнему находится
у инсталлятора Windows 98) и, никуда не бегая,
решать (или создавать) все проблемы пользователей
удаленно. Вот и отлично! Нам остался
последний рывок — разработка клиентской
части.
Создай новое приложения, не забыв при этом
сохранить старое. Размести на форме следующие
компоненты:
• TIdTCPClient (закладка Indy Servers) — с помощью
него ты будешь соединяться с сервером
и посылать ему команды;
• TGroupBox и в нем — два TEdit — в TEdit'ы
ты в дальнейшем введешь IP-адрес сервера
и номер порта, по которому будет происходить
соединение;
• четыре TButton с текстом «Скриншот»,
«Просмотр», «Управление», «Сообщение 'ПОРА
РАБОТАТЬ!'», назови кнопки B_GetScr, B_Watch,
B_Control, B_Message соответственно.
• TCheckBox с текстом «Полноэкранный
режим»;
• два TTimer — один будет использоваться
Внешний вид формы
для работы в режиме просмотра удаленного
рабочего стола, а второй — для работы в режиме
управления; у обоих компонентов свойство
Enabled установи в False, а свойство Interval
сделай равным 400 — это частота обновления
картинки экрана сервера и посылки серверу
команд, заданная в миллисекундах;
• TImage — в нем будет отображаться картинка с
удаленного рабочего стола.
Приступаем к работе. Для кнопки «Скриншот»
создай следующий обработчик:
procedure TForm1.B_
GetScrClick(Sender: TObject);
var
s:TFileStream;
Bitmap: TBitmap;
PNG: TPNGObject;
begin
//Подключаемся к серверу
connect_to_server;
//Посылаем серверу команду
«get_screen»
IdTCPClient1.WriteLn('get_
screen ');
with IdTCPClient1 do
begin
if FileExists('C:\s.png') then
DeleteFile('C:\s.png');
//Создаем поток
s := TFileStream.Create('C:\
«Принцип работы этой программы может
быть положен в основу сервисовскриншутеров,
призванных начальством
следить за своими сотрудниками.
Стоимость таких программ достигает
сотен долларов»
/ 122
xàêåð 05 /101/ 07