[delphi] Передача реального реферера

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by mskws, 24 Jul 2012.

  1. mskws

    mskws New Member

    Joined:
    3 Jul 2012
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    Здравствуйте. Имеется сайт, на котором установлен счётчик LiveInternet, требуется чтобы при входе на данный сайт через webbrowser1, в программе, передавался определённый реферер, и счётчик это учитывал. Использую стандартный компонент webbrowser1 в delphi.

    В гугл просьба не отправлять, стандартные варианты не прокатывают, просьба по делу. :cool:
     
  2. Kandi

    Kandi Member

    Joined:
    18 Nov 2009
    Messages:
    344
    Likes Received:
    17
    Reputations:
    0
    Сам не пробовал, но говорят работает нормально....

    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    var
      Flags, Headers, TargetFrameName, PostData: OLEVariant;
      Url, Ref: string;
      IEApp: OLEVariant;
    begin
      Flags := '1';
      TargetFrameName := '';
      PostData := '';
      Url := 'http://www.dach.de/weiterempfehlen.php';
      Ref := 'http://www.dach.de/';
      // u cannot navigate to the url above without this referer
      Headers := 'Referer: ' + Ref + #10 + #13;
      Webbrowser1.Navigate(Url, Flags, TargetFrameName, PostData, Headers);
    end;
    
     
  3. mskws

    mskws New Member

    Joined:
    3 Jul 2012
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    Пробывал. Liveinternet не видит такого реферера( помогите пожалуйста очень нужно.
    Возможно за небольшое вознаграждение.
     
  4. Kandi

    Kandi Member

    Joined:
    18 Nov 2009
    Messages:
    344
    Likes Received:
    17
    Reputations:
    0
    Возьми сделай запрос просто толковый на Liveinternet через Indy не морочь себе голову. Или хорошенько погугли гугл, что бы быть в курсе как работать с twebbrowser ...