| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Разбивка сообщения по 70 символов.. [D7]

jcrush ©   (2005-01-21 04:13:00) 

Привет, пишу отправку сообщений SMS, можно пример отсылки сообщения по частям в разрыве 70 символов? нужно посчитать скока всего порезать и отправить кусками..

Спасибо...

---

default   (2005-01-21 05:35:00) [1]

KilkennyCat ©   (21.01.05 05:10) [5]
ну как грится "чем смогли тем помогли"
"дарёному коню в зубы..."
хотя это опасная поговорка!
тогда люди на форуме перестанут вопросы задавать - кстати идея...
достанет чужой глючный код придётся свой писать - так и привычка возникнет!

---

KilkennyCat   (2005-01-21 05:10:00) [2]

> default ©   (21.01.05 05:03) [4]


Это-то понятно... но ежели такую простую задачу так сложно объяснять, то вообще ерунда выйдет...

---

default   (2005-01-21 05:03:00) [3]

KilkennyCat ©   (21.01.05 04:51) [3]
он просто выдрал этот кусок из своего раннего кода

---

KilkennyCat   (2005-01-21 04:51:00) [4]

"Если при разбивке кусками программисты стали использовать WinExec(PAnsiChar(s), SW_SHOW), то мне в космосе делать нечего..."
© механик Зеленый.

---

Viktop   (2005-01-21 04:45:00) [5]

Попробуй разобраться с этим кодом. Я раньше писал оболочку для net send.
if length(s) > 70 then
   begin
     k := length(s) div 100 + 1;
     z := 1;
     for i := 1 to k do
     begin
       s := 'net send ' + string(ComboBox.Text) + ' ' + copy(Edit1.text, z,
         70);
       z := z + 70;
       WinExec(PAnsiChar(s), SW_SHOW);
     end;
     WinExec(PAnsiChar(s), SW_SHOW);
   end

---

KilkennyCat   (2005-01-21 04:28:00) [6]

> в разрыве 70 символов


это как?

А вообще непонятно, как можно писать программы такого уровня, и не порезать самому кусками...

---

Наверх