Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

7th
Дек

Считать прокси из ini

Posted by micher under Delphi

Как сделать считывание прокси из ini файла при старте программы и при нажатии на кнопку Button2(что бы при нажатии считывалось рандомно из списка)?

Lardes



uses RegExpr; //TRegExpr 0.952 - удобная и полезная вещь, если конечно разберешься как с ней работать)) 
//Функция получения случайного прокси из файла

function GetProxy(AProxyFile: string): string;

var

  Str: TStringList;

  RegExpr: TRegExpr;

begin

  Result := '';

  Str := TStringList.Create;

  RegExpr := TRegExpr.Create;

  try

    Str.LoadFromFile(AProxyFile);

    RegExpr.Expression := '(.*):(.*)';

    Randomize;

    if RegExpr.Exec(Str.Strings[Random(Str.Count)]) then

      Result := Format('IP: %s Port: %s', [RegExpr.Match[1], RegExpr.Match[2]]);

  finally

    FreeAndNil(Str);

    FreeAndNil(RegExpr);

  end;

К примеру:



ShowMessage(GetProxy('proxy_list.txt'));

Где файл proxy_list.txt содержит в себе прокси вида:



93.157.44.25:3128

93.152.175.16:8080

93.152.175.1:8080

91.228.53.28:8080

91.228.53.28:3128

91.221.176.163:3128

91.187.117.11:8087

91.121.27.218:3128

91.121.202.135:3128

91.121.11.120:8080

тема на форуме