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(owner); 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;
|
