На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Соблюдайте общие правила форума
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

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

Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы


Выразить свое отношение к модераторам раздела можно здесь: user posted image Krid, user posted image Rouse_

Модераторы: Krid, Rouse_
  
> залогиниться на роутер
    Добрый день. есть роутер в локальной сети. пытаюсь залогинится через дельфи idhttp но увы не получается
    Скрин:
    https://yadi.sk/i/bEVcOkSatXra4w

    ExpandedWrap disabled
      idhttp1.Request.BasicAuthentication :=true;
       
       idhttp1.HandleRedirects := true;
        idhttp1.AllowCookies := true;
        idhttp1.Request.Accept := Accept;
        idhttp1.Request.AcceptEncoding := AcceptEncoding;
        idhttp1.Request.AcceptLanguage := AcceptLanguage;
        idhttp1.Request.BasicAuthentication := True;
      idhttp1.Request.Accept:= Accept;
      idhttp1.Request.AcceptLanguage:= AcceptLanguage;
      idhttp1.Request.AcceptEncoding:= AcceptEncoding;
      idhttp1.Request.Connection:= Connection;
       
      idhttp1.Request.Authentication := TIdBasicAuthentication.Create;
       
      idhttp1.Request.Username:='admin';
      idhttp1.Request.Password:='cb584ff3324cbd8be1b448f6ecd0ce0a';
      idhttp1.HandleRedirects:=true;
       
       
       
      body:=IdHTTP1.get('http://192.168.1.1/');
      А зачем ты 2 раза 1 и тот-же код пишешь?
      Попробуй просто:

      ExpandedWrap disabled
        IdHTTP1.Request.Clear;
        IdHTTP1.Request.BasicAuthentication:= true;
        IdHTTP1.Request.UserName := UserName;
        IdHTTP1.Request.Password := Password;
      "Воля - это то, что заставляет тебя побеждать, когда твой рассудок говорит тебе, что ты повержен" Карлос Кастанеда
        Цитата Emmys @
        но увы не получается

        Что, так и пишет прямо на десктопе - "увы не получается"?
        Codero ergo sum
        // Программирую — значит, существую
          Пишет 401. не удача авторизации.
            Сниффер
            Залогиниться там, где получается
            Попробовать залогиниться из программы
            Сравнить содержимое
            Codero ergo sum
            // Программирую — значит, существую
              А какой именно там способ авторизации применяется? Их же много достаточно, не только Basic Auth.
              Windows as usual - my "wau" Windows experience
              1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
              0 пользователей:


              Рейтинг@Mail.ru
              [ Script Execution time: 0,0784 ]   [ 15 queries used ]   [ Generated: 19.01.20, 22:07 GMT ]