В ожидании ответа Хелп с кодом

  • На форуме работает ручное одобрение пользователей. Это значит, что, если Ваша причина регистрации не соответствует тематике форума, а также Вы используете временную почту, Ваша учётная запись будет отклонена без возможности повторной регистрации. В дальнейшем - пожизненная блокировка обоих аккаунтов за создание мультиаккаунта.
  • Мы обновили Tor зеркало до v3!
    Для входа используйте следующий url: darkv3nw2...bzad.onion/
  • Мы вновь вернули telegram чат форуму, вступайте, общайтесь, задавайте любые вопросы как администрации, так и пользователям!
    Ссылка: https://t.me/chat_dark_time

AnGel

Администратор
Команда форума

AnGel

Администратор
Команда форума
27 Авг 2015
3,410
2,024
SIyfox, а как думаешь, почему?
 

MrSmitix

Юзер

MrSmitix

Юзер
14 Сен 2015
301
89
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
И какой для тебя нормальный язык? :D c++?
Ну если хочешь прожить в одиночестве - C++
Иногда выходить на улицу в облике человека - C#
Иметь кучу друзей и на изи писать небольшие тулзы - Python
 
21 Окт 2015
299
102
Установлен,без него было примерно 10 ошибок
обычный способ спарсит прокси
Код:
procedure TForm1.sButton1Click(Sender: TObject);
var
  HTTP: TIdHTTP;
  Proxy: String;
begin
  Formatsettings.TimeSeparator := '.';
  TimeToStr(Time);
  HTTP := TIdHTTP.Create(nil);
  if Form1.sComboBox1.Text = 'PROXIES by gyver' then
  begin
    if Form1.sComboBox2.Text = 'HTTPS' then
    begin
      sMemo1.Clear;
      Proxy := HTTP.Get('http://217.21.179.143/dark-time.com/HTTPS.txt');
      sMemo1.Lines.Add(Proxy);
      Createdir(ExtractFilePath(Application.ExeName) + 'Прокси парсер');
      sMemo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + '\Прокси парсер\PROXIES by gyver [ ' + Form1.sComboBox2.Text + ' ] - [ ' + DateToStr(Date) + ' - ' + TimeToStr(Time) + ' ].txt');
      showmessage('Прокси сохранены в папку' + ' - ' + 'Прокси парсер');
    end;
    if Form1.sComboBox1.Text = 'PROXIES by gyver' then
   begin
    if Form1.sComboBox2.Text = 'SOCKS' then
    begin
      sMemo1.Clear;
      Proxy := HTTP.Get('http://217.21.179.143/dark-time.com/SOCKS.txt');
      sMemo1.Lines.Add(Proxy);
      Createdir(ExtractFilePath(Application.ExeName) + 'Прокси парсер');
      sMemo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + '\Прокси парсер\PROXIES by gyver [ ' + Form1.sComboBox2.Text + ' ] - [ ' + DateToStr(Date) + ' - ' + TimeToStr(Time) + ' ].txt');
      showmessage('Прокси сохранены в папку' + ' - ' + 'Прокси парсер');
    end;
   end;
  end;
end;
скриншот
Посмотреть вложение 29119
 
Последнее редактирование модератором:

SIyfox

Участник

SIyfox

Участник
25 Апр 2017
89
46
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
обычный способ спарсит прокси
Код:
procedure TForm1.sButton1Click(Sender: TObject);
var
  HTTP: TIdHTTP;
  Proxy: String;
begin
  Formatsettings.TimeSeparator := '.';
  TimeToStr(Time);
  HTTP := TIdHTTP.Create(nil);
  if Form1.sComboBox1.Text = 'PROXIES by gyver' then
  begin
    if Form1.sComboBox2.Text = 'HTTPS' then
    begin
      sMemo1.Clear;
      Proxy := HTTP.Get('http://217.21.179.143/dark-time.com/HTTPS.txt');
      sMemo1.Lines.Add(Proxy);
      Createdir(ExtractFilePath(Application.ExeName) + 'Прокси парсер');
      sMemo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + '\Прокси парсер\PROXIES by gyver [ ' + Form1.sComboBox2.Text + ' ] - [ ' + DateToStr(Date) + ' - ' + TimeToStr(Time) + ' ].txt');
      showmessage('Прокси сохранены в папку' + ' - ' + 'Прокси парсер');
    end;
    if Form1.sComboBox1.Text = 'PROXIES by gyver' then
   begin
    if Form1.sComboBox2.Text = 'SOCKS' then
    begin
      sMemo1.Clear;
      Proxy := HTTP.Get('http://217.21.179.143/dark-time.com/SOCKS.txt');
      sMemo1.Lines.Add(Proxy);
      Createdir(ExtractFilePath(Application.ExeName) + 'Прокси парсер');
      sMemo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + '\Прокси парсер\PROXIES by gyver [ ' + Form1.sComboBox2.Text + ' ] - [ ' + DateToStr(Date) + ' - ' + TimeToStr(Time) + ' ].txt');
      showmessage('Прокси сохранены в папку' + ' - ' + 'Прокси парсер');
    end;
   end;
  end;
end;
скриншот
Посмотреть вложение 29119
Фулл исход скинуть можешь?
 

AWM

Участник

AWM

Участник
7 Июл 2016
355
94
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.

AWM

Участник

AWM

Участник
7 Июл 2016
355
94
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
  • Лайк
Reactions: Каратель12

SIyfox

Участник

SIyfox

Участник
25 Апр 2017
89
46
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Спасибо за исход,даль не могу воспользоваться им,т.к там есть компоненты AlphsSkins,а он у меня криво ставиться
 

K_NoW

VIP

K_NoW

VIP
3 Июн 2016
514
195
Ну если хочешь прожить в одиночестве - C++
Иногда выходить на улицу в облике человека - C#
Иметь кучу друзей и на изи писать небольшие тулзы - Python
Да ладно, какие мы умные, любой язык нужно знать, и дельфей хватает на 90 % задач
 
  • Лайк
Reactions: AnGel

AnGel

Администратор
Команда форума

AnGel

Администратор
Команда форума
27 Авг 2015
3,410
2,024
K_NoW, на 90% примитивных задач
 
  • Лайк
Reactions: MrSmitix

AnGel

Администратор
Команда форума

AnGel

Администратор
Команда форума
27 Авг 2015
3,410
2,024
K_NoW, исключительно небольшой прикладной софт
 

MrSmitix

Юзер

MrSmitix

Юзер
14 Сен 2015
301
89
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Да ладно, какие мы умные, любой язык нужно знать, и дельфей хватает на 90 % задач
Если твой 90% задач это простенькие утилиты от которых мало толку. Тот же самый питон/перл выучить куда проще, как ide подойдет любой блокнот и время на разработку уходит куда меньше.
 

K_NoW

VIP

K_NoW

VIP
3 Июн 2016
514
195
Если твой 90% задач это простенькие утилиты от которых мало толку. Тот же самый питон/перл выучить куда проще, как ide подойдет любой блокнот и время на разработку уходит куда меньше.
питон и перл в них несколько другие задачи
делфи равнаяется к с++ и даже не к шарпу
 

MrSmitix

Юзер

MrSmitix

Юзер
14 Сен 2015
301
89
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
питон и перл в них несколько другие задачи
делфи равнаяется к с++ и даже не к шарпу
Смешно. Те кто пишут на делфи скорее всего делают это просто по привычке, не хотят отпускать частичку души.
 

О нас

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

    Dark-Time 2015 - 2022

    При поддержке: XenForo.Info

Быстрая навигация

Меню пользователя