Отправка смс

[cargo29]

Привет всем, хотелось бы сделать программку что бы можно было отправлять смс через официальные сайты, то есть все так же остаеться номер телефона, поле для сообщения, и капча, затруднение пока возникло как получить код картинку??? и потом вывести ее в Image
вот например МТС сайт вот
http://www.tyumen.mts.ru/sendsms/

код страницы не могу ставить много символов, поэтому дал ссылку


использовал компонент IDHTTP и можно ли сразу с сайта загрузить в Image ??? я в этом еще очень плохо шарю кому не трудно поможете?

[dosha]

ты сначал капчу отфильтруй и загрузи в Image. А потом постом шли смс со значением капчи

[cargo29]

Сообщение от dosha

ты сначал капчу отфильтруй и загрузи в Image. А потом постом шли смс со значением капчи

я хочу как, капча это раз картинка ее сохраняю как картинку в директории где сама программа потом загружаю в Image но как сохранить ее я не могу разобрать?

[kangreon]

на форрме Image1

uses
  StrUtils, jpeg, IdHTTP;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  http: TIdHTTP;
  jpeg: TJPEGImage;
  ms: TMemoryStream;
  page, captchaUrl: string;
  i: integer;
begin
  // Создание экземпляров классов
  http := TIdHTTP.Create;
  jpeg := TJPEGImage.Create;
  ms := TMemoryStream.Create;

  http.Request.UserAgent := 'Opera/9.80';
  http.HandleRedirects := True;
  http.AllowCookies := True;

  // Загрузка страницы с капчей и
  // вытаскивание URL капчи
  page := http.Get('http://www.tyumen.mts.ru/sendsms/');
  i := PosEx('LBD_CaptchaImage', page);
  i := PosEx('src=', page, i) + 5;
  captchaUrl := Copy(page, i, PosEx(#39, page, i) - i);
  captchaUrl := StringReplace(captchaUrl, '&', '&', [rfReplaceAll]);

  // Загрузка капчи
  http.Get('http://www.tyumen.mts.ru/sendsms/' + captchaUrl, ms);
  ms.Position := 0;
  jpeg.LoadFromStream(ms);
  Image1.Picture.Assign(jpeg);

  jpeg.Free;
  ms.Free;
end;

[cargo29]

у тебя запускается? я что то не могу запустить пишет не актульные параметры
вот эту строчку подчеркивает
http:= TIdHTTP.Create;

[gufon]

а ты добавил TIdHTTP????

[cargo29]

Сообщение от gufon

а ты добавил TIdHTTP????

Да все есть... не запускается

[Volt]

добавьте

 http := TIdHTTP.Create(owner);

[exn]

cargo29,
Ну это и не удивительно, что у тебя не работает, у тебя обычно все не работает, даже ShowMessage, наверное не заработает. )

[cargo29]

Сообщение от exn

cargo29,
Ну это и не удивительно, что у тебя не работает, у тебя обычно все не работает, даже ShowMessage, наверное не заработает. )

да не говори .... )))) нет с выводом сообщения я на ты.... =) а с кодом страниц работать я ни как...