Куки Synapse

[Pearl777]

Здравствуйте! Есть вот такое код авторизации на synapse для сайта turbobit. Авторизация происходит но без куки. Из-за этого не могу спарсить прямую ссылку на файл. Как можно решить эту проблему???

procedure TForm1.Button1Click(Sender: TObject);
var
  HTTP: THTTPSend;
  Res: boolean;
  s: TStringList;
  str: string;
begin
  HTTP := THTTPSend.Create;
  s := TStringList.Create;
  try
    str := EncodeUrl('user[login]=' +
      { Edit1.Text } 'b2141395@rmqkr.net' + '&user[pass]=' +
      { Edit2.Text } '12345678' + '&user[submit]=' + utf8encode('Войти'));
    HTTP.Document.Write(pointer(str)^, length(str));
    HTTP.Headers.Clear;
    HTTP.MimeType := 'application/x-www-form-urlencoded';
    Res := HTTP.HTTPMethod('POST', 'http://turbobit.net/user/login');
    if Res then
    begin
      if pos('location: /login', AnsiLowerCase(HTTP.Headers.Text)) > 0 then
        ShowMessage('Превышен лимит входов')
      else
      begin
        HTTP.Headers.Clear;
        Res := HTTP.HTTPMethod('Get', 'http://turbobit.net/');
        if Res then
        begin
          s.LoadFromStream(HTTP.Document);
          if pos('logout', s.Text) <> 0 then
            ShowMessage('Добро пожаловать')
          else
            ShowMessage('Пароль неверный!');
        end;
      end;
    end;
  finally
    HTTP.Free;
    s.Free;
  end;
end;

[Lardes]

У синапса вообще нет проблем с куками. Коли ты авторизовался, сохрани куки в переменную, ну или в файл и добавляй куки, когда начнешь качать ссылки

[BDA]

Тут THTTPSend создается и уничтожается при нажатии на кнопку. Если скачивание файла находится на другой кнопке, то сами собой куки не передадутся между разными объектами.
Лучше тогда создать THTTPSend в Oncreate формы, а уничтожать в Ondestroy. Тогда не нужно будет заботиться о сохранении куков.

[Pearl777]

Lardes, Можно пример, пожалуйста! А то я не очень в этом разбираюсь, пока ещё новичок в delphi.

[BDA]

Все куки хранятся в THTTPSend.Cookies. Это стринглист. THTTPSend.Cookies.Text - строка со всеми куками.

[Pearl777]

Куки получил, а как теперь их отправить на сервер вместе с Post запросом авторизации?

[BDA]

Если у Вас и правда ДВА РАЗНЫХ httpsend'а, то при скачивании файла, нужно строчку с куками назначить httpsend'у (задать httpsend.cookies.text), предварительно сохранив куки в коде авторизации.

[Pearl777]

Можно ли какой нибудь пример? Так как не совсем все понимаю.

[BDA]

По-моему, легче использовать 1 httpsend:

var
  Form1: TForm1;
  HTTP: THTTPSend;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  Res: boolean;
  s: TStringList;
  str: string;
begin
  s := TStringList.Create;
  try
    str := EncodeUrl('user[login]=' +
      { Edit1.Text } 'b2141395@rmqkr.net' + '&user[pass]=' +
      { Edit2.Text } '12345678' + '&user[submit]=' + utf8encode('Войти'));
    HTTP.Document.Write(pointer(str)^, length(str));
    HTTP.Headers.Clear;
    HTTP.MimeType := 'application/x-www-form-urlencoded';
    Res := HTTP.HTTPMethod('POST', 'http://turbobit.net/user/login');
    if Res then
    begin
      if pos('location: /login', AnsiLowerCase(HTTP.Headers.Text)) > 0 then
        ShowMessage('Превышен лимит входов')
      else
      begin
        HTTP.Headers.Clear;
        Res := HTTP.HTTPMethod('Get', 'http://turbobit.net/');
        if Res then
        begin
          s.LoadFromStream(HTTP.Document);
          if pos('logout', s.Text) <> 0 then
            ShowMessage('Добро пожаловать')
          else
            ShowMessage('Пароль неверный!');
        end;
      end;
    end;
  finally
    s.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  HTTP := THTTPSend.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  HTTP.Free;
end;

[Pearl777]

Спасибо большое за помощь!! Прошу так же помочь с парсером.
Вот у меня есть парсер на indy

var
a,b:string; c,d:integer;
begin
a := IdHTTP1.Get('http://turbobit.net/0xxnjwwd14gn.html');
c := Pos ('<h1><a href=',a);
d := Pos ('><b',a);
b := Copy(a,c+29, d - c - 29);
Memo1.text := b;

Помогите переделать его под Synapse. Пробовал вместо первой строки написать вот такой код:

a := HTTP.HTTPMethod('Get','http://turbobit.net/0xxnjwwd14gn.html');

Но он не работает.