Смена IP адреса

[Кольша]

Всем привет!Перерыл весь интернет, но не нашел толкового(рабочего) ответа как сменить ip?.Или просто передать запрос не со своего IP'a!
Надеюсь на вашу помощь.
Спасибо

[Зод]

Нууу....через сервер)
Пример на синапсе такой будет:

  begin
  http := THTTPSend.Create;
       try
   //настраиваем параметры прокси
   case cbTypeProxy.ItemIndex of
     0:begin
         HTTP.ProxyHost:=a1;
         HTTP.ProxyPort:=a2;
       end;
     1:HTTP.Sock.SocksType:=ST_Socks4;
     2:HTTP.Sock.SocksType:=ST_Socks5;
   end;
   if cbTypeProxy.ItemIndex>0 then
     begin
       HTTP.Sock.SocksIP:=a1;
       HTTP.Sock.SocksPort:=a2;
       HTTP.Sock.SocksResolver:=false;
     end;
Действие(отправка запроса)
ну и в конце finally/except

P.S.
a1,a2 : string

[Кольша]

Так как о прокси знаю мало ооочень мало то как я понел хост это ip с которого а порт можно 8080 поставить так?

[Зод]

Правильно. Хост это айпи а вот порт который у хоста стоит.
Например здесь:
http://fineproxy.org/#list
У каждого айпишника свой порт. Это важно а в остальном да ты прав.

[Кольша]

О понеслась щас буду пробовать=)

[Кольша]

ничего не получается может кто подмогнет?

[Зод]

var
  http: THTTPSend;
begin
  http := THTTPSend.Create;
  Здесь настраиваем сокс/прокси 
  http.Document.Clear;
  http.Headers.Clear;
  HTTP.MimeType := 'application/x-www-form-urlencoded';
  HTTP.UserAgent:='Zod 1.0';
  HTTP.Protocol:= '1.1';
  HTTP.Headers.Add('Accept-Language: ru-RU,ru;q=0.9,en;q=0.8');
  HTTP.Headers.Add('Expect: 100-continue');
  HTTP.HTTPMethod('GET', 'http://2ip.ru/');

самое интересное я привел ранее код что бы можно было выбрать версию протокола Socks/Proxy через TComboBox (его создавать на форме ручками нужно было)
ну а теперь дополню вот этим:
Для сокса вставляем:

   try
  HTTP.Sock.SocksType:=ST_Socks5; // либо если у вас протокол версии 4 тогда вставляем HTTP.Sock.SocksType:=ST_Socks4;
  begin
       HTTP.Sock.SocksIP:=SERVER;
       HTTP.Sock.SocksPort:=IP;
       HTTP.Sock.SocksResolver:=false;
     end;

теперь вариант для прокси:

try
HTTP.ProxyHost:=SERVER;
HTTP.ProxyPort:=PORT;
       end;

Для справки.
Прокси, Сокс4 и Сокс5 это все разные вещи поэтому нужно указывать проге через что ей работать нужно. Любой чекер определит версию протокола легко. Так же стоит помнить что бывают анонимные прокси а бывают и нет. Аниномные скроют ваш айпи а не анонимные спалят каким-нибудь способом( фактом использования прокси например)

[Кольша]

да я понял, что ручками сделал почти также только на индюшке

[Зод]

А чем синапс не подходит?
На инди то работает? Говорят там проблемы большие с соксами.

[Кольша]

просто уже привык к индюшке,да вроде работает