пост запрос не проходит

[megostudent]

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

procedure TForm1.Button2Click(Sender: TObject);
var
PostData:TStringList;
html : WideString;
Str:string;
begin
IdHTTP1.CookieManager:=IdCookiemanager1;
IdHTTP1.AllowCookies:=true;
IdHTTP1.HandleRedirects:=true;
try
PostData:=TStringList.Create;
//PostData.Clear;
PostData.Add('vote='+edit1.text);
PostData.Add('captcha['+edit2.text+']='+Edit3.Text);
html:=IdHTTP1.Post('http://pmis.kherson.ua/mis_herson_mis_tavrija_2013/',PostData);
PostData.Free;
except
on e:Exception do
//PostData.Free;
end;
end;

[Человек_Борща]

И где проблема?

[Кольша]

procedure TForm1.Button2Click(Sender: TObject);
var
PostData:TStringList;
html : WideString;
Str:string;
begin
IdHTTP1.CookieManager:=IdCookiemanager1;
IdHTTP1.AllowCookies:=true;
IdHTTP1.HandleRedirects:=false;
try
PostData:=TStringList.Create;
//PostData.Clear;
PostData.Add('vote='+edit1.text);
PostData.Add('captcha['+edit2.text+']='+Edit3.Text);
try
html:=IdHTTP1.Post('http://pmis.kherson.ua/mis_herson_mis_tavrija_2013/',PostData);
except
showmessage('may be reirect ?');//здесь может быть редирект который проходит мимо и т.д.
end;
PostData.Free;
except
on e:Exception do
//PostData.Free;
end;
end;

[megostudent]

нету редиректа

[Человек_Борща]

и проблемы тоже нету. Вы забыли написать в чем проблема. Если с сайтом - то это ваша проблема, внимательнее к деталям...

[Pearl777]

Что показывает сниффер?

[megostudent]

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

[Pearl777]

Выложите код программы, так как проблема скорее всего скрывает глубже.

[megostudent]

Вложение 57508

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, Vcl.ExtCtrls, jpeg,
  IdCookieManager;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Memo2: TMemo;
    Label3: TLabel;
    Image1: TImage;
    Edit3: TEdit;
    Button2: TButton;
    IdCookieManager1: TIdCookieManager;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function FindID(strB,strE,str:string):string;
var
  b,e:integer;
begin
  b:=pos(strb,str)+Length(strb);
  e:=pos(strE,str);
  if (b=Length(strb))or(e=0) then
    Result:=''
  else
    Result:=copy(str,b,e-b);
end;

{function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;}

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
MS:TMemoryStream;
pic: TJPEGImage;
begin
memo1.Clear;
memo1.lines.Text:= IdHttp1.Get('http://pmis.kherson.ua/mis_herson_mis_tavrija_2013/');
//edit1.Text:=(Pars('value="sZngqa5lop2nn5hfZWeZlqqd4KqunNeYrdnMk5eVzt0%3D" /> <img style="display:inline-block;vertical-align:middle;" src="/ajax/captcha.php?hash=',memo1.text,'"'));
for i:=0 to Memo1.Lines.Count-1 do
    begin
      if AnsiPos('№15 Змага Любовь', Memo1.Lines[i])<>0 then
        begin
          label1.Caption:=IntToStr(i);
          break;
        end;
    end;
label2.Caption:=Memo1.Lines[i+12];
edit1.Text:=FindID('value="','" />', label2.Caption);
label3.Caption:=Memo1.Lines[i+14];
edit2.Text:=FindID('src="/ajax/captcha.php?hash=','" width', label3.Caption);
//edit1.Text:=copy(label2.Caption, pos('hash=', label2.Caption), 23);
//edit2.Text:=FindID('src="/ajax/captcha.php?hash=>','"',IdHTTP1.Get('http://pmis.kherson.ua/mis_herson_mis_tavrija_2013/'));
//edit2.Text:=FindID('hash=','"', label2.Caption);

MS:=TMemoryStream.Create;
pic:= TJPEGImage.create;
idHTTP1.Get('http://pmis.kherson.ua/ajax/captcha.php?hash='+edit2.Text, MS);
MS.Position:=0;
pic.LoadFromStream(MS);
Image1.Picture.Assign(pic);
MS.Free;
pic.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
PostData:TStringList;
html : String;
//Str:string;
begin
IdHTTP1.CookieManager:=IdCookiemanager1;
IdHTTP1.AllowCookies:=false;
IdHTTP1.HandleRedirects:=false;
try
PostData:=TStringList.Create;
//PostData.Clear;
PostData.Add('vote='+edit1.text);
PostData.Add('captcha['+edit2.text+']='+Edit3.Text);
html:=IdHTTP1.Post('http://pmis.kherson.ua/mis_herson_mis_tavrija_2013/',PostData);
PostData.Free;
except
on e:Exception do
//PostData.Free;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
memo2.Clear;
end;

end.

[Stilet]

я не знаю какие у низ хам защитки стоят, чтобы их обойти

Воть воть. Что сниффер то показывает?