подскажите по MIDLetPascal. что это такое и где почитать

[gerda]

мой молодой человек вскользь упомянул про MIDLetPascal. вот подскажите где почитать. и если можно,дайте какой нибудь крохотный пример программы ;) ;) хочеться блестнуть знаниями ;)

[Phm.phx]

юзай поиск
http://forum.antichat.ru/threadnav55123-2-10-MIDLetPascal.html (http://forum.antichat.ru/threadnav55123-1-10-MIDLetPascal.html)

вообще вот здесь можно почитать

piligrim.at.tut.by/java/mp.html (http://piligrim.at.tut.by/java/mp.html)

а вот пример проги для отправки СМС

program SendSMS
var
okCommand:command;
TextSMS:integer;
PhoneNumber : integer;

nomer : string;
s: string;
begin
// создать кнопку для отправки смс
okCommand := createCommand('OK' , CM_OK,1);
//объявить форму
chowForm;
//добавить на нее кнопку
addCommand(okCommand);
//поле для ввода смс (начинается с +7)
TextSMS:= formAddTextField('введите текст', ' ', 100,TF_ANY);
//поле ввода номера абонента
PhoneNumber := formAddTextField('введите номер ',' ',20,TF_PHONENUMBER);
//пока не нажата кнопка ОК отображается форма
while (getClickedCommand <> okCommand ) do delay (100);
//если кнопка нажата получаем текст смс
s:= formGetText (TextSms);
//номер
nomer := formGetText (PhoneNumber);
//переключение обратно
ShowCanvas;
setColor(255,0,0);
repaint;

//отправка смс
if not smsStartSend('sms://' +nomer, s) then begin
//в противном случае
drawText ('не удается отправить',2,2);
repaint;
delay(2000);
halt;
end;

//если отправилось,ожидаем
while smsIsSending do
begin
drawText ('идет отправка смс',5,5);
repaint;
delay(5000);
end;

//проверка ушло ли смс
if not smsWasSuccessfull then
begin
repaint;
drawText ('смс не было отправлено',5,5);
repaint;
delay(2000);
end;
end.

[inlanger]

http://forum.antichat.ru/thread55123.html
Моя статья о мидлет паскале, поиск рулит :)