Интересное в сети
Форум happy-hack.ru
Мы Вконтакте
Посетители

Сейчас на сайте: 8
Пользователей: 0
Гостей: 7

Пользователи онлайн: 


- отсутствуют

Гости (20 последних): 



Роботы: 

Статистика




Чат

Чтобы оставлять сообщения - зарегистрируйтесь
  • GestapoEfsane
    23 авг 2023, 22:05
    *Maxonix, konu nedir ?
    • GestapoEfsane
      23 авг 2023, 22:02
      Mehabalar bendeniz yeni ?yeyim :)
      • NeOnAdMiNcHaOs
        15 авг 2023, 15:42
        Жесть, 11 лет на форуме, не заходил последние 10 лет, как быстро время идёт.
        • darla
          4 июл 2023, 18:39
          админ, что такое буксы? и как грубо говоря оптом регать аккаунты тг через авито? наткнулся на статью, хочется начать как-либо зарабатывать в интернете, подскажи pls(
          • barbaddos1
            8 июн 2023, 13:06
            *admin, хай
            • admin
              22 апр 2023, 22:46
              *Diablomy, привет дружище
              • Diablomy
                22 апр 2023, 14:50
                смайликом промахнулся
                • Diablomy
                  22 апр 2023, 14:49
                  Фигасе, лет 10 меня не было тут admin привет!
                  • admin
                    10 апр 2023, 05:55
                    *voska89, no
                    • voska89
                      10 апр 2023, 01:41
                      Helli admin ! PLease upgrade my account to group uploader . I am uploader soft and ebook
                      • admin
                        2 мар 2023, 23:18
                        *Ytkanos1337, сайту 12 лет и некоторые старые и неактуальные на сегодняшний день разделы и темы могут быть удалены.
                        • Ytkanos1337
                          28 фев 2023, 13:41
                          Почему "Внимание! Обнаружена ошибка
                          Пользователи не имеют доступа для просмотра статей из данного раздела." ?
                          • Proton
                            22 фев 2023, 00:25
                            Кому нужен ворк пишите мне
                            • valery17
                              16 фев 2023, 16:32
                              На сайте очень много битых ссылок. Непорядок!
                              • Джакомо
                                12 янв 2023, 12:28
                                Собираю команду. цель убийство сайта миротворец !
                                • tversetty
                                  9 янв 2023, 13:41
                                  я на триаланет еще сидел и уфолабс, были 3 самых топовых сайта на dle. сейчас одни форумы, я рот ебал их
                                  • tversetty
                                    9 янв 2023, 13:37
                                    у тебя же сайт за клаудфларой, почему боишься яровой?
                                    • tayfun221
                                      8 окт 2022, 18:29
                                      Всем привет как выложить видео в тик ток ?
                                      • Maxonix
                                        2 сен 2022, 03:15
                                        Нужно задать алгоритм, чтобы с нужного сайта мне такие картинки прислало
                                        • Maxonix
                                          2 сен 2022, 03:15
                                          Тут кто нибудь может помочь , а то ни разобрался?
                                          • Maxonix
                                            2 сен 2022, 03:14
                                            Всем привет
                                            • Twiksar
                                              24 авг 2022, 12:38
                                              Кто знает, как покупать на Амазоне бесплатно? Помогите пожалуйста, буду очень благодарен.
                                              • Kvakowski
                                                6 авг 2022, 21:29
                                                • Hades1234
                                                  21 июл 2022, 22:52
                                                  для соц сетей номера телефонов. По ключевым фразам. Помню были на форуме проги.
                                                  • Hades1234
                                                    21 июл 2022, 22:51
                                                    Ребят подстажите парсер
                                                    • Hades1234
                                                      21 июл 2022, 22:51
                                                      Всем привет!
                                                      • Братишка
                                                        2 июл 2022, 18:47
                                                        Как мариноват огурци
                                                        • MAZAXAKER
                                                          21 июн 2022, 21:04
                                                          Admin, передай привет SyGaK. ИНШААЛЛАХ!
                                                          • admin
                                                            14 июн 2022, 10:17
                                                            • marselshou
                                                              6 июн 2022, 16:55
                                                              у кого есть прога Atomic Warez Leecher? дайте пж вк od marselshowyoutube
                                                              Опрос на сайте
                                                              Как Вы нашли нас?

                                                              Использование прокси в программе

                                                              Автор: admin | Дата: 25-12-2011, 10:03 | Комментариев: 0 | Просмотров: 6 472
                                                              Сейчас покажу, как нужно использовать различные типы прокси в запросах на Indy. Прокси будем брать из Edit1 и делить на адрес и порт.
                                                              Самое простое это использовать HTTP-прокси:

                                                              IdHTTP1.ProxyParams.ProxyServer:=Copy(Edit1.Text,1,Pos(':',Edit1.Text)-1);
                                                              IdHTTP1.ProxyParams.ProxyPort:=StrToInt(Copy(Edit1.Text,Pos(':',Edit1.Text)
                                                              +1,Length(Edit1.Text)));


                                                              Всё предельно понятно и просто.

                                                              Для использования SOCKS4 и SOCKS5 кроме компонента IdHTTP1 требуются компонент IdSocksInfo (вкладка Indy Misc) и компонент IdSSLIOHandlerSocketOpenSSL (вкладка Indy I/O Handlers).
                                                              В IdSocksInfo указываем тип прокси (svSocks4 или svSocks5), адрес и порт, а также выставляем свойство Authentication в saNoAuthentication:

                                                              IdSocksInfo1.Version:=svSocks4;
                                                              IdSocksInfo1.Host:=Copy(Edit1.Text,1,Pos(':',Edit1.Text)-1);
                                                              IdSocksInfo1.Port:=StrToInt(Copy(Edit1.Text,Pos(':',Edit1.Text)+1,
                                                              Length(Edit1.Text)));
                                                              IdSocksInfo1.Authentication:= saNoAuthentication;


                                                              И присоединяем IdSocksInfo1 к IdSSLIOHandlerSocketOpenSSL1, а IdSSLIOHandlerSocketOpenSSL1 к IdHTTP1:

                                                              IdSSLIOHandlerSocketOpenSSL1.TransparentProxy:=IdSocksInfo1;
                                                              IdHTTP1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;


                                                              После этого можно делать запрос. Запрос я делал на страницу moi-ip.ru, где на странице отображается IP запрашиваемого. И парсим из ответа IP адрес, который выводим в Memo. Если всё верно и прокси хороший, то используемый прокси и выведенный в Memo должны совпасть.

                                                              Использование прокси в программе


                                                              В качестве бонуса в программе показано, как можно показывать прогресс получения ответа сервера. Он отображается в компоненте Gauge (можно также использовать ProgressBar). В самом начале запроса (IdHTTP1WorkBegin) из заголовков ответа сервера из поля Content-Length берем длину получаемого ответа (обращаю внимание, что такого заголовка может не быть, а значит не всегда можно знать, какой длины будет ответ). И свойству MaxValue присваиваем это значение:

                                                              Gauge1.MaxValue:=strtoint(Pars('Content-Length: ', idhttp1.Response.RawHeaders.Text, #13#10));


                                                              А во время получения ответа (IdHTTP1Work) (а приходит он частями) изменяем свойство Progress:

                                                              Gauge1.Progress:=AWorkCount;


                                                              В результате у нас будет наглядное изображение прогресса загрузки страницы.

                                                              [Скачать] исходник взято с avtuh.ru

                                                              Пароль на все архивы: hh


                                                              Теги: delphi proxy

                                                              Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь.
                                                              Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
                                                              • Написал: ingushmen
                                                              • Дата: 7 июля 2012 00:05
                                                              • Новостей: 6
                                                              • Комментариев: 94
                                                              IdSSLIOHandlerSocketOpenSSL в делфи 7 нет. Надо качать инди 10
                                                              • Написал: GlobaToR
                                                              • Дата: 11 октября 2012 20:57
                                                              • Новостей: 0
                                                              • Комментариев: 3
                                                              Вопрос.
                                                              Если делать программу с выбором прокси (пример, RadioButton1 это HTTP (S), а RadioButton2 аналогичный первому Socks 4/5), то работать с if?

                                                              Еще один вопрос.
                                                              Как брать прокси из переменной (к примеру, Proxy) вида TSringList? (так же как и Memo)?
                                                              • Написал: klychev
                                                              • Дата: 11 октября 2012 21:06
                                                              • Новостей: 13
                                                              • Комментариев: 72
                                                              GlobaToR, Да.

                                                              Для примера:
                                                              if Proxy>=ProxyList.Count then
                                                              begin
                                                              Proxy:=0;
                                                              end
                                                              else
                                                              begin
                                                              Form1.IdSocksInfo1.Version:=svSocks5;
                                                              Form1.IdSocksInfo1.Host:=Copy(ProxyList[Proxy],1,Pos(':',ProxyList[Pro
                                                              xy])-1);
                                                              Form1.IdSocksInfo1.Port:=StrToInt(Copy(ProxyList[Proxy],Pos(':',ProxyL
                                                              ist[Proxy])+1,Length(ProxyList[Proxy])-Pos(':',ProxyList[Proxy])));
                                                              Form1.IdSocksInfo1.Authentication:=saNoAuthentication;
                                                              end;
                                                              Добавление комментария
                                                              Имя:*
                                                              E-Mail:
                                                              • bowtiesmilelaughingblushsmileyrelaxedsmirk
                                                                heart_eyeskissing_heartkissing_closed_eyesflushedrelievedsatisfiedgrin
                                                                winkstuck_out_tongue_winking_eyestuck_out_tongue_closed_eyesgrinningkissingstuck_out_tonguesleeping
                                                                worriedfrowninganguishedopen_mouthgrimacingconfusedhushed
                                                                expressionlessunamusedsweat_smilesweatdisappointed_relievedwearypensive
                                                                disappointedconfoundedfearfulcold_sweatperseverecrysob
                                                                joyastonishedscreamtired_faceangryragetriumph
                                                                sleepyyummasksunglassesdizzy_faceimpsmiling_imp
                                                                neutral_faceno_mouthinnocent
                                                              Вопрос: 3 прибавить одиннадцать и всё это разделить на два (ответ прописью).
                                                              Ответ:*
                                                              Введите два слова, показанных на изображении: *