Опять POST запрос!

[Arsenx777]

Вчера я создал тему:
http://www.programmersforum.ru/showthread.php?t=163475
на что мне ответили, надо воспользоваться сниффером.

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

procedure TForm1.Button2Click(Sender: TObject);
var info2: TStringList;
  dr,ss: String;
  ava: TMemoryStream;
begin
  info2:= TStringList.Create;
try
  info2.Add('s=');
  info2.Add('securitytoken=1313672260-d9aaf5139960bdd1acf2b876f252434e2b520947');
  info2.Add('do=updateavatar');
  info2.Add('avatarid=0');
  info2.Add('upload='+edit3.text);
    dr:=idhttp1.Post('http://www.programmersforum.ru/profile.php?do=updateavatar',info2);
      ava:=TMemoryStream.Create;
      ss:='http://www.programmersforum.ru/'+ gg;
      idhttp1.Get(ss,ava);
      ava.SaveToFile('C:\01.jpg');
      ava.Free;
        image1.Picture.LoadFromFile('C:\01.jpg');
finally
  info2.Free;
     end;

Аватарка не меняется, не могу понять почему, я проверял через сниффер http analizer, то что все данные правильно оправлябтся.
В чем ошибка помогите пожалуйста?

[Arsenx777]

Мне кто то поможет?

[Mifody]

ну и правильно Вам сказал "надо пользоваться снифером"

<form method="post" action="profile.php?do=updateavatar" enctype="multipart/form-data">

Это Вам ни о чем не говорит? И Вы уверены, что данные верно отправляются? ВСЕ выглядит одинаково с данными, отправляемыми браузером?
Лучше будет если выложите логи снифера браузера и программы, можно в личку

З.Ы. На будущее, то, что шлете Вы и то, что шлет браузер должны совпадать с точностью до символа. По крайней мере в первое время (пока не набьете кучу шишек), и по крайней мере в отправляемых данных (ну те части, которые должны быть неизменными)

[Arsenx777]

Наконец мне кто-то ответил по теме

В архиве исходник и скриншот параметров пойманных сниффером

[Mifody]

первую часть моего ответа читали?
в общем, самая первая ошибка - данные должны быть "multipart/form-data".
В индях класс, кажись, называется IdMultipartFormData, тут на форуме вроде встречал как с ним работать.

[Arsenx777]

ого! даже не слышал о таком, щас поищу! спасибо

[Arsenx777]

procedure TForm1.Button2Click(Sender: TObject);
var dr,ss: String;
  fD: TIdMultiPartFormDataStream;
begin
  fD:=TIdMultiPartFormDataStream.Create;
try
  fd.AddFormField('s','');
  fd.AddFormField('securitytoken','1313672260-d9aaf5139960bdd1acf2b876f252434e2b520947');
  fd.AddFormField('do','updateavatar');
  fd.AddFormField('avatarid','0');
  fd.AddFormField('avatarurl','http:\\www.');
  fd.AddFormField('MAX_FILE_SIZE','31457280');
  fd.AddFile('upload','C:\Documents and Settings\Admin\Рабочий стол\Ars.Pro\Картинки\unixf.jpg','multipart/form-data');
     dr:=idhttp1.Post('http://www.programmersforum.ru/profile.php?do=updateavatar',fd);
   memo1.Text:=dr;
finally
  fd.Free;
     end;

Вот попробовал: но мне в мемо приходет ответ от пост запрса

Сообщение форума

    Ваш запрос не может быть обработан, так как маркер безопасности неверный.

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

В чем у меня ошибка? помогите пожалуйста

[Arsenx777]

Вот исходник

[Mifody]

1. securitytoken - не вбивать в программе а парсить из кода страницы
2. fd.AddFile('upload','C:\Documents and Settings\Admin\Рабочий стол\Ars.Pro\Картинки\unixf.jpg','m ultipart/form-data'); сменить на fd.AddFile('upload','C:\Documents and Settings\Admin\Рабочий стол\Ars.Pro\Картинки\unixf.jpg','i mage/jpeg');

Эт на вскидку, еще может понадобиться CookieManager, бросить на форму и подключить к IdHTTP. Но не факт, может он и не нужен

З.Ы. Лог сохраняется в снифере, ткунть в пиктограмму с "Save"

[Arsenx777]

ok! спасибо попробую