Как сделать счтывание прокси из ini файла

[Larboss]

Сообщение от Navado

Вы опять меня не поняли. Я имел в виду, прописывать Proxy1 ... Proxy5000 в ini файле. А потом уже считывать считывать рандомно какую-то строку Proxy.

Можно и не прописывать Proxy1..Proxy5000...можно сгенерировать
А зачем вам вообще тогда нужен ini-файл? Возьмите текстовый файл, скиньте туда адреса и считывайте строки. По-моему, куда проще.

Ответьте плиз

Ответ в предыдущем моем посте.

Я имел в виду

Так и говорите, я же не телепат.

Для вашей задачи не целесообразно использовать ini-файлы. Их используют обычно для хранения настроек программ...

[Navado]

С текстовыми файлами я не работал. Поэтому решил использовать ini. Подскажите плиз простенькую конструкцию рандомного считывания строк с прокси

[Larboss]

Выше уже показывал основную конструкцию с case.

Ничего сложного при работе с файлами нет. Можете использовать TFileStream, а можно и "древние" методы.

Гуглите вообщем...

[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

Verstanden?

[Navado]

RegExpr помог. Правда пришлось немного подшаманить над результатом функции, но всё получилось. Всем благодарен