Скачивать веб-страницы прикинувшись браузером

[resident]

Здравствуйте!

Можно ли как-то прикинуться браузером при скачивании веб-страниц?
Использую библиотеку synapse, там функцию HttpGetText из модуля HTTPSend.

При запросе сервер видит, что лазарусовская программа - не браузер (а synapse), и выдает сообщение о запрете. Браузер при этом страницы открывает.

[скалогрыз]

Придёться использовать THTTPSend и выставлять желаемый сервером UserAgent.
это минимум.
Сервер так же может проверять reference в заголовоке HTTP запроса или даже какие-нибудь куки.

[sign]

Я вот так "прикидываюсь":

Код: Выделить всё

var
  MyHTTPSend: THTTPSend = nil;
...
procedure TfCTO.LoadHttpCTO;
var D: THttpData;
begin
  if not Assigned(MyHTTPSend) then MyHTTPSend := THTTPSend.Create;
  D.LoginData := 'Username=хххх&Password=хххххх&id=1&pincode=1111';
  D.UserAgent := 'Mozilla/5.0 (Windows NT 5.1; rv:29.0) Gecko/20100101 Firefox/29.0';
  D.TargetHost := TargetHost;
  if D.Post(MyHTTPSend, ldRefererCTO + 'login_post.asp') then 

[resident]

Спасиб, работает )