Написание J2me приложений для телефонов., Midlet Pascal Опции

[Altair]

Вступление
MIDletPascal - язык программирования, предназначенный для создания мобильных приложений.
Компилятор MIDletPascal переводит код Pascal на Java bytecode (J2ME) .
Программы, написанные в MIDletPascal могут быть запущенны на любом мобильном устройстве ( типа мобильных телефонов) с Java - поддержкой.
MIDletPascal - удобное средство разработки, делающее новый шаг в развитии мобильного программирования.
С MIDletPascal, Вы сделаете новый шаг в мир мобильного программирования!

Особенности

• Генерация быстрого и компактного Java™ bytecode.
• Полная поддержка языка Pascal
• Частично код может быть написан прямо на Java
• Удобная работа с SMS.
• Коммуникация по HTTP
• Поддержка пользовательсткого интерфейса (формы).
• Мультимедиа (работа со звуком, картинками)
• легкая в использовании IDE

Примеры программ.
Программа выводит на экран сообщение которое меняет свой цвет с черного на белый неоднократно.

var color : integer;

begin
  color := 0;
  setFont(FONT_FACE_SYSTEM, FONT_STYLE_BOLD, FONT_SIZE_LARGE);
  
  repeat
    setColor(color, color, color);
    color := color + 8;

    if (color > 255) then
      color := 0;

    drawText('Hello world!', 0, 0);
    repaint;
    delay(100)
  until false
end.

Программа - скринсейвер

program ScreenSaver; 

const up    = 1; // these constants define the direction 
      down  = 0; // in which the icon moves 
      left  = 1; 
      right = 0; 

var x, y      : integer; // the current icon's left upper corner position 
    img       : image;   // handle of the image object 
    direction_x, 
    direction_y  : integer; // the movement direction 
      
begin 
  img := loadImage('/icon.png'); 
   
  repeat 
    // move the icon according to the current direction 
    if  direction_y = up    then y := y - 1; 
    if  direction_y = down  then y := y + 1; 
    if  direction_x = left  then x := x - 1; 
    if  direction_x = right then x := x + 1; 

    // check if the icon hit the display border 
    if  x = 0 then direction_x := right; 
    if  x = (GetWidth – GetImageWidth(img)) then direction_x := left; 
    if  y = 0 then direction_y := down; 
    if  y = (GetHeight – GetImageHeight(img)) then direction_y := up; 
   
    SetColor(255, 255, 255); 
    FillRect(0, 0, GetWidth, GetHeight); 
    DrawImage(img, x, y); 
    Repaint; 
    Delay(50); 
  until GetKeyPressed <> KE_NONE; 
end.

Пара слов о лицензии
Для персонального использования, без support'a, MIDletPascal распространяется бесплатно. (download)
Для комерческого ипользования
Лицензия на 1 человека - 40$
на <10 - 100$
более 10 - 300$

Этапы создания приложения
Пустое окно:

Создание проекта

Отладка - поиск ошибок

Редактирование ресурсов

Запуск программы. Эмуляция.


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

Оффициальный сайт:
http://www.midletpascal.com/

[xds]

товарищи, никто не нашел в MIDletPascal аналог GetPixel ?
можт кто на яве дописать может ?

На Java дела обстоят плохо: только MIDP 2.0 (не на всех устройствах), предварительно загнать картинку в Image, затем Image.getRGB(). Жадно и несовместимо. Собственно, объект класса Graphics (это MIDP-аналог класса TCanvas в VCL) не связан напрямую с физическим растром - так что GetPixel возможен только у буферизованного растра, т. е. объекта класса Image. А зачем тебе GetPixel понадобился?

Сообщение отредактировано: xds - 14.01.2006 18:57