Отправка SMS в Delphi

[ubun]

Как осуществить отправку SMS при помощи Delphi?

[Lauri]

Попробуй отправлять чрез сайт, в делфи просто авторизировать процесс

[ubun]

Так не получиться, там у всех через каптчу

[Slippy]

Можно через SMS-шлюз. Таким способом смски шлются просто как емейлы. Только у каждого оператора он свой и не у всех бесплатный, насколько знаю. Плюс абонент должен быть подключен к услуге получения таких смс.

А вообще так чтобы бесплатно, без каптч и другой защиты и безо всяких ограничений - я думаю невозможно. Иначе нас всех давно бы засыпало спамом по самые уши =)

[W0LF]

Можно отправлять SMS через ICQClient, так как на каждый uin выделяют бесплатный SMS. Проверял отправлять на операторы Украины, все было гуд. На Россию не пробывал, но думаю проблем не будет.
ICQClient.SendSMS вроде как.

Раньше узнавал сколько сообщений осталось на uin'e так (но сейчас работоспособность не проверял!):

uses
   IdHTTP;

function SMSCount(uin:Cardinal;PCode:PChar):Word;
var
  http:TIdHTTP;
  buffer:String;
begin
  http:=TIdHTTP.Create(nil);
  if PCode='' then PCode:='380'; //380 - для операторов Украины
  Buffer:=http.Get('http://icq.com/ibs/icq6/sms_validate.php?uin='+IntToStr(uin)+'&phone='+StrPas(PCode)+'&sk=0');
  Delete(Buffer,1,Pos('count="',Buffer)+6);
  Delete(Buffer,Pos('">',Buffer),Length(Buffer));
  Result:=StrToIntDef(Buffer,0);
end;