Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 21.10.2009, 11:48
Gribok Gribok вне форума
Новичок
 
Регистрация: 25.09.2009
Сообщения: 53
Репутация: 4
По умолчанию Sms через сайт

http://smste.ru/
есть сайт для отравки смс
вот хочу написать од него прог
чтоб в едит вводить номер
в мемо текс
влейб ввыодится какой опертор кк на сайте
в едит2 полпис от ог
ну и едит3 код
и еще нада чтоб пказовало код аторый отображен на сайте
как вот зделать как бы интерфейс нарисоват 5 минту как вот прописать все ссылки???
Ответить с цитированием
  #2  
Старый 22.10.2009, 11:13
Gribok Gribok вне форума
Новичок
 
Регистрация: 25.09.2009
Сообщения: 53
Репутация: 4
По умолчанию

мне тут подкинули ответ на одном форуме
но я незнаю какэто осуществить

Код:
вообщем  идет ПОСТ ЗАПРОС НА  http://smste.ru/


procedure TForm1.Button1Click(Sender: TObject);
var  params:Tstringlist;
begin
params:=Tstringlist.Create;
    params.Add('number='+number.text);
    params.Add('message=babalba');
    params.Add('sign=babalba2');
    params.Add('event=1911755');  // Константа  вроде бы ))   хотя возможно и нет я тока 2 запроса проверял 
    params.Add('codemod=code920760862');  а это что то с кепчем 
    params.Add('code920760862=4910');         а это что то с кепчем 
    memo1.text:=Idhttp1.Post('http://smste.ru/',params);
params.Free;


Удачи еще нужно в компонент доварить 
Host: smste.ru
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.2; ru; rv:1.9.1.2) Gecko/20090729 MRA 5.4 (build 02647) Firefox/3.5.2 WebMoney Advisor
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: ru,en-us;q=0.7,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://smste.ru/
Content-Type: application/x-www-form-urlencoded
Content-Length: 96

Удачи )) осталось разобраться с кепчем )) 
Точн оне знаю но вродебы кепчи статик тоесть по адресу 
http://smste.ru/pix/1912635.jpg   (4397)
проверял 2 браузерах )) 
 params.Add('event=1911755'); возможна эта строччка отвечает за кепч 
Ответить с цитированием
  #3  
Старый 22.10.2009, 18:40
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

как альтернативный (менее нудный, но немного не совсем то) юзать ICQ клиент, в нём есть бесплатная отправка СМСок. если надо здесь найдёш компонент ICQ клиента
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием
  #4  
Старый 22.10.2009, 18:52
Аватар для Vayrus
Vayrus Vayrus вне форума
Исполняемый Ретровирус
 
Регистрация: 09.08.2008
Адрес: Umbrella Corporation
Сообщения: 743
Репутация: 1293
Лампочка

Там вроде еще нереализован этот функционал
Ответить с цитированием
  #5  
Старый 22.10.2009, 18:55
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

честно, аськовской отправкой смсок я сам не пользовался, пользуюсь Мэйл агентовской отправкой, но просто описание мэйлового протокола я не встречал
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием
  #6  
Старый 22.10.2009, 19:56
Аватар для AllMaNi
AllMaNi AllMaNi вне форума
Новичок
 
Регистрация: 15.06.2009
Адрес: Россия, ЮФО
Сообщения: 57
Репутация: 10
По умолчанию

Вот здесь описание протокола.
Правда про смс сообщения я там не увидел инфы
__________________
Пусть ненавидят миллионы, зато любят тыщи (с) Многоточие
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:07.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025