Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.07.2015, 16:20   #11
ДралсяСошибками
Форумчанин
 
Аватар для ДралсяСошибками
 
Регистрация: 31.05.2011
Сообщений: 301
По умолчанию

Не думаю, что дело в этом, это вроде разделитель, но хз.
Код:
IdHTTP1.Request.ContentType := Stream.RequestContentType; // тут multipart/form-data; boundary=--------070815161609048
boundary генерится так:
Код:
function TIdMultiPartFormDataStream.GenerateUniqueBoundary: String;
begin
  Result := '--------' + FormatDateTime('mmddyyhhnnsszzz', Now);
end;
ДралсяСошибками вне форума Ответить с цитированием
Старый 08.07.2015, 16:25   #12
lastell
Пользователь
 
Регистрация: 14.02.2014
Сообщений: 30
По умолчанию

Я просто не понимаю что тогда:
Код:
        Stream.AddFormField('subject',utf8encode(form1.sedit1.text),'utf-8').ContentTransfer:='8bit';
        Stream.AddFormField('addbbcode20','100').ContentTransfer:='';
        Stream.AddFormField('helpbox',utf8encode('Совет: Можно быстро применить стили к выделенному тексту.'), 'utf-8').ContentTransfer := '8bit';
        Stream.AddFormField('message',utf8encode(form1.sMemo1.text),'utf-8').ContentTransfer:='8bit';
        Stream.AddFormField('attach_sig','off').ContentTransfer:='';
        Stream.AddFormField('post',utf8encode('Отправить'), 'utf-8').ContentTransfer := '8bit';
        Stream.AddFormField('fileupload','').ContentType:= 'application/octet-stream';
        Stream.AddFormField('filecomment','').ContentTransfer:='';
        Stream.AddFormField('lastclick',time).ContentTransfer:='';
        Stream.AddFormField('creation_time',time).ContentTransfer:='';
        Stream.AddFormField('form_token',token).ContentTransfer:='';

Вот так получилось отправить русский текст, он имеет такой же размер и идентичен тексту если отправлять через браузер
lastell вне форума Ответить с цитированием
Старый 08.07.2015, 17:51   #13
ДралсяСошибками
Форумчанин
 
Аватар для ДралсяСошибками
 
Регистрация: 31.05.2011
Сообщений: 301
По умолчанию

У Вас какая Делфи?
Проблема при отправке может быть из-за заголовков:
Код:
IdHTTP1.Request.Host := '********';
  IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; rv:39.0) Gecko/20100101 Firefox/39.0';
  IdHTTP1.Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
  IdHTTP1.Request.AcceptLanguage := 'ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3';
  IdHTTP1.Request.AcceptEncoding := 'gzip, deflate';
  IdHTTP1.Request.Referer := 'http://*********';
  IdHTTP1.Request.ContentType := Stream.RequestContentType;
ДралсяСошибками вне форума Ответить с цитированием
Старый 08.07.2015, 18:00   #14
lastell
Пользователь
 
Регистрация: 14.02.2014
Сообщений: 30
По умолчанию

Заголовки указал все, которые отправляются через браузер
lastell вне форума Ответить с цитированием
Старый 08.07.2015, 21:00   #15
ДралсяСошибками
Форумчанин
 
Аватар для ДралсяСошибками
 
Регистрация: 31.05.2011
Сообщений: 301
По умолчанию

Вообщем, получилось один раз создать тему, видимо последующие неудачи связаны с одновременной авторизацией с браузера и с инди.
ДралсяСошибками вне форума Ответить с цитированием
Старый 09.07.2015, 14:14   #16
lastell
Пользователь
 
Регистрация: 14.02.2014
Сообщений: 30
По умолчанию

Цитата:
Сообщение от ДралсяСошибками Посмотреть сообщение
Вообщем, получилось один раз создать тему, видимо последующие неудачи связаны с одновременной авторизацией с браузера и с инди.
Можете дать код? Там на форуме одна тема раз в несколько минут создаётся.
lastell вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
почему на форуме так мало тем? challengerr Свободное общение 37 12.10.2014 09:44
PhpBB и программирование Кузнецоw Фриланс 3 09.02.2011 16:10
Раздел Разработчики в форуме "Создание игр" NSvirus Свободное общение 2 09.11.2009 14:50