Отправка СМС через сайт

[RIO]

Здравствуйте ! Пишу сейчас программу которая заполняет веб форму вот этого сайта http://www.mts.com.ua/ukr/sendsms.php что бы отправить СМС, все вроде заполняется правильно и т.д. Но нужного ответа я не получаю, то есть программа не переходит на страницу где говорится что сообщение отправлено . . . А после заполнения, опять выкидывает меня на страницу где нужно ввести капчу и что самое главное никакой ошибки не выводит на странице, ну что типа я ввел капчу не верно или еще что-то там (код страницы вывожу в мемо потому по кожу вижу что это опять начальная страница, где нужно ввести телефон, капчу и т.д., ну и конечно же СМС не приходит) . . . Возможно проблема в том, что на странице под кнопкой отправить не совсем пост запрос, а вот эта ерунда - javascriptocument.Data.submit(); ? ? ?

Кстати куки включены в компоненте, вот сам код :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, StrUtils, JPEG, IdCookieManager;

type
  TBox = class(TForm)
    Go: TButton;
    Image1: TImage;
    Edit1: TEdit;
    Memo1: TMemo;
    ComboBox1: TComboBox;
    HTTP: TIdHTTP;
    CodeEdit: TEdit;
    Memo2: TMemo;
    procedure GoClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    procedure GetCaptcha;
  public
  end;

var
  Box: TBox;

implementation

{$R *.dfm}

function Step(Code: string): Boolean;
var
  Parameters, R: TStringList;
begin
  Parameters := TStringList.Create;
  R := TStringList.Create;
  Parameters.Add('script=/ukr/sendsms.php');
  Parameters.Add('sms_tag_id=3');
  Parameters.Add('network1=38066');
  Parameters.Add('phone1=1111111');
  Parameters.Add('message=!!!');
  Parameters.Add('lang=lat');
  Parameters.Add('captcha=' + Code);
  R.Text := Box.HTTP.Post('http://www.mts.com.ua/ukr/sendsms.php', Parameters);
  Box.Memo2.Text := R.Text;
  Result := (Pos('Ваше SMS-повідомлення відіслано', R.Text) > 0);
  Parameters.Free;
  R.Free;
end;

procedure TBox.GoClick(Sender: TObject);
begin
  if Step(CodeEdit.Text) then
     ShowMessage('Sending ! ! !');
end;

procedure TBox.FormShow(Sender: TObject);
begin
  GetCaptcha;
end;

procedure TBox.GetCaptcha;
var
  S, T: string;
  I, P: Integer;
  Captcha: TMemoryStream;
begin
  S := HTTP.Get('http://www.mts.com.ua/ukr/sendsms.php');
  P := Pos('/back/modules/golden/captcha.php?', S);
  Delete(S, 1, P);
  for I := 1 to Length(S) do
      if S[I] <> '"' then
         T := T + S[I]
      else
         Break;
  Captcha := TMemoryStream.Create;
  HTTP.Get('http://www.mts.com.ua/' + T, Captcha);
  Captcha.Seek(0, 0);
  Captcha.SaveToFile('Captcha.Jpg');
  Image1.Picture.LoadFromFile(GetCurrentDir + '\Captcha.Jpg');
  DeleteFile(GetCurrentDir + '\Captcha.Jpg');
  Captcha.Free;
end;

end.

[Пепел Феникса]

первое что я заметил...уда ты отправляешь запрос...а куда надо?

/back/modules/sms/db_sms.php

относительный путь...но запрос идет туда.
потому ты и получаешь туже страницу что была

[RIO]

Пепел Феникса, огромное спасибо, помогло, теперь СМС приходит И я понял как Вы узнали это Спасибо еще раз !

[stalkersts]

Что то у меня не получается получить положительный ответ от сервера http://www.jeans.com.ua/ru/sms.
Все отлично получилось! Спасибо Пепел Феникса за подсказку RIO! Она мне очень помогла...