книги хакеры / журнал хакер / 110_Optimized

Сложнее дело обстоит с управляющими клавишами, например со стрелками, поскольку на разных телефонах коды для них запрограммированы разные. Чтобы решить эту проблему, используется специальная функция KeyToAction(), преобразующая числовой код в специальный action-код. В качестве результата возвращается одна из следующих констант: GA_NONE, GA_UP, GA_DOWN, GA_LEFT, GA_RIGHT, GA_FIRE, GA_GAMEA, GA_GAMEB, GA_GAMEC, GA_GAMED.

Для закрепления материала я бы посоветовал написать простую спрайтовую игрушку. В качестве примерчика я написал программу по динамическому управлению буквой «О» на экране, ее листинг ты сможешь найти на диске. Обрати внимание, вся логика заключена в цикле repeat — until. Условием выхода является нажатие на кнопку <0>. После каждой интеграции цикла происходит полная перерисовка экрана. Сначала с помощью команды SetColor() белый цвет устанавливается в качестве текущего, затем вызов FillRect() приводит к отчистке экрана, ну а уже потом осуществляется вывод нужной нам информации в заданных координатах.

Мультимедиа

Мы можем использовать в своей программе картинки формата PNG и звуки в формате MID. Для этого их сначала нужно подгрузить как ресурсы, для чего мы воспользуемся пунктом меню Project\Import resource file. Все подключенные к проекту файлы находятся на закладке Files, расположенной в правой части окна MIDLetPascal.

Работа с картинкой осуществляется следующим образом:

1)объявляем переменную типа image (напри-

мер, I:image);

2)загружаем в нее картинку с помощью имени файла (например, I:=LoadImage(‘icon.png’));

3)рисуем картинку в заданных координатах

1)вызываем функцию OpenPlayer(имя файла MID, ‘audio/midi’);

2)если музыка будет использоваться в качестве фона, то вызываем команду SetPlayerCount(-1), чтобы файл игрался бесконечно;

3)запускаем проигрывание посредством команды StartPlayer.

Среда разработки MIDletPascal

Чтение с клавиатуры

Для работы с клавиатурой телефона (если ее, конечно, можно так назвать),

предназначены две функции: GetKeyPressed() и GetKeyClicked(). Первая возвращает код нажатой клавиши, вторая — код последней нажатой клавиши. Для удобства в MIDletPascal для этих кодов определены константы (последний символ характеризует цифру на клавише) .

Константы и их назначение

Формы

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

FormAddTextField()— текстовое поле, FormAddImage()— картинка,

FormAddGauge()— элемент для отображения прогресса чего-либо,

FormAddChoice()— переключатель, AddCommand()— кнопка.

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

«Теперь у тебя есть вся информация для написания утилиты, которая будет отсылать sms на заранее заданный номер»

Приступим

Теперь у тебя есть вся информация для написания утилиты, которая будет отсылать sms на заранее заданный номер. Обрати свой зоркий взгляд на врезку с заманчивым названием, немного подумай над кодом. Подумал?

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

Сначала создается форма, на которой размещены два поля и кнопка ОК. Первое поле предназначено для ввода текста sms, а второе — для номера

dvd

На компакт-диске лежат полные исходные коды примеров программ, рассмотренных в статье, а также дистрибутив

MIDLetPascal и

эмулятора MidpX.

абонента, которому будет произведена отправка. Функция отправки sms называется smsStartSend(), в качестве первого параметра ей передается номер телефона, в начале которого обязательно ставится префикс sms://. Вторым параметром идет само сообщение. На форумах я встречал жалобы на то, что русский язык якобы приходит кракозябрами. Однако мной этой проблемы выявлено не было, видимо, затруднения бывают у определенных операторов связи. Следующее действие

—обращение к функции SmsIsSending, которая возвращает True, пока идет отправка sms. Именно поэтому в этом месте организуется цикл while. Последнее, что ты должен сделать,

—это вызвать функцию SmsWasSuccessfull для проверки факта успешной отправки короткого сообщения.

Стоит отметить одно важное но: эта программа будет работать не на всех мобильниках. Не очень приятно, но факт: я тестировал ее на Nokia 6131 — выполнялась на ура, а вот на Fly SL500m тесты закончились совершенно безрадостно.

Послесловие

Безусловно, MIDLetPascal — удобная штука для написания простейших приложений для мобильных телефонов. Хороша она и для того, чтобы со временем безболезненно перейти на что-то более серьезное, например Java, поскольку рано или поздно ты все равно столкнешься с ограничениями мобильного Паскаля. А они налицо: невозможность сохранять

данные, ограниченная работа с файлами, отсутствие способа получения доступа непосредственно к самому телефону. Конечно, можно попытаться выкрутиться, например, я видел программу, которая подключает класс, написанный на Java, и тем самым появляется возможность работать с видеороликами, записанными камерой телефона, но это все равно не решает главной проблемы — жестких рамок самого языка. Надеюсь, что дальнейшее развитие MIDLetPascal откроет перед программистами новые возможности, и думаю, на это стоит реально рассчитывать, так как рост интереса к этому средству разработки постоянно растет. z

Полезные

ресурсы

www.Boolean.name—здесьможнонайтифорум«Про- граммированиеигрдлямобильныхтелефонов»; http://piligrim.at.tut.by/java/mp.html—полезныйресурс дляпрограммистаMIDLetPascal;

www.playmobile.ru—всеомобильныхиграх; http://mobicraft.sourceforge.net—ссылкадляпоклонни-

ковStarCraft,здесьтынайдешьеемобильныйвариант.

Spider_NET

/ antonov.igor.khv@gmail.com /

КуримпротоколIRC

Протокол IRC документирован в RFC под номером 1459. Для написания полноценного IRC-клиента я рекомендую тебе прочитать этот документ от корки до корки. Полная поддержка протокола твоей программой заслужит уважения у бывалых пользователей IRC.

Подключаемся

Для подключения к IRC-серверу нам необходимо знать адрес сервера и порт. IRC-сервер обычно прослушивает несколько портов, а выбор

конкретного порта зависит от кодировки. Например, если ты хочешь юзать Windows 1251, то в большинстве случаев нужно будет выбирать порт 6667.

Следующим шагом после установки соединения с сервером будет отправление информации о себе с помощью команд NICK и USER. Синтаксис их выглядит так:

NICK твой ник

USER параметры

В качестве параметров могут быть: логин, название хоста, название сервера, реальное имя. Сразу рассмотрим реальный пример. После соединения с IRC-сервером irc.dal.net отправляем примерно следующее:

mIRC успешно установил соединение

NICK Spider_NET

USER "inbox.ru (можно указать свой IP или любой хост)" "irc.dal.net": Antonov Igor

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

На скрине ты видишь уже отформатированные сообщения. В чистом виде все сообщения содержат дополнительную информацию: префикс, код сообщения и т.д. Префиксом сообщений является знак двоеточия «:». Кодов сообщений достаточно много, поэтому я расскажу лишь о тех, которые необходимы для написания рабочего примера. Описание остальных ты можешь взять из RFC, который ждет тебе на нашем DVD.

Не все сообщения от сервера содержат цифровые коды. Некоторые сообщения сервер шлет в виде «<ник>~<хост><команда><параметры>». Чтобы правильно обработать такие сообщения, тебе необходимо знать базовые команды. Наиболее часто используемые я перечислил в табличке с одноименным названием.

WinSock API

Впрошлойстатье(онаписанииproxy-сервера)мыиспользовалисокетыв блокирующемрежиме.Кактыужезнаешь,вэтомслучаеприложениепри выполнениикакой-либосетевойфункциизамираетинереагируетнадейс- твияпользователя.Втотразяизбавилсяотблокировокпутемвынесения кодавотдельныепотоки.Сегодняможнобылобыпоступитьтакимжеобразом,нояхочупоказатьтебе,какработатьссокетами,используясобытийную модельWindows.Такойспособизбавляетотсозданияпотоковиделаеткод болеечитабельным(принаписаниипростыхклиентскихприложенийэто идеальныйвариант).ВреализациисобытийдлясетевыхфункцийWindows нетничегосложного.ДляработыссобытиямивнабореWinSockAPIесть функцияWSAAsyncSelect,котораяописываетсяследующимобразом.

function WSAAsyncSelect (s:TSocket; HWindow: HWND; wMSG: u_int; lEvent: longInt):Integer; stdcalll;

Функция принимает четыре параметра: 1) s— сокет, события которого мы будем мониторить; 2) hWindow— окно, которое будет принимать события; 3) wMSG— сообщение, которое нужно генерировать. 4) lEvent— список событий, которые необходимо мониторить.

С первыми двумя параметрами я думаю все ясно, а вот третий и четвертый требуют отдельного пояснения. Итак, в третьем параметре необходимо определить сообщение, которое будет отправляться указанному во втором параметре окну при возникновении любого события, определенного в четвертом параметре. Сообщение может иметь любое имя, а значение должно быть WM_USER+1 — это свободное число, которым можно обоз-

Завсегдатаи канала #xakep

начить новое сообщение. Конечно, вместо WM_USER+1 можно указать любое число, но не факт, что в ОС уже не используется сообщение с таким номером. Итак, сообщение, на которое наше приложение будет реагировать, определено. Но в каких случаях его нужно посылать окну? Вот эти самые случаи и определяются в четвертом параметре. В нем нам нужно перечислить список все интересующих нас событий. В качестве значений могут быть:

FD_READ— на сокет пришли данные, которые можно читать; FD_WRITE— сокет готов передавать данные;

FD_ACCEPT— получен запрос на соединение; FD_CONNECT— соединение с сервером установлено; FD_CLOSE— сокет закрыт;

FD_OOB— сокет получил срочные данные.

function socket (af:integer; type:integer; protocol: integer):TSocket, stdcall;

Перед тем как соединиться с удаленным узлом, необходимо создать сокет. Для этого нужно использовать функцию socket(). Входных параметров три: 1) af — семейство протоколов; нам потребуется лишь TCP, поэтому будем указывать AF_INET; 2) type — тип создаваемого сокета, может быть Sock_ stream (для протокола TCP/IP) и sock_dgram (UDP); 3) protocol — протокол,

для TCP нужно указать IPPROTO_TCP. Результатом выполнения будет новый сокет. Создав сокет, можно пробовать подключиться. Для этого в библиотеке реализована функция Connect.

function Connect (S:TSocket; var name:TSockAddr; namelen:integer):Integer:stdcall;

Параметрами для функции служат: 1) s— socket, созданный функцией socket; 2) name— структура SockAddr, содержащая данные, необходимые для подключения (протокол, адрес удаленного компьютера, порт); 3) namelen— размер структуры типа TSockAddr.

Структура TSockAddr выглядит так:

TSockAddrIN = sockaddr_in; SockAddr_in = record

sin_family: u_short; //семейство протоколов sin_port: u_short; //порт, с которым нужно будет ус

тановить соединение

sin_addr: TInAddr; //структура, в которой записана информация об адресе удаленного компьютера

sin_zero: array[0..7] of Char; //совмещение по длине структуры sockaddr_in с sockaddr и наоборот.

end;

function recv (s:TSocket, var Buf; len:integer; flags: integer):Integer;stdcall;

Параметры для обеих функций одинаковые: 1) s — сокет, на который нужно отправить (или принять) данные; 2) buf — буфер с данными для отправки (приема); 3) len — размер передаваемых (принимаемых) данных; 4) flags

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

function CloseSocket(s:TSocket):integer;stdcall;

Функция служит для закрытия сокета, переданного в качестве одногоединственного параметра.

Кодим IRC-клиент

Для начала давай сварганим интерфейс будущей программы. Накидай на форму следующие компоненты:

1.Пять штук TEdit.

2.Четыре кнопки.

3.Один TListBox.

4.Один TMemo.

Слепи из этих компонентов интерфейс на свой вкус. Мой вариант можешь увидеть на рисунке.

Дизайн готов, а раз так, то пора переходить к самому интересному — к программированию. Для начала научимся соединяться с сервером. Создай обработчик события OnClick для кнопки «Подключить» и напиши в нем всего лишь одну строчку:

ConnectToIrc(ServerEdit.Text,

StrToInt(PortEdit.Text));

Процедуре ConnectToIrc нужно передать два параметра: адрес IRC-сервера и порт. Эти данные вводятся пользователем в соответствующие поля ввода. Процедура ConnectToIrc() нигде не описана, поэтому придется ее описать самостоятельно. Код процедуры приведен чуть ниже. Начинай переписывать код, а я расскажу, что в нем происходит.

_Client := Socket(PF_INET, SOCK_STREAM, IPPROTO_IP);

if (_Client) = INVALID_SOCKET then Exit;

Connect(_Client, _client_addr, sizeof(_client_addr));

WSAAsyncSelect(_client, handle, WM_MYMESSAGE, FD_READ+FD_CLOSE);

SendToSocket(_client, 'NICK '+ NickEdit.Text+'.'+#10);

SendToSocket(_client, 'USER ' +

Copy(EmailEdit.Text, 1, pos('@', EmailEdit.Text)-1) + ' "'+

Copy(EmaiLEdit.Text, pos('@', EmailEdit.Text)+ 1, length(EmailEdit.Text)) + '""'+server + '" : ' + NickEdit.Text + #10);

Первое, что необходимо сделать для соединения с удаленным сервером,

— это создать сокет. Делается это с помощью функции socket(). Мы уже неоднократно ее использовали, поэтому пояснять я не буду. Успешно создав сокет, нужно заполнить структуру типа sockaddr_in, которая содержит данные, необходимые для подключения (семейство протоколов, порт, адрес). После заполнения структуры вызываем функцию Connect(), а после установки соединения можно будет приступить к слежке за сетевыми событиями, возникающими на нашем сокете. Для этого я вызываю уже известную тебе функцию WSAAsyncSelect. В качестве окна (второй параметр), которое будет принимать сообщения, я устанавливаю handle (то есть нашу форму), в третьем параметре указываю сообщение WM_MYMESSAGE (константа), а события (четвертый параметр) опреде-

ляю как FD_READ+FD_CLOSE.

Соединение установлено, мониторинг событий включен — пора отправлять серверу первые команды. Для отправки любого текста я использую самописную процедуру SendToSocket(). Я не буду приводить ее код, поскольку в нем нет ничего сложного, да и на случай непредвиденных ситуации в твоем распоряжении наш DVD, где есть полный исходник. Лучше я расскажу о процессе обработки сообщения WM_MYMESSAGE. Для этого в разделе private я объявил новую процедуру следующим образом:

procedure MyMessage(var M:TMessage); message WM_ MYMESSAGE;

Эта процедура будет вызываться каждый раз, когда форма будет получать указанное после ключевого слова message сообщение. В теле процедуры мы должны проверять переменную LParam объекта TMessage. Проверка выглядит так:

Форма программы

case M.LParam of

FD_READ: readFromSocket(M.WParam); FD_CLOSE: CloseSocket(M.WParam); end;

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

передать сокет, из которого надо читать данные. Сокет, на котором сработало событие, находится в переменной WParam объекта TMessage. Получив данные, их нужно разобрать. Для разбора я написал простенькую процедуру

ParseCommand(s:string) (смотри врезку).

ВсяпроцедурасостоитизодногосплошногоIF.Например,еслиполучен- ныйтекстсодержитстроку«PRIVMSG»,этозначит,кто-тоизпользователей отправилсообщение,поэтомунамничегонеостается,кромекакпопытаться определитьотправителя.Изначальнотекстотсерверавыглядитпримерно так:«:Spider_NET!~spider_ne@ws.clnt.kht.ruPRIVMSG#xakep.ru:TEST#$D».

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

внужномнамвиде.Например,выделениеизэтойстрокиникапроисходиттак:

_senderNick := сopy(s, 2, pos('!', s)-2);

Парсим полученныеданные

Procedure ParseCommand(s:string) var

command:string; _senderNick:string; _senderMess:string; _user:string; i:integer;

begin

if (pos('PRIVMSG', s)>0) then begin

_senderNick := Copy(s, 2, pos('!', s)-2); Delete(s, 1, 1);

_senderMess := COpy(s, pos(':', s)+1, length(s)); LogMemo.Lines.Add('<' + _SenderNick + '> ' +

_SenderMess); Exit;

End;

if (pos('NOTICE', s)>0) then begin

FormatText(copy(s, pos('***', s), length(s)-2)); Exit;

End;

_command := copy(s, Pos(' ', s)+1, 3);

if (_command = '001') or (_command = '002') or (_command = '003')

or (_command = '004') or (_command = '005') then begin

Delete(s, 1, pos(_command, s)); FormatText(copy(s, pos(':', s)+1, length(s))); Exit;

end;

if (_command = '251') or (_command = '252') or (_command = '254') or (_command = '255') or (_command = '265') or (_command = '266') or (_command = '372') then

begin

Delete(s, 1, pos(_command, s)); FormatText(copy(s, pos(':', s)+1, length(s))); Exit;

end;

if (_command = '353') then begin

Delete(s, 1, pos(_command, s)); Delete(s, 1, pos(':', s));

while pos(' ', s)>0 do begin

UsersListBox.Items.Add(Copy(s, 1, pos(' ', s)-1)); Delete(s, 1, pos(' ', s));

end; Exit;

end;

if (pos('JOIN', s)>0) then begin

_user := Copy(s, 2, pos('!', s)-2); if _user = NickEdit.Text then Exit;

LogMemo.Lines.add('К нам присоединился: ' + _user); UsersListBox.Items.Add(_user);

Exit; end;

if (pos('PART', s)>0) then begin

_user := Copy(s, 2, pos('!', s)-2); if _user = NickEdit.Text then Exit;

logMemo.Lines.add('Пользователь: ' + _user + ' покинул канал');

for I:=0 to UsersListBox.Items.Count-1 do

if (_user=UsersListBox.Items.Strings[i]) then UsersListBox.Items.Delete(i);

Exit; end;

end;