Тема: Proxy
Показать сообщение отдельно
  #1  
Старый 12.08.2010, 20:51
hugolom hugolom вне форума
Новичок
 
Регистрация: 25.04.2010
Сообщения: 99
Репутация: 9
Восклицание Proxy

Код:
procedure TForm2.Button1Click(Sender: TObject);
begin
  if Edit1.Text[Length(Edit1.Text)-1] <> '/' then //
    Edit1.Text:= Edit1.Text+ '/';   //это отдельный проект




     Http:= TIdHTTP.Create(nil);

            if checkbox1.Checked=true then

      http.ProxyParams.ProxyServer:=Copy(Edit2.Text,1,Pos(':',Edit2.Text)-1);
http.ProxyParams.ProxyPort:=StrToInt(Copy(Edit2.Text,Pos(':',Edit2.Text)+1,Length(Edit2.Text)));
begin


Надо чтоб при checkbox1.Checked=true прокси были, checkbox1.Checked=false проксей не было, как реализовать?
Ответить с цитированием