Как заюзать прокси

[Lemo]

Ситуация такова: есть proxies.txt(прокси-лист), есть форма, на которой расположена кнопка, клик по которой дает смену ип(берем прокси из proxies.txt)...
Задумка: в предвидущей теме "Скачивание файла", я хотел организовать скичивание файла через подмену ип проксями...
Тойсть, мы нажимаем кнопку в едите показуеться какой ип мы юзаем, и что бы ип менялся наверняка...
Сам вот нашел, что то связаное с webbrouser`om:

uses
 urlmon, wininet;

var
  PIInfo: PInternetProxyInfo;
begin
  New(PIInfo);
  PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
  //  Изменение  настроек ПРОКСИ
  PIInfo^.lpszProxy := PChar('127.0.0.1:8080');

  PIInfo^.lpszProxyBypass := PChar('');
  //  Список адресов, доступ к которым возможен минуя Proxy сервер

  UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo,
    SizeOf(Internet_Proxy_Info), 0);

    Dispose(PIInfo);

Есть идеи? Жду советов...

[Viteef]

Для IdHTTP

s:=123.123.123.123:8080
I:= pos(':', s);
IdHttp1.ProxyParams.ProxyServer:=copy(s, 1, I-1);
idHttp1.ProxyParams.ProxyPort:=StrToInt(copy(s, I + 1, Length(s)));

[Lemo]

1)

Вот нашел статью ""Скачать файл используя прокси"
В итоге вышел код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses wininet;
  function DownloadFile(const FileURL, FileName: String): Cardinal;
var
  hSession, hFile: HInternet;
  Buffer: array[1..1024] of Byte;
  BufferLen, fSize: LongWord;
  f: File;
begin
  Result := 0;
  hSession := InternetOpen('STEROID Download',
                           INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if Assigned(hSession) then begin
    hFile := InternetOpenURL(hSession, PChar(FileURL), nil, 0,
                             INTERNET_FLAG_RELOAD, 0);
    if Assigned(hFile) then begin
      AssignFile(f, FileName);
      Rewrite(f,1);
      fSize := 0;
      repeat
        InternetReadFile(hFile, @Buffer, SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen);
        fSize := fSize + BufferLen;
      until (BufferLen = 0);
      CloseFile(f);
      Result := fSize;
      InternetCloseHandle(hFile);
    end;
    InternetCloseHandle(hSession);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
DownloadFile('http://some.com/some.zip', 'c:\some.zip');
end;

end.

Качает, это уже радует... Укажите плз на строки, которые отвечают за прокси...


2)
Вот еще код(статья Свои настройки Proxy в программе с TWebBrowser ):

....
uses urlmon, wininet;

var
  PIInfo: PInternetProxyInfo;
begin
  New(PIInfo);
  PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
  //  Изменение  настроек ПРОКСИ
  PIInfo^.lpszProxy := PChar('some.proxy:someport');
  //  указать  прокси  напр.
  195.43.67.33: 8080
  PIInfo^.lpszProxyBypass := PChar('');
  //  Список адресов, доступ к которым возможен минуя Proxy сервер

  UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo,
    SizeOf(Internet_Proxy_Info), 0);

    Dispose(PIInfo);

В какой процедуре вебброузера это нужно описывать?

3)
Как проверить используються прокси (только навернека) или нет?