Прокси

[Pearl777]

Здравствуйте! Как сделать так, чтобы если поле прокси пустое то программа авторизуется без прокси?

   IdHTTP1.ProxyParams.ProxyServer:=Copy(XPEdit3.Text,1,Pos(':',XPEdit3.Text)-1);
    IdHTTP1.ProxyParams.ProxyPort:=StrToInt(Copy(XPEdit3.Text,Pos(':',XPEdit3.Text)+1,Length(XPEdit3.Text)));

И ещё вопрос. Можно ли сделать сразу несколько прокси?

[Pearl777]

Кто нибудь поможет? Пожалуйста.

[Pearl777]

var
i, g: integer;
begin
for g:=0 to memo1.lines.count-1 do
begin
IdHTTP1.ProxyParams.ProxyServer:=Copy(memo1.lines[g],1 ,Pos(':',memo1.lines[g])-1);
IdHTTP1.ProxyParams.ProxyPort:=StrToInt(Copy(memo1.lines[g],Pos(':',memo1.lines[g])+1,Length(memo1.lines[g])));

Вот такой код сделал, подскажите правильный ли он?

[Pearl777]

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

И ещё вопрос. Можно ли сделать сразу несколько прокси?

С этим вроде бы разобрался. Но вот проблема нашлась.
Идет несколько одинаковых запросов от всех прокси.

Вот на скрине видно. К каждому логину по 2 запроса.