Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   подскажите по MIDLetPascal. что это такое и где почитать (https://forum.antichat.xyz/showthread.php?t=65366)

gerda 25.03.2008 11:39

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

Phm.phx 25.03.2008 11:49

юзай поиск
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.


inlanger 25.03.2008 13:19

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


Время: 22:55