Проблема POST запрос на RGhost

[dolphin705]

Здравствуйте! Подскажите что за проблема в пост запросе?

function parse(str, str2, src: String): String;
begin
  Delete(src, 1, Pos(str,src)+Length(str)-1);
  Delete(src, Pos(str2,src), Length(src));
  Result:= src;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  authenticity_token, server: String;
  FormData: TIdMultiPartFormDataStream;
begin
 FormData := TIdMultiPartFormDataStream.Create;
 try
   authenticity_token:= idhttp1.Get('http://rghost.net/multiple/upload_host');
 except
   ShowMessage('Ошибка подключения!');
 end;
 server:= authenticity_token;
 //ShowMessage(authenticity_token);
 authenticity_token:= parse('authenticity_token":"', '","upload_limit', authenticity_token);
 //ShowMessage(authenticity_token);
 server:='http://'+parse('{"upload_host":"', '","auth', server);
 //ShowMessage(server);

 FormData.AddFormField('authenticity_token', authenticity_token);

 //FormData.AddFormField('utf8', '✓');

 FormData.AddFile('file', Edit1.Text, 'multipart/form-data');
 //FormData.AddFormField('commit', 'Отправить');

 try
   IdHTTP1.Post(server, FormData);
 except
   Edit1.Text:= IdHTTP1.Response.Location;
   FormData.Free;
 end;
end;

Вот такая ошибка в снифере

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

В данном случае, Wireshark не смог толково разобрать HTTP-пакет. Попробуйте другой сниффер использовать...

[LELIK33]

спасибо, то, что искал

[dolphin705]

Распознал, однако файлы упорно не хотят загружаться на файлообменник, может кто подскажет в чем проблема?

[vlad1389]

headers, cookie. Может ещё что-то. Смотреть под отладкой нужно. Не под рукой среды разработки, чтоб точно ответить.