Отправка СМС сообщений

[Rek322]

Ребята, помогите пожалуйста! Я создал программу для отправки СМС сообщений с компьютера с помощью мобильного телефона с использованием базы данных Access на языке Delphi 7. Но программа работает только для двух абонентов (То есть отправляет только двум абонентам из всего списка). Вопрос в том, в чем я просчитался? Ошибка в этом коде, помогите найти его. Заранее спасибо!!

procedure TForm1.Button2Click(Sender: TObject);
begin
for i:= 1 to CheckListBox1.Items.Count do
begin
if  CheckListBox1.Checked[i-1] = true then
begin
pdu.Clear;
  adotable1.RecNo:=i;
lengt:='07';
  typ:='91';
  service:=sernum(edit2.Text) ;
  SMSDELIVER:='11';
  AddressLength:=inttohex(11,2);
  typ2:='81' ;
  TPPID:='00';
  TPDCS:='08';
  time:='FF';
  {datalen:='20';}
  number:=numb(adotable1.Fields[4].AsString) ;
  smslen:=inttohex(length(edit7.Text)*2,2);
  pdu.Text:=lengt+typ+service+SMSDELIVER+'00'+AddressLength+typ2+
  number+TPPID+TPDCS+time+smslen+smstext(edit7.Text,length(edit7.Text))+chr(26);
comport1.WriteStr('AT+CMGS='+(floattostr(14.3+(length(edit7.Text)*2)))+#13#10);
 sleep(5000);
comport1.WriteStr(pdu.Text+#13#10);
sleep(5000);
application.ProcessMessages;
end;
end;
showmessage('Все сообщения отправлены !!!');
end;

[raxp]

1- для начала в самом цикле проверьте саму выборку номера adotable1.Fields[4].AsString, скажем в memo, чтобы визуально убедиться что все номера выходят
2- floattostr(14.3+(length(edit7.Text) *2)) интересная конструкция и чавой-это у меня так

'AT+CMGS='+inttostr(length(txt.text)*2)+#13+#10

3- pdu.Text+#13#10 -перевод строки лишний, у вас в pdu.text уже есть признак отправки для модема #26

p.s.: ну вот скажем мне-то понятно, что и откуда берется, но было-бы хорошим тоном приводить весь код или сам проект

[Rek322]

Номера все входят, пробовал в место команды отправить, команду сохранить в телефоне.
comport1.WriteStr('AT+WMGS(в место CMGS)='+(float tostr(14.3+(length(edit7.Text)*2))) +#13#10); сохраняет все отмеченные, но вот почему не отпровляет? Весь код программы не буду вписывать т.к. он занимает 87 страниц.

[raxp]

...что такое 14.3 ...пробовали-ли убрать #13#10 после #26 ...код в расширенном режиме можно прилагать в виде файла ...sleep это конечно хорошо, но у вас нет обратной связи от телефона.

[Rek322]

14.5 это для телефона. Если я уберу #13#10 то откуда я узнаю состояние сообщения?

[raxp]

function readcom: string;
var RX_Count : cardinal;
    TempArray: array[1..255] of Byte;
    Count    : Integer;
begin
 result:= '';
 ReadFile(Com, TempArray, 255, RX_Count, nil);
 for Count:= 1 to RX_Count do result:= result + Chr(TempArray[Count])
end; 

...
  sendcom('AT+CMGS='+inttostr(length(txt.text)*2)+#13+#10);
  application.ProcessMessages;
  sleep(1000);
  memo.Lines.Add(trim(readcom)); // состояние
  sendcom(pdu.Text+#26);
  sleep(5000);
  memo.Lines.Add(trim(readcom)) // состояние
...

но sleep это не есть хорошо.

[Rek322]

Спасибо тебе raxp! Но я уже сам понял, надо было sleep(5000); побольше поставить, ведь на каждую СМСку уходит примероно sleep(1666).

[raxp]

...именно поэтому желательно использовать буфер комманд, скажем по таймеру и обрабатывать прием-ответы, тогда система не будет зависеть от того отправилось-ли оно или собственно разных задержек.