проблемка с соксами при idhttp запросах

[maloy_ya]

доброго времени суток вам!!вот нынче занят написанием прожки, без проски все проходит на ура а вот при подключении прокси получаеться крепкая ботва!!
подключал прокси вот так:

Код:

fs:TmemoryStream;
compressor:tIdCompressorZLibEx;
stack:tidIOHandlerStack;
sock:tidsocksinfo;
begin
proxyadr :='221.231.139.5:1080';
idhttp1.ReadTimeout := 30000;
idhttp1.ConnectTimeout := 10000;
idhttp1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
//idhttp1.Request.AcceptEncoding := 'gzip,deflate';
sock := tidsocksinfo.create (idhttp1);
sock.authentication := sanoauthentication;
sock.version := svsocks5;
sock.host := copy (proxyadr, 1, pos (':', proxyadr) - 1);
sock.port := strtoint (copy (proxyadr, pos (':', proxyadr) + 1, 5));
stack := tidIOHandlerStack.Create (idhttp1);
stack.TransparentProxy := sock;
idhttp1.IOHandler := stack;
compressor := tIdCompressorZLibEx.Create (idhttp1);
idhttp1.Compressor := compressor;
fs:=TmemoryStream.Create;
da:=TStringList.Create;
da.Add('Login='+e1.Text);
da.Add('Domain='+e2.Text);
da.Add('Password='+e3.Text);
s:=idHTTP1.Post('http://win.mail.ru/cgi-bin/auth',da);

и далее еще кучазапросов.

Но при первом же пост запросе он отправляет:
login
domain
password
domain
password
domain
password
и точно так же в последующих запросах он мне отправляет:
login, domain хотя их там в помине не должно быть!!
Подскажите пожалуйста в чем беда??
З.Ы. делфи7 инди 10.0.52

Добавлено в 2010-09-29, 18:32:54:
неужели ни у кого не было такого??

[Алексей++]

maloy_ya, а слабо под отладчиком посмотреть детально то, что отправляешь ?

И это не есть программа, это есть каша (овсянная). Такая же каша и в голове, возможно. Надо привести в порядок - и всё заработает

[maloy_ya]

это кусок как ты назвал каши, а в частности отправка первого пост запроса и если же там что то лишнее или чего то не хватает так подскажите а не умничайте пожалуйста!!!

[Алексей++]

точно не хватает форматирования и комментариев А дельфи я не знаю

[maloy_ya]

ну дружище это на самом деле не самое главное самое главное что оно работает криво!!а не могу понять почему??

[Алексей++]

криво выглядит - криво работает. Это почти закон

[maloy_ya]

но не аксиома же!!!

[Sla]

Алексей1153++, там и форматировать ничего не надо, нет условных переходов и циклов, нет блоков требующих begin-end

идти надо отсюда

Но при первом же пост запросе он отправляет:
login
domain
password
domain
password
domain
password
и точно так же в последующих запросах он мне отправляет:
login, domain хотя их там в помине не должно быть!!

s:=idHTTP1.Post('http://win.mail.ru/cgi-bin/auth',da);

Что в da?

[maloy_ya]

эээ...так там по коду можно было догадаться, но вот:
da:=TStringList.Create;
da.Add('Login='+e1.Text);//в эдит1 логин
da.Add('Domain='+e2.Text);//в эдит2 домен
da.Add('Password='+e3.Text);//в эдит 3 пароль
s:=idHTTP1.Post('http://win.mail.ru/cgi-bin/auth',da);
или тебя именно интересует какой лонин, какой пароль и какой домен??

[Sla]

maloy_ya, по коду понятно,
Что в отладчике?

[maloy_ya]

эээ...ну ошибок нету все нормально пашет!!!или о каком отладчике идет речь??

[Sla]

а может ты не там задаешь параметры   прокси?
я так понимаю, что есть у компонента idHTTP, свойства типа proxyseкrver и proxyport, proxyuser и proxypassword.

[maloy_ya]

да вы правы есть такие свойства, но скорее всего мне прийдеться использовать не один прокси а несколько так как они иногда бывают не доступны так что мне нужно все это прописывать в теле программы, дабы избежать постоянного ручного ввода проски!!есть еще одна вещь колторую я подметил в моей проге существует функция которая вызывается в теле программы, там тоже есть использование компонента tidhttp так вот там пост запрос он отправляет вполне адекватно!!вот такой прикол!!никаких соображений по этому поводу??

Добавлено в 2010-10-05, 04:15:46:
и туда же вопрос это может быть из-за инди??

[Sla]

да вы правы есть такие свойства, но скорее всего мне прийдеться использовать не один прокси а несколько так как они иногда бывают не доступны так что мне нужно все это прописывать в теле программы, дабы избежать постоянного ручного ввода проски!!есть еще одна вещь колторую я подметил в моей проге существует функция которая вызывается в теле программы, там тоже есть использование компонента tidhttp так вот там пост запрос он отправляет вполне адекватно!!вот такой прикол!!никаких соображений по этому поводу??

1. Почему в ручную?
Получаешь список проксей с параметрами, а затем по какому-то тебе известному алгоритму меняешь (или в ручную, или программно)
2. Пойди туда, не знаю куда.
У меня есть...
Так смотри в чем отличие, ведь ты ее сам писал..

[maloy_ya]

всем спасибо за помощь раму собрал в чем проблема!!проблема оказалась в общедоступных проксях когда заюзал адекватные прокси все пропало само собой!вот тока теперь в другом беда, дабы отсеевать прокси который на данный момент не работает написал тест прокси!!все хорошо но при тесте выпадают ошибки типа:

вот код теста:

Код:

function new_socks : string;
var
  s, proxyadr : string;
  http : Tidhttp;
  coo : Tidcookiemanager;
  compressor : tIdCompressorZLibex;
  sock : tidsocksinfo;
  stack : tidIOHandlerStack;
begin
  result := 'false';
  while result = 'false' do
  begin
    http := Tidhttp.Create;
    //coo := Tidcookiemanager.Create (http);
    proxyadr := proxys.strings [random (proxys.Count - 1)];
    //proxyadr:='221.231.139.5:1080';
    http.ReadTimeout := 10000;
    http.ConnectTimeout := 10000;
    http.AllowCookies := true;
    http.HandleRedirects := false;
    http.CookieManager := coo;
    sock := tidsocksinfo.create (http);
    sock.authentication := sanoauthentication;
    sock.version := svsocks5;
    sock.host := copy (proxyadr, 1, pos (':', proxyadr) - 1);
    sock.port := strtoint (copy (proxyadr, pos (':', proxyadr) + 1, 5));
    stack := tidIOHandlerStack.Create (http);
    stack.TransparentProxy := sock;
    http.IOHandler := stack;
    compressor := tIdCompressorZLibEx.Create(http);
    http.Compressor := compressor;
      to_log ('test proxy - ' + proxyadr);
      s := http.get ('http://love.mail.ru/tips/?tip=Login');
      if pos('s_post',s) <> 0 then result := proxyadr;
    http.Free;
  end;
end;

подскажите пожалуйста их можно обработать или обойти??

[zubr]

maloy_ya, ну так внимательно читай сообщения дебагера. "1080' - is not integer value.
По крайней мере в коде sock.port := strtoint (copy (proxyadr, pos (':', proxyadr) + 1, 5)); - ошибка.

[maloy_ya]

возможно но какая??взять стандартные прокси которые выглядят вот так:

76.25.90.191:56859
96.252.82.18:1028
123.124.173.39:1080

вы сможете сказать где в этой строчке ошибка??

[Sla]

а что говорит отладчик?

ты вырезаешь 5 символов из строки.
а 1080 - четыре, а что в конце строки?

[maloy_ya]

без понятия!!мне кажеться что ничего так как делал так не раз и лишнего ничего не было.но он ругаеться и на 5-ти значный порт тоже!!скажи те пожалуйста у кого нить есть стабильная инди из разряда 10.5.5 так как на 10.6.... все адекватно работает но кукименеджер куки не забирает!!

[zubr]

maloy_ya, ты хоть слышишь что тебе говорят. Тебе отладчик прямым текстом прислал сообщение, перевожу - в функцию strtoint подставляется значение не соответствующее типу Integer, а именно - 1080' (а теперь внимательно, для тех кто в танке, обратим внимание на последний символ под названием одинарная кавычка).

[maloy_ya]

Ага спасибо увидел! Нужно придумать как распознать сколько символ после ":" и парсить по кол-ву символов!!а как быть с другими ошибками??не подскажете как их можно обработать??

[zubr]

Остальные ошибки, судя по всему (с сокетами предпочитаю работать напрямую используя API) - это исключения инициализируемые самим инди-компонентом Tidhttp, поэтому их надо просто перехватывать и обрабатывать в блоке try except. Чтобы они не выскакивали в отладчике - отключить в отладчике опцию Stop on Delphi Exception.

[maloy_ya]

Спасибо что ткнули носом в мои ошибки! с первой ошибкой расправилсо вот так sock.port := strtoint(TrimRight (copy (proxyadr, pos (':', proxyadr) + 1, 5))); а по поводу остальных ошибок нету ли какой нибудь статейки как перехватывать и обрабатывать ошибки потому что в гугле инфа на столько расплывчатая что ужас!буду рад разнообразной инфе или примерам обработки!!

[zubr]

Про конструкции try...finally, try...except, try...except...else думаю в любом учебнике по Delphi можно найти. Собственно - это азы. Прежде чем начинать что то программировать, имхо, надо все таки изучить азы языка. В качестве учебника могу посоветовать книгу Пачеко К. "Delphi5. Руководство разработчика" в 2-х частях. Книга несколько устаревшая, но полезная. В инете есть в электронном виде.

[RXL]

https://club.shelek.ru/viewfiles.php?id=14
Возможно это оно.

Да, это оно.

[maloy_ya]

всем огромное спасибо за помощь все разрулил при помощи try except!!оч полезная штука можно много проблем решать!!прога отличнейшим образом работает!!большое спасибо!!

З.Ы. ежели здесь можно как либо голосовать за вас дабы подымать рейтинги то расскажите как я с превеликим удовольствием помимо моего спасибо помогу повысить рейтинги!!

[Алексей++]

maloy_ya, можешь добровольное пожертвование клубу кинуть ))

[maloy_ya]

)))юююесли деньгой разживусь кину!!а пока увы...могу ток спасибом отделаться((