Хочу сделать прогу которая отправляет смс

[gufon]

вот хочу сделать прогу для отправки смс, вот ссылка на офф сайт который отправляет http://www.mts.com.ua/ukr/sendsms.php# там есть в низу отправить сообщение, откроется форма я узнал путь на исходник но не работает, скорее всего капча вот код пост запроса

params:=TStringList.Create;
responseres:=TStringList.Create;
params.Add('network1=38066');
params.Add('phone1=6633128');
params.Add('message=долджолд');
params.Add('lang=lang_lat');
responseres.Text:=http1.Post('http://www.mts.com.ua/ukr/sendsms.php/back/modules/sms/db_sms.php',params);

сам запрос рабочий делал до этого, на своем сайте (форуму обратной связи) вообщем помогите чем сможете))))))))

[kangreon]

На форме 2 TButton, 4 TEdit , 1 TImage.
Edit1 - network1
Edit2 - phone1
Edit3 - Текст сообщения
Edit4 - Текст с капчи

Проверяйте. Должно работать.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdHTTP, IdCompressorZLib, StrUtils, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    http: TIdHTTP;
    SendData: TStringList;
    procedure GetCaptcha;
    function GetValue(src, name: string; const d1: string = '"';
      d2: string = '"'): string;
    function ParseNameValue(src: string): string;
    procedure LoadCaptcha(var Image: TImage; const src: string);
    procedure SendSMS;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetCaptcha;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SendSMS;
end;

function TForm1.GetValue(src, name: string; const d1: string = '"';
  d2: string = '"'): string;
var
  i: integer;
begin
  i := Pos(d1 + name + d1, src);
  i := PosEx('value', src, i);
  i := PosEx(d2, src, i) + 1;
  Result := Copy(src, i, PosEx(d2, src, i) - i);
end;

function TForm1.ParseNameValue(src: string): string;
var
  i: integer;
  s: string;
begin
  i := Pos('name='#39, src) + 6;
  Result := Copy(src, i, PosEx(#39, src, i) - i);
  Result := Result + '=' + GetValue(src, Result, #39);
end;

procedure TForm1.LoadCaptcha(var Image: TImage; const src: string);
var
  i: integer;
  imgUrl: string;
  ms: TMemoryStream;
  jpeg: TJPEGImage;
begin
  i := Pos('src="/back/', src) + 5;
  imgUrl := 'http://www.mts.com.ua' + Copy(src, i, PosEx('"', src, i) - i);

  ms := TMemoryStream.Create;
  http.Get(imgUrl, ms);
  ms.Position := 0;
  jpeg := TJPEGImage.Create;
  jpeg.LoadFromStream(ms);
  ms.Free;
  Image.Picture.Assign(jpeg);
end;

procedure TForm1.GetCaptcha;
var
  page: string;
begin
  http := TIdHTTP.Create;
  http.Compressor := TIdCompressorZLib.Create;
  http.Request.UserAgent := 'Opera/9.80';
  http.AllowCookies := True;
  http.HandleRedirects := False;

  page := http.Get('http://www.mts.com.ua/ukr/sendsms.php');

  http.Request.Referer := 'http://www.mts.com.ua/ukr/sendsms.php';

  SendData := TStringList.Create;
  SendData.Add('script=' + GetValue(page, 'script'));
  SendData.Add('sms_tag_id=' + GetValue(page, 'sms_tag_id'));
  SendData.Add(ParseNameValue(page));

  LoadCaptcha(Image1, page);

  ShowMessage('Введите данные');
  ShowMessage(SendData.Text);
end;

procedure TForm1.SendSMS;
begin
  SendData.Add('network1=' + Edit1.Text);
  SendData.Add('phone1=' + Edit2.Text);
  SendData.Add('message=' + Edit3.Text);
  SendData.Add('captcha=' + Edit4.Text);
  SendData.Add('lang=lat');

  try
    http.Post('http://www.mts.com.ua/back/modules/sms/db_sms.php', SendData);
  except
    if http.ResponseCode = 302 then
    begin
      http.Get('http://www.mts.com.ua' + http.Response.Location);
    end;
  end;
  ShowMessage('Сообщение отправлено');
  SendData.Free;
  http.Compressor.Free;
  http.Free;
end;

end.

[gufon]

GetCaptcha;

а где можно почитать наример про это

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

эмм, а что читать?
в коде этот метод есть.

[gufon]

в коде этот метод есть.

А что это значит

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

процедура GetCaptcha есть в коде.