Pascal Для Мобил, Прикольная штука Поделиться Опции

[xx-xx-xx]

MIDletPascal is 1.0.1 948 kB

http://www.midletpascal.com/dl/MPInstall.exe

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

[Crusader]

Спасибо! Прикольно. Ща буду смотреть. Главное - чтобы интерфейсы к всевозможным функциям были развиты.
Я видел подобное для Бейсика. Кажется MobileBasic называется. Тока штука небесплатная. Впрочем, думаю, как и эта.

[fguy]

Посмотрел - продукт действительно напоминает MobileBasic. Но язык естественно Паскаль, что греет душу. Пакет платный - если не ввели код доступа то в создаваемых приложениях при запуске будет выдаваться сообщение что создано незарегестрированной версией. Избавиться от этого очень просто - на сайте полно демонстрационных приложений откомпилированных зарегенным компилятором - берем из них FW.class и заменяем его в вашем jar-е. Или ищем кейген - для MobileBasic он существует.
Минусом этих продуктов является невозможность подключения дополнительных Java API присутствующих в различных телефонах.
Кстати тот же MobileBasic "подзаточен" под Nokia в плане звука.

[xx-xx-xx]

fguy
Спасибо что помог избавиться от этого надоедлевого сообщения ! Теперь вообще супер.

У меня есть еще и apps for phones (визуальный конструктор J2me приложений) правда тестовая версия , работает до 31.01.2005. Если кому надо могу выложить .

[Crusader]

fguy
Посмотрел я MIDletPascal. Грубая поделка... Нету самого главного - поддержки работы с сокетами. А без них всё это - лажа.
Надо учить джаву, однозначно!

[BeZ]

надо тоже будет поглядеть

[Vufer]

А я тоже хочу... Лучше ссылку....

[BeZ]

Vufer
ссылка в первом посте

[xx-xx-xx]

apps for phones 8.28 mb
http://www.appsforphones.com/downloadbeta/setup.exe

Crusader
Ты не прав ;) . Если не знаешь Jаву , а хочется сделать простенькую программку для мобилки (например игру с лицами корефанов ,чтобы их удивить, а они могли удивить своих знакомых "какой у них крутой кореш" :D ) это как раз самое то !!! :)

Ну а Jаву учить надо , полностью тебя поддерживаю !

[Crusader]

xx-xx-xx
Я хочу нормальный почтовый клиент сделать. На паскале я бы его сделал. Но увы - в ЭТОМ паскале сокетов нету. Посему - пролеталово. А насчёт чего-нибудь локально работающего - вполне. Сделал, FW.class поменял, и все довольны. :)
А так - придётся осваивать джаву. И не "а так", а в любом случае её надо осваивать. Я себе даже книжку купил. :)

[wdsand]

А не затруднится кто-нибудь выложить FW.class в этой ветке?

[0vZ]

Народ! Помогите! Такой косяк - не могу в этом МидлетПаскале сделать преобразование Integer->String. В Дэльфи для этого есть ф-ия IntToStr, а тут нету :-(

[max.wiz]

Integer->String

Есть старая добрая функция str(i: Integer; var s: String), которая между прочим осталась и в Дельфях.

[xx-xx-xx]

А не затруднится кто-нибудь выложить FW.class в этой ветке?

[Mr.Adsw]

Паскаль ничего, прикольная штука. Но FW полностью проблему не решает. Есть функции, которые нельзя использовать в unreg версии. К ним относятся всякие сетевые примочки и т.п. (какая жаль!) :(

[xx-xx-xx]

Вышло обновление
MIDletPascal is 1.0.2

http://www.midletpascal.com/dl/MPInstall.exe

[fguy]

Mr.Adsw

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

[Mr.Adsw]

fguy
Пример из справки Паскаля:

var conn: http;
htmlBody: string;
contentType: string;
begin
if not openHttp(conn, 'http://www.google.com') then halt;
setHttpMethod(conn, GET);
addHttpHeader(conn, 'User-agent', 'MIDletPascal browser');
if sendHttpMessage(conn) <> 200 then halt;
htmlBody := getHttpResponse(conn);
contentType := getHttpHeader(conn, 'Content-type');
closeHttp(conn);
end.

Ругается на addHttpHeader.

Суть проблемы - прога отправляет форму POSTом. Есть еще addHttpBody, мож его и надо использовать?

[fguy]

Mr.Adsw

Компилятор ругается на использование следующих функций
addHttpHeader
getHttpHeader
choiceAppendStringImage
menuAppendStringImage
deleteRecordStore
deleteRecordStoreEntry
stringToReal

Чтобы избавиться от этого безбразия нужно для версии 1,0,2 исправить
Comparing files OLD\MpIDE.exe and Crack\MPIDE.EXE
0000417C: 8A B0
0000417D: C3 01
000057F7: 74 EB

Это позволит компилировать приложения с этими функциями, правда, класс FW придется все таки заменять руками.

Протестировать до и после улучшения можно на примере

program NewProject2;
var r : real;
s1 : string;
begin
s1 := '-10.5';
r := stringToReal(s1, 10);
r := r * 2.0;
s1 := 'r = ' + r;
drawText('Hello world!' + s1, 0, 0);
repaint;
delay(10000);
end.

[Mr.Adsw]

fguy
Спасибо, все работает, класс! :)

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

[fguy]

Mr.Adsw

Jimm есть в исходниках - можешь взять нужный кусок оттуда.

[Ectar]

fguy
а вообще, зачем игратся с этим, когда можно начать осваивать J2ME, все равно в результате придется.

[fguy]

Ectar

Вообще у каждого средства разработки есть своя ниша - на Паскале можно быстро написать несложную программу, особенно если за плечами 15 летний опыт. То что одну и ту же задачу можно решить несколькими способами с помощью разных инструментов - далеко не секрет - важно правильно выбрать оптимальный вариант, что бы сделать это быстро и эффективно. Меня всегда удивляли люди которые решали все проблемы с помощью самых навороченных систем (С и т.п.), не смотря на временные затраты и 0-ую эффективность. За 8 лет работы в одной организации ни разу не столкнулся с необходимостью писать на С, все необходимые приложения удавалось быстро реализовать на диалектах Бэйсика для разных систем и иногда на Паскале. В качестве примера могу привести сбор статистики с виндовых реестров для оценки времени работы пользователей был сделан в MS Access на Бэйсике с сохранением результатов в БД. А сейчас приходится писать на С только потому что ничего другого (кроме ассемблера) для рабочей платформы просто нет. Так что каждый вибирает для себя...

[Proger]

К сожалению нашёл большой недостаток в этой реализации паскаля!
У меня была написана программа заливки. В начале программы рисуются всякие фигуры, а потом запускается заливка с некоторой точки. И вот беда - нельзя определить какого цвета точка уже есть на экране по данным координатам! :((

[0vZ]

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

[SamCrew]

А можно прогу выложить, а то у меня ссылка не открывается? Заранее спасибо!

[SamCrew]

А можно прогу выложить, а то у меня ссылка не открывается? Заранее спасибо!

[xx-xx-xx]

Вышло обновление

MIDletPascal is 1.0.3
Sound support added. Few other bugs fixed.

http://www.midletpascal.com/dl/MPInstall.exe


2). Для того, чтоб можно было использовать операторы, которые доступны в зарегистрированной версии нужно в hex-редакторе подкорректировать:

Решение для версии 1.0.2 :

* в файле MpIDE.exe (размер 618496 байт)
по адресу 0040403С заменить 55 на С3
* в файле mpc.exe (размер 118784 байт)
по адресу 00402134 заменить 74 на EB


Решение для версии 1.0.3:

* в файле MpIDE.exe
по адресу 0040403С (offset 0000403C) заменить 55 на С3
* в файле mpc.exe
по адресу 00402166 (offset 00002166) заменить 74 на EB

[DereK]

люди, никак не могу разобраться с формами...
кто разобрался с прогой киньте примерчик с radiogroup, Edit'ами , и желательно чтоб взависимости от выбора/ввода в конце выдавалось допустим какое нить число....

[xx-xx-xx]

Вышло обновление

MIDletPascal 1.0.4
Fixed 'openResource' method.

http://www.linkactivo.com/mp/MPInstall.exe

MIDletPascal 2 (beta 2)
Fixed few bugs in the code generator. Added the menu for changing the current emulator easily.
Modern user-interface.
Ability to build NokaiAPI or MIDP2.0 fullscreen MIDlets.
SMS sending functions.
Added the following functions: integerToString, setClip
Removed internal emulator from MIDletPascal (because of lot of bugs in that emulator).

http://www.linkactivo.com/mp/MPInstall2.exe

Русский Help для MIDletPascal
http://www.midletpascal.com/dl/MPHelp_ru.zip

[xx-xx-xx]

Лекарство для MIDletPascal 1.0.4


Нужно распаковать в каталог установки
MIDletPascal 1.0.4 и запустить Patch for MIDletPascal.exe

[xx-xx-xx]

2 (beta 1)
Modern user-interface.
Ability to build NokaiAPI or MIDP2.0 fullscreen MIDlets.
SMS sending functions.
Added the following functions: integerToString, setClip
Removed internal emulator from MIDletPascal (because of lot of bugs in that emulator).

2 (beta 2)
Fixed few bugs in the code generator. Added the menu for changing the current emulator easily.

2 (beta 3)
Added support for user libraries (developed in Java).
Added TF_PASSWORD text field type.

MIDletPascal 2 (beta 3)


user: Albert Einstein
code: D6Qw8p1CHW7xY7D
:)

[Il4Iz]

Я работаю только в Паскале. Будет время - посмотрю что это за MIDlet Pascal.

[AlexMSK]

Кажется, к MidletPascal таки можно подключать java библиотеки...


/*
* Lib_siemens.java
*
*/


/**
* Lib_siemens for MIDletPascal.
* To compile this class, you also need MIDP 1.0 and Siemens extension APIs.
* And to use, of course, MIDletPascal (http://www.midletpascal.com)
*
* The listed functions are available on all java-able Siemens phones.
*
* web: http://inf.nyme.hu/~kusicsk/
* e-mail: znos@freemail.hu
*
* @author Krisztian Kusics (a. ZnOS)
*/
public class Lib_siemens {

//==========================================================================
// Vibrator
//==========================================================================

/**
* Activates vibrator.
*/
public static void startvibrator() {
com.siemens.mp.game.Vibrator.startVibrator();
}

/**
* Deactivates vibrator.
*/
public static void stopvibrator() {
com.siemens.mp.game.Vibrator.stopVibrator();
}

/**
* Activates the vibrator for a given time in milliseconds.
* @param duration duration of the vibrator activation period, in milliseconds.
*/
public static void triggervibrator(int duration) {
com.siemens.mp.game.Vibrator.triggerVibrator(duration);
}

//==========================================================================
// Sound
//==========================================================================

/**
* Plays a tone.
* @param tone_freq the frequency of this tone [Hz]
* @param tone_time the duration of this tone [ms]
*/
public static void playtone(int tone_freq, int tone_time) {
com.siemens.mp.game.Sound.playTone(tone_freq, tone_time);
}

/**
* Play back a tone as specified by a note and its duration. A note is given
* in the range of 0 to 127. The frequency of the note can be calculated from
* the following formula:
*
* SEMITONE_CONST = 17.31234049066755 = 1/(ln(2^(1/12)))
* note = ln(freq/8.176)*SEMITONE_CONST
*
* The musical note A = MIDI note 69 (0x45) = 440 Hz.
*
* This call is a non-blocking call. Notice that this method may utilize CPU
* resources significantly on devices that don't have hardware support for
* tone generation.
* @param note Defines the tone of the note as specified by the above formula.
* @param duration The duration of the tone in milli-seconds. Duration must
* be non-negative.
* @param volume Audio volume range from 0 to 100. 100 represents the maximum
* volume at the current hardware level. Setting the volume to a value less
* than 0 will set the volume to 0. Setting the volume to greater than 100
* will set the volume to 100.
*/
public static void playmiditone(int note, int duration, int volume) {
try {
com.siemens.mp.media.Manager.playTone(note, duration, volume);
} catch(IllegalArgumentException iae) {
// if the given note or duration is out of range.
} catch(com.siemens.mp.media.MediaException me) {
// if the tone cannot be played due to a device-related problem.
}
}

//==========================================================================
// LCD backlight
//==========================================================================

/**
* Activates the LCD backlight.
*/
public static void setlighton() {
com.siemens.mp.game.Light.setLightOn();
}

/**
* Deactivates LCD backlight.
*/
public static void setlightoff() {
com.siemens.mp.game.Light.setLightOff();
}

//==========================================================================
// Making an outgoing call
//==========================================================================

/**
* Starts a phone call.
* IMPORTANT NOTE: The java application will terminate upon performing this method call.
* @param number a phone number to dial. (International format)
*/
public static void dial(String number) {
try {
com.siemens.mp.gsm.Call.start(number);
} catch(IllegalArgumentException iae) {
// if a phone number is entered in the wrong format or is missing in method call
} catch(com.siemens.mp.NotAllowedException nae) {
// if the call is not allowed (by the user)
}
}

//==========================================================================
// Sending SMS
//==========================================================================

/**
* Sends an sms to the specified number. The user will be prompted whether
* an SMS is allowed to be send each time the method is called.
* For further information regarding the mapping of Unicode into standard GSM char
* (7 bit) see the <A href="http://unicode.org/Public/MAPPINGS/ETSI/GSM0338.TXT">
* ETSI mapping specifications</A>.
* @param number phone number to send SMS to. (International format)
* @param data SMS text
* @return number of characters actually send
*/
public static int sendsms(String number, String data) {
int numOfCharsSent = 0;

try {
numOfCharsSent = com.siemens.mp.gsm.SMS.send(number, data);
} catch(IllegalArgumentException iae) {
// the phone number or the text message is missing in method call, or format of the number is incorrect
} catch(com.siemens.mp.NotAllowedException nae) {
// if the transfer is not allowed.
} catch(java.io.IOException ioe) {
// if the network is not available
}

return numOfCharsSent;
}



----------------

Code:


{
This example shows how to use the Lib_siemens MP library.

The available Siemens-specific functions are:

* startvibrator;
* stopvibrator;
* triggervibrator(duration : integer);

* playtone(tone_freq, tone_time : integer);
* playmiditone(note, duration, volume : integer);

* setlighton;
* setlightoff;
(Both setlighton/off methods are overridden by the phone settings,
which means that they has effect only if the backlight is off initially)

* dial(number string);
* sendsms(number, text: string) : integer;


--------
Lib_siemens issues, forum at http://www.midletpascal.com
}

program siemens_example;

uses siemens;

var
numOfCharsSent : integer;

begin
siemens.startvibrator;
delay(2000);

siemens.stopvibrator;
delay(2000);

siemens.triggervibrator(500);
delay(2000);

siemens.playtone(400, 500);
delay(2000);

siemens.playmiditone(69, 500, 50);
delay(2000);

siemens.setlightoff;
delay(2000);

siemens.setlighton;
delay(2000);

siemens.dial('+36301234567');
delay(2000);

numOfCharsSent := siemens.sendsms('+36301234567', 'This is a sms.');

drawText('Hello world!', 0, 0);
repaint;
delay(2000);
end.


источник: http://www.midletpascal.com/forum/viewtopic.php?t=258

[0vZ]

Надо написать подобную библиотеку и для моторол!

[eXtractor]

Кажется, к MidletPascal таки можно подключать java библиотеки...

Что-то не понял я, куда этот самый Lib_Siemens.java пихать.
Вот компилятор как ругается:

Код

Sie.mpsrc:3: error, failed to load '\Lib_' library
Sie.mpsrc:5: error, character '.' expected, 'var' found

[Done]

Народ, если кто скачал кмньте на сайт русский Хэлп по MidletPascal. А то ссылка на него битая!!!

[eXtractor]

Что-то не понял я, куда этот самый Lib_Siemens.java пихать.
Вот компилятор как ругается:

Код

Sie.mpsrc:3: error, failed to load '\Lib_' library
Sie.mpsrc:5: error, character '.' expected, 'var' found

Ааа, понял...
А скомпилированных библиотек Motorola ни у кого нет?