|
#1
|
|||
|
|||
Timer
Друзья мне нужен ваш совет... Я создал программу которая отправляет сообщение на моб компании... У меня есть база телефонов которую нужно поочередно отправить с подошью MaskEdit... Как мне сделать чтоб посте отправки сообщения автоматом заполнил из таблицы по очередное...Короче говоря нужно использовать компонент Timer. Просьба кто может помочь......
|
#2
|
||||
|
||||
Нужно проверять с некоей переодичностью факт отправки сообщения, вот эту проверку и нужно вставить в событие OnTimer. И при успешности проверки (сообщение отправлено) нужно заменять то что тебе требуется.
ЗЫЖ А можно программку посмотреть в исходниках? Сам этим (отправка смс) интересуюсь. Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
|||
|
|||
Например подумаем что уже сообщение отправлено и как сделать чтоб сразу заполнил maskedit из таблицы... Можешь исходник дать..., Хорошо я могу дать код программы
|
#4
|
|||
|
|||
Вот нужно просто указать URL компании
Код:
procedure TForm1.sButton1Click(Sender: TObject); var tel,data,satr:string; begin if (midstr(sMaskEdit1.Text,1,1)='7') and (Length(sMaskEdit1.Text)=9) then begin if sMemo1.Text<>'' then begin tel:=MidStr(sMaskEdit1.Text,1,3)+MidStr(sMaskEdit1.Text,5,2)+MidStr(sMaskEdit1.Text,8,2); WebBrowser1.Navigate('http://60.60.60.60:7575/m.asp?n='+tel+'&m='+sMemo1.Text+''); end else begin Application.MessageBox('Введите текст!','Ошыбка'); exit; end; end else begin Application.MessageBox('Номер не правельно!','Ошыбка'); exit; end; end; Последний раз редактировалось Admin, 19.11.2008 в 10:30. |
#5
|
||||
|
||||
Не очень понятно, какая база, как доступ устроен. По одной процедуре не разберешь. Если заинтересован, пиши в личку свое мыло, или стучись в аську ко мне, спишемся
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#6
|
|||
|
|||
ISQ
397-691-424
|
#7
|
|||
|
|||
А у тя какой номер ISQ ?
|