Форум АНТИЧАТ - подскажите по MIDLetPascal. что это такое и где почитать

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

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

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.