HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу Вход на сайт через прокси
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Вход на сайт через прокси
  #1  
Старый 17.05.2010, 00:04
ArkNet
Новичок
Регистрация: 15.05.2010
Сообщений: 26
С нами: 8417343

Репутация: 5
По умолчанию Вход на сайт через прокси
Нужен исходник входа на сайт через прокси.

Вот что в гугле нарыл...

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i, j: integer;
Stream: TMemoryStream;
begin
{перебираем циклом по всем строкам ListBox'a}
for i:= 0 to listbox1.ItemIndex - 1 do begin
IdHTTP1.ProxyParams.ProxyServer:= listbox1.Items[i];
ShowMessage('Прокси выбран!');
end;
for j:= 0 to listbox2.ItemIndex - 1 do begin
IdHTTP1.ProxyParams.ProxyPort:= StrToInt(listbox2.Items[j]);
ShowMessage('Порт выбран');
end;
//заход через прокси
try
Stream:= TMemoryStream.Create;
IdHTTP1.Post('http://www.example.com', Stream);
finally
Stream.Free;
IdHTTP1.Free;
end;
end;
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 17.05.2010, 00:46
sn0w
Статус пользователя:
Регистрация: 26.07.2005
Сообщений: 568
С нами: 10943066

Репутация: 1236


По умолчанию
кодируй на апи, выкинь эту херню в баню, тока сам ся запутаешь
__________________


snow white world wide
 
Ответить с цитированием

  #3  
Старый 17.05.2010, 08:30
M_script_
Постоянный
Регистрация: 29.10.2008
Сообщений: 306
С нами: 9227388

Репутация: 180
По умолчанию
Зачем перебирать все строки в listbox1 и listbox2, если используются только последние?
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Proxy FAQ iv. Анонимность 75 01.05.2010 13:24



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.