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

[Navado]

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

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls, IniFiles, WinInet, UrlMon,
  ComCtrls, ShlObj;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Edit1: TEdit;
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    Button3: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    Button2: TButton;
    StatusBar1: TStatusBar;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure WebBrowser1DownloadBegin(Sender: TObject);
    procedure WebBrowser1DownloadComplete(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  protected
   Procedure FindAddress;
   Procedure ChangeProxy;
   Procedure Dell_Cookie;
  end;

var
  Form1: TForm1;  PIInfo : PInternetProxyInfo;

implementation

{$R *.dfm}

procedure TForm1.Dell_Cookie;
var
 DirInfo: TSearchRec;
 r: integer;
 dir: string;
begin
SetLength(dir, MAX_PATH);
if not SHGetSpecialFolderPath(CSIDL_COOKIES, PChar(dir), CSIDL_COOKIES, true)
then begin showmessage('каталог с cookies не найден :('); exit; end;
dir:=Pchar(dir)+'\';
r := FindFirst(dir+'*.*', FaAnyfile, DirInfo);
 while r = 0 do begin
   if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
      (DirInfo.Attr and FaVolumeId <> FaVolumeID))
   then
     if not DeleteFile(pChar(dir + DirInfo.Name)) then
       ShowMessage('не могу удалить файл  '+DirInfo.Name);
   r := FindNext(DirInfo);
 end;
 SysUtils.FindClose(DirInfo);
end;

procedure TForm1.ChangeProxy;
begin
New(PIInfo);
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
PIINfo^.lpszProxy := PChar(Edit2.Text);
PIInfo^.lpszProxyBypass := PChar('');
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, PIInfo, SizeOf(INTERNET_PROXY_INFO), 0);
Dispose(PIInfo);

end;


procedure TForm1.FindAddress;
begin
 WebBrowser1.Navigate(WideString(Edit1.Text));
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 If Key = VK_Return Then
  Begin
   FindAddress;
  End;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 FindAddress;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 WebBrowser1.Refresh;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Dell_Cookie;
 ChangeProxy;
end;

procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
 StatusBar1.SimpleText := 'Загрузка';
end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
 StatusBar1.SimpleText := 'Готово';
end;

end. 


[Larboss]

Вижу, вы код содрали откуда-то. От ini видно только то, что в uses есть inifiles.

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

Для рандомизации обычно используют Random(). А "рандомить" вам надо будет некий число-признак, по которому будете делать выбор прокси.

[Navado]

Ini файл я убрал пока что из кода. С ним я более менее умею работать. При считывании происходит ошибка. Ведь прокси содержит знаки : и . Просьба пояснить про "число-признак"

[Larboss]

Ini файл я убрал пока что из кода.

При считывании происходит ошибка

А как вам можно помочь, если проблемное место вы убрали из кода? Какая ошибка? Где конкретно?

А как у вас в ini-файле хранится список прокси?

Ведь прокси содержит знаки : и

Откуда там "и" не пойму...

Просьба пояснить про "число-признак"

...
Random(CountOfProxy);
Case CountOfProxy of
1: // Если выпадет рандомно 1, то будет выбран соот. прокси,
2: // и код "выбора" описывается здесь, после 1: или 2: и тд,
3: // 1: <выбор прокси>
end;
...

Смысл понятен?

[Navado]

Вы не так поняли. Я имелл виду символы : (двоеточие) . (точка) "И" это был просто предлог.
Прокси хранятся в виде

PHP код:

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 


Я пишу так:

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  IniFile := TIniFile.Create('proxy.ini');
  //Edit2 - поле, в которое должен писаться прокси из файла
  Edit2.Text := IniFile.ReadString(какие тут параметры указать нужно?);
end; 


[FaTaL]

А с чего Вы взяли, что указанный Вами файл это INI-файл? 0_о
Обычный текстовый файл как я погляжу.

[Larboss]

93.157.44.25:3128

Коли работали с ini-файлами, то обновите в памяти еще раз внимательно их структуры.

Выглядит список по другому в ini файле...

Вот так, например:

[Proxy_List]
Proxy1=93.157.44.25:3128
Proxy2=93.152.175.16:8080
Proxy3=93.152.175.1:8080

В чем проблема при считывании? - Считали строку, затем эту строку обрабатываете, чтобы выделить в отдельные строки значение IP-адреса прокси-сервера и отдельно порт. Думаю, нет необходимости рассказывать как работать со строкой. Просто часть строки до знака ":" кидать в одну строку, а часть после в другую. Разделение такое необходимо, если адрес и порт в разные поля надо прописывать.

Считает первый в списке прокси, без обработки строки. Если считать не удастся, то Proxy_list[1] примет значение "NIL".

 Proxy_List[1] := IniFile.ReadString('Proxy_List','Proxy1','NIL');

[Navado]

Сори. я забыл вставить блоки [] в ini файле.

[Proxy_List]
Proxy1=93.157.44.25:3128
Proxy2=93.152.175.16:8080
Proxy3=93.152.175.1:8080

А если этих прокси более 5 тысяч я 5 тысяч раз буду приписывать Proxy1 ... Proxy5000 ?

И обязательно разделять адрес и порт прокси-сервера? Можно в 1 строке оставить?

[Larboss]

А если этих прокси более 5 тысяч я 5 тысяч раз буду приписывать Proxy1 ... Proxy5000 ?

Я как раз и довел вас до этой мысли... Разумеется нет, программисты обычно, напротив, ищут пути избавления от рутины, как вы могли такое подумать

Сделайте цикл считывания...
"Кривой" вариант, пример:

for i:=1 to CountOfProxy-1 do
Proxy_List[i] := IniFile.ReadString('Proxy_List','Proxy'+inttostr(i),'NIL');

Повторяю - это ужасная реализация

UPD

И обязательно разделять адрес и порт прокси-сервера?

Нет, при необходимости можете разделение на подстроки делать не посредственно во время присвоения соотв. полям.

[Navado]

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