Не отправляется POST запрос idHTTP - что делаю не так? -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.217.37]

Соблюдайте общие правила форума

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

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

Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image

MSDN Library user posted image

FAQ раздела user posted image

Поиск по разделу user posted image

Как правильно задавать вопросы

Выразить свое отношение к модераторам раздела можно здесь: user posted image

Krid,

Rouse_

Модераторы: Krid, Rouse_

Новое голосование

Не отправляется POST запрос idHTTP - что делаю не так? , как экранировать спец символы?

dhdh

Сообщ. #1 , 23.06.13, 13:44

Unregistered

Проблема в символах, например в символе &

Я не знаю почему так все происходит, может кто сможет мне помочь

Делфи 2009 у меня

Это функция отправки

function TForm1.SendData(url:string;url_str:string):string;

var

data: TStringStream;

dump:TStream;

dump_txt:TStringList;

otv:string;

begin

RandHeader;

//dump := TStringStream.Create('', TEncoding.UTF8);

dump_txt:=TStringList.Create;

dump:=TMemoryStream.Create;

otv:='';

IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded; charset=UTF-8';

data:=TStringStream.Create;

data.WriteString(url_str);

try

IdHTTP1.Post(url,data,dump);

except

end;

dump.Seek(0, soFromBeginning);

dump_txt.LoadFromStream(dump);

otv:=dump_txt.Text;

dump.Free;

dump_txt.Free;

data.Free;

SendData:=otv;

end;

Ну а так я отправляю запрос

SendData('http://site.xx/',

'&url='+url+

'&str_title='+str_title+

'&str_price='+str_price+

'&str_logo='+str_logo+

'&str_company='+str_company+

'&str_name='+str_name+

'&str_phone='+str_phone);

Так вот если в какую нибудь переменную вдруг попадет кривой символ, то запрос не отправляется и не доходит

Я уже задолбался с этой проблемой

Кто нибудь сталкивался с подобным?

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0.0533 ] [ 15 queries used ] [ Generated: 24.10.26, 03:38 GMT ]