мой молодой человек вскользь упомянул про MIDLetPascal. вот подскажите где почитать. и если можно,дайте какой нибудь крохотный пример программы хочеться блестнуть знаниями
юзай поиск http://forum.antichat.ru/threadnav55123-2-10-MIDLetPascal.html вообще вот здесь можно почитать piligrim.at.tut.by/java/mp.html а вот пример проги для отправки СМС Code: 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.
