POST на indy HTTP/1.1 404 Not Found

[jskorvin]

Доброго вам времени суток!
Не понимаю, в какую сторону копать?

Отправляю заполненую форму (данные со снифера)

MAX_FILE_SIZE=16777216
sesskey=sOaLJSq4Cv
_qf__login_signup_form=1
username=jskorvin
password=1234567	
email=jskorvin@gmail.com
email2=jskorvin@gmail.com
firstname=name
lastname=name2
city=gorod
country=DZ
submitbutton=Сохранить

На форме кнопка и мемо

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sButton, sMemo, IdHTTP, IdCookieManager ;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  data: TstringList;
  http:TidHTTP;
  CM:TIdCookieManager;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin


   // создаем дату под запрос
   data:=TstringList.Create;

   // создаем хттп
   http:=TidHTTP.Create(nil);
   CM:=TIdCookieManager.Create(http);
   http.CookieManager:= CM;
   http.AllowCookies:= true;
   http.HandleRedirects:= true;
   http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
   http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
   http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
   http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.1.7) Gecko/20091221 Firefox/3.5.7';
   http.Request.Connection:='keep-alive';
   http.Request.ContentType:='application/x-www-form-urlencoded';
   http.Request.Host:='dmitrij.listkom.ru';

data.Add('MAX_FILE_SIZE=16777216');
data.Add('sesskey=sOaLJSq4Cv');
data.Add('_qf__login_signup_form=1');
data.Add('username=jskorvin');
data.Add('password=1234567');
data.Add('email=jskorvin@gmail.com');
data.Add('email2=jskorvin@gmail.com');
data.Add('firstname=name');
data.Add('lastname=name2');
data.Add('city=gorod');
data.Add('country=DZ');
data.Add('submitbutton=Сохранить');


   memo1.Text:=http.Post('http://dmitrij.listkom.ru/moodle/login/signup.php', data);

end;

end.

переводить

http.HandleRedirects:= false;

Не помогает.

Пытаюсь понять что не нашлось, нот фаунд что?

Примечательно, что если передать неверный параметр

data.Add('_qf__login_signup_form=2');

Запрос проходит, а с верным - нот фаунд..

П.С. Я понимаю о необходимости получить куки, распарсить параметр сессии и не прошу научить меня писать регилки, прошу помочь разобраться почему правильно сформированый запрос непроходит..

[XerSon]

Юзай TIdMultiPartFormDataStream

[jskorvin]

Не помогло =(
Я долго бился с проблемой, но не нашел даже намеков, решил что это один из глюков инди..
Позже это же всплыло еще раз, отсылаемое программой полностью идентично отснифаному из браузера, но запрос не уходит. Притом если запороть запрос (изменить данные на неверные не изменяя структуры запроса) все шлется.
Для себя нашел выход в Synapse, вот листинг этого примера:

procedure TForm1.Button1Click(Sender: TObject);
var
HTTP: THTTPSEND;
d: TStringStream;
s:string;
begin
http:= THttpsend.Create;
http.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.1.7) Gecko/20091221 Firefox/3.5.7';
 HTTP.MimeType:='application/x-www-form-urlencoded';

      d:=TStringStream.Create('');
      d.WriteString('MAX_FILE_SIZE=16777216');
      d.WriteString('&sesskey=sOaLJSq4Cv');
      d.WriteString('&_qf__login_signup_form=1');
      d.WriteString('&username=jskorvin');
      d.WriteString('&password=1234567');
      d.WriteString('&email=jskorvin@formymail.com');
      d.WriteString('&email2=jskorvin@formymail.com');
      d.WriteString('&firstname=name');
      d.WriteString('&lastname=name2');
      d.WriteString('&city=gorod');
      d.WriteString('&country=DZ');
      d.WriteString('&submitbutton=Сохранить');

       HTTP.Document.LoadFromStream(d);

  if HTTP.HTTPMethod('POST','http://dmitrij.listkom.ru/moodle/login/signup.php') then
  begin
  memo1.Lines.LoadFromStream(HTTP.Document);

  end;
end;

Отвечает ошибкой, как и должно быть, сессия в запросе ведь просрочена, но запрос ушел и сайтик его обработал.

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