Каким образом можно проверить 301 редирект для переноса домена ? Убедиться в том, что редирект именно с кодом 301 ?
Вот за пару минут написал маленький софтик на проверку 301 ошибки, кому надо качаем даже с исходником. Накарябал на Delphi7 Скачать
Ахах. Кармадрочинг как он есть. Поэтому я по прежнему ходатайствую за отмену рейтинга. Тогда люди будут пользоваться форумом для общения и обмена инфой а не для прокачки аккаунта. Бедняга наверное думал, что ему за кодинг программы баллов репутации накинут. Открой новую закладку в браузере. Открой инструменты разработчика -> Сеть. Зайди на сайт. В списке http-запросов будет виден и твой редирект. Пример на скриншоте (редирект с хттп на хттпс):
Смотрим код и обращаем внимание на эту строку: if (http.ResultCode=301) then Result:=True; где говорится если у нас ошибка 301 то результат верен. После применяем функцию Checkredirekt говоря если мы применяем нашу функцию и выдаёт она True то адрес с ошибкой 301, если False то без ошибки. Если бы ты был кодером, открыл бы исходник и там всё понятно написано. Code: function Checkredirekt(url:string):Boolean; var http:THTTPSend; begin Result:=False; try http:=THTTPSend.Create; http.UserAgent:='Opera/9.80 (Windows NT 6.0) Presto/2.12.388 Version/12.14'; http.HTTPMethod('GET',url); if (http.ResultCode=301) then Result:=True; finally http.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if Edit1.Text='' then ShowMessage('Вы не указали URL') else begin if Checkredirekt(Edit1.Text) then ShowMessage('Редирект') else ShowMessage('Не ридирект'); end; end; end. Смотрим: Как видно на скринах 405 и 302 ошибка как и на Вашем скрине 302 и результат программа не выдала положительный т.к выдаст его только при ошибки 301. Так же pas9x обрати внимание на название темы, пользователю не нужен редирект при выдачи 302 ошибки, а ему нужно при выдаче 301 ошибки. pas9x - если не разбираешся и лень прочитать полностью название темы и что просят то лучше не пиши бред. Разбираем дальше тему: Если нам надо проверить линк на 301 ошибку с https то в uses добавляем ssl_openssl и кидаем рядом с программой три *.dll файла по работе с SSL сертификацией это libeay32.dll, libssl32.dll и ssleay32.dll. Смотрим скрин: А теперь рассмотрим скриншот редиректа с 301 ошибкой: P.S: Балы я не зарабатываю мне это не надо...
Лол. Предлагаю обратить внимание на раздел форума и текст топика. ТС просто сделал редирект откуда-то куда-то и в целях сео ему нужен код 301 при редиректе, в чём он и хочет убедиться. Еслиб ему нужен был код он-бы создал топик в разделе программирование а не сео. Конечно можно написать код на ассемблере, запустить его на микроконтроллере с выводом на контакты 1 или 0 при совпадении/несовпадении хттп-кода, но ЗАЧЕМ? В том, что ты крутой программист никто не сомневается, только не надо стрелять из BFG по воробьям.
В том то и дело не надо ему плясать с бубном заглядывая в инструменты разработчика -> Сеть и копаться в лишнем хламе, а просто скачать программку, вставить url, нажать на кнопку и она покажет есть 301 ошибка или нету.
ТС занимается созданием сайтов. Это не пляски с бубном а простейшая минутная операция которую крайне желательно знать любому веб-мастеру. Ой да ладно тебе. Много таких как ты на форуме в последнее время. То запусти, другое открой - прям тенденция. Давай уж сразу по честному "я тут накодил бекдор, запустите его кто-нибудь".
Еслиб я хотел впарить бегдор то исходник не приложил и прежде чем обвинять проанализируй скомпиленный проект, а так твои обвинение беспочвенны и голословны. Я дорожу своей репутацией как кодер, продавец своего продукта и как глава группы RedPro по написанию софта на заказ, по этому я бы даже в мыслях не задумал такое, что ты написал.
А тут дилема выходит. Либо я тупо запускаю твой экзешник и рискую заразиться, либо: 1) Искать и качать делфи, установить его 2) Загуглить и установить либу Synapse 3) Проверить и скомпилировать твой код Вопрос: а оно ТСу надо? Серьёзно?) А компилировать софтину - в твоём понимании это, видимо, не пляски с бубном. Это не обвинения. Просто здравомыслящий человек не станет запускать хрен пойми какой экзешник. А то что ты написал брутер на делфи - не даёт тебе авторитета как у Линуса Торвальдса.
1.Я написал не одну сотню-тысячу софтов и не один десяток стоит на продаже на моём сайте, а не один микст это здесь стоит только один микс. 2.Что бы не ПУСТАБАЛАБОЛИТЬ предъяви обвинения, что я впариваю вирусню и декомпельни проект и дакожи это, а так ты являешся лишь балаболом. 3.Так спроси я дам и ссылку на Delphi7 и Synapse в плоть обрисую как его поставить раз ты такой не доверчивый. Если ты обвиняешь меня в впаривании вирусни то либо декомпильни проект и докажи, что ты не балабол, либо установи Delphi7 и Synapse и докажи, что там кроме выше указанного кода есть и вредоносный. Щас практически у всех для испытания софта стоят виртуалки, если у тебя не стоит то поставь VMware Workstation либо любую другую и запусти там в чём проблема и твоя не здоровая мания ко всем и вся исчезнет и софт испытаешь там и декомпельнуть сможешь не боясь за свой ПК. Я не понимаю малолеток как ты не ужели мне дядьки которому 38 лет есть смысл на такую детскую фигню и повторю портить свою семи летнюю репутацию по написанию софта на заказ я бы не когда не стал. Вот тебе не поленился залил Delphi7 + Synapse
