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

[AnGel]

SIyfox, а как думаешь, почему?

 

[MrSmitix]

И какой для тебя нормальный язык? c++?

Ну если хочешь прожить в одиночестве - C++
Иногда выходить на улицу в облике человека - C#
Иметь кучу друзей и на изи писать небольшие тулзы - Python

 

[Каратель12]

Установлен,без него было примерно 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]

обычный способ спарсит прокси

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]

Решение: хватит страдать херней. Переходи на нормальный язык

P.S. Сайт умер

Да не норм язык я шас читаю нихера не понимаю , но звучит круто .

 

[Каратель12]

Фулл исход скинуть можешь?

 

[SIyfox]

Да не норм язык я шас читаю нихера не понимаю , но звучит круто .

Тоже не понимаю ))

 

[AWM]

Тоже не понимаю ))

И тут я орнул малость ну лан не буду мешать вам просто буду наблюдать за тем что происходит здесь

 

[SIyfox]

Спасибо за исход,даль не могу воспользоваться им,т.к там есть компоненты AlphsSkins,а он у меня криво ставиться

 

[AnGel]

SIyfox,

Пожалуйста, Вход или Регистрация для просмотра содержимого URL-адресов!

 

[K_NoW]

Ну если хочешь прожить в одиночестве - C++
Иногда выходить на улицу в облике человека - C#
Иметь кучу друзей и на изи писать небольшие тулзы - Python

Да ладно, какие мы умные, любой язык нужно знать, и дельфей хватает на 90 % задач

 

[AnGel]

K_NoW, на 90% примитивных задач

 

[K_NoW]

K_NoW, на 90% примитивных задач

ну делфи разрабатывался под винду.
про винду и речь

 

[AnGel]

K_NoW, исключительно небольшой прикладной софт

 

[K_NoW]

K_NoW, исключительно небольшой прикладной софт

rad way жы)
как и шарп

 

[MrSmitix]

Да ладно, какие мы умные, любой язык нужно знать, и дельфей хватает на 90 % задач

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

 

[K_NoW]

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

питон и перл в них несколько другие задачи
делфи равнаяется к с++ и даже не к шарпу

 

[MrSmitix]

питон и перл в них несколько другие задачи
делфи равнаяется к с++ и даже не к шарпу

Смешно. Те кто пишут на делфи скорее всего делают это просто по привычке, не хотят отпускать частичку души.

 

[gtXER]

Верю в тебя,сделаешь!

 

[SIyfox]

Верю в тебя,сделаешь!

Не сделаю,у меня альфаскин не ставиться нормально