Работа с библиотекой Synapse в Delphi - начало

Обычно для работы с инетом в своих приложениях я использую компоненты Indy или сокеты. И вот решила, что неплохо было бы расширить свой кругозор и познакомиться с другими библиотеками (и будет вдвойне приятно, если это знакомство окажется полезным).

Первое, что я решила опробовать, это библиотека Synapse. Я уже не раз встречала упоминания о ней, но все как-то не доводилось поработать.

Скачиваем, устанавливаем.

Установка Synapse

(в моем случае на старенький Delphi 7).

1. Распаковать архив в какую-нибудь папку (в Source, например)
2. В меню идем Tools - Environment Options - Library и добавляем в Library Path путь к папке ..Source\SYNAPSE\LIB
3. В новосозданном проекте добавляем в Uses-ы httpsend и synacode (при надобности).

Пришло время "HelloWorld"-а.

Простые примеры кода с использованием Synapse

Давайте начнем с самых простых вещей - с получения содержимого страницы.

Поместим на форму кнопку и TMemo, добавим в uses httpsend, напишем обработчик нажатия кнопки:

procedure TMainF.Button1Click(Sender: TObject);
begin
  if not HttpGetText('http://parsing-and-i.blogspot.com', Memo1.Lines) then
    ShowMessage('Что-то не получилось.');
end;

После нажатия на кнопку в мемо появилось содержимое страниц. Старт взят: с помощью HttpGetText задачу выполнили.

Дальнейшее изучение библиотеки можно проводить так — заглянуть непосредственно в файл библиотеки (httpsend.pas). Главным классом является THTTPSend. Даже просто изучив его структуру, можно понять принципы работы и возможности.

Итак, HTTPSend.Document возвращает содержимое всего документа. Поэкспериментируем с использованием еще каких-нибудь элементарных функций. Например, получим заголовок страницы и отдельно код ответа.

procedure TMainF.Button2Click(Sender: TObject);
var
  HTTP: THTTPSend;
  Res : boolean;
begin
  HTTP := THTTPSend.Create;
  try
    Res := HTTP.HTTPMethod('GET', Edit1.Text);
    if Res then
      begin
        Memo1.Lines.AddStrings(HTTP.Headers);
        Edit2.Text := IntToStr(HTTP.ResultCode);
      end
  finally
    HTTP.Free;
  end;
end;

Задание было несложным. А сейчас попробуем в строке для ввода url набрать "http://yandex.ru". Как известно, если адрес яндекса набирать без "www", то перманентно будет произведен редирект на адрес с "www".

В indy есть удобное свойство. Там если

idHTTP.HandleRedirects := true;

то все редиректы будут обрабатываться автоматически (кто работает с php - в cURL такой параметр тоже есть). А здесь мы наблюдаем:

И никакого HandleRedirects.

Пробуем самостоятельно обработать ситуацию, когда код ответа совпадет с кодом редиректа. Знаем, что в заголовке есть параметр Location, в котором будет указано новое местоположение страницы. Определим новый location, распарсив заголовок.

procedure TMainF.Button2Click(Sender: TObject);
var
  HTTP    : THTTPSend;
  Res     : boolean;
  n       : integer;
  NewUrl  : string;
begin
  HTTP := THTTPSend.Create;
  // HTTP.UserAgent:= GetRandomUseragent;
  try
    Res := HTTP.HTTPMethod('GET', Edit1.Text);
    if Res then
      begin
        Memo1.Lines.AddStrings(HTTP.Headers);
        Edit2.Text := IntToStr(HTTP.ResultCode);
        // если код ответа 3XX (т.е. есть редирект)
        case HTTP.Resultcode of
          301, 302, 307:
            begin
              n := FoundLocationStrNum(HTTP.Headers);
              if (n >= 0) and (n <= HTTP.Headers.count) then // если в хэдере найдена строка с локейшеном
                begin
                  NewUrl := StringReplace(HTTP.Headers.Strings[n],'Location: ','',[]);
                  Edit3.Text := NewURL;
                end
              else
                ShowMessage('В заголовке не найдена ссылка для редиректа');
            end;
        end;
      end
  finally
    HTTP.Free;
  end;
end;

где

function FoundLocationStrNum(Headers: TStringlist): integer;
var
  FoundStrPos, i   : integer;
begin
  Result:= -1;
  // ищем в заголовке строку, начинающуюся с "Location: "
  for i := 0 to Headers.Count do
  begin
    FoundStrPos := Pos('Location: ', Headers.Strings[i]);
    if FoundStrPos > 0 then
    begin
      Result:= i; // номер строки, в которой указан Location
      exit;
    end;
  end;
end;

По идее, в том месте, где я для примера вывела в edit3 новый URL, надо снова запрашивать страницу, проверять хэдер и так далее (и все это желательно с учетом максимального количества редиректов). Для этого понадобится написание рекурсивной функции или применение готовых "оберток". Наверняка в сети есть готовые библиотеки для облегчения использования Synapse. Попытаюсь к следующему разу собрать какой-нибудь материал и привести пример работы, сейчас уже не хочется с этим возиться. Главное, что сегодня произошло знакомство с библиотекой и базовыми принципами работы с ней.

Если вы знаете какие-нибудь удобные библиотеки для работы с Synapse — буду рада ссылкам на них в комментариях.

____

 Чтобы быть в курсе обновлений блога, можно подписаться на RSS.

Статьи схожей тематики: