ещё новая лажа, добавил окно на каждого пользователя из листа, вообщем смысл таков: чтобы отправлять сообщения смс имея только номер пользователя + стока которая имеется и работает браузер, это все обрабатывает и мы только жмём клавишу отправить, там и отсылает.
но не знаю как из 1 10 значного номера вывести код, оператора и номер абонента в отдельные сторки проблема в том что он не удаляет код оператора и не вставляет его в строку браузера.
собствнно код функции с кнопки
Цитата:
i:integer;
begin
for i:=1 to length(buf) do
begin
delete(buf,3,10);
end;
if StrToInt(buf)= 066 then
begin
ShowMessage('Услуга стоит 25 копеек');
end;
for i:=1 to length(buf) do
begin
delete(buf,1,3);
end;
wb1.Navigate('http://www.mts.com.ua/rus/sendsms.php?sms_message=1&sms_network1=38066&sms_n etwork2=&sms_network3=&sms_phone1=' + buf + '&sms_phone2=&sms_phone3=&sms_mess=&sms_translit=& sms_lang=rus#a');
end;
|
и ещё нужно чтобы кнопка после нажатия исходя из кода оператора отсылала на того оператора к которому принадлежит код сети