|
Вопрос # 5 077/ вопрос решён / |
|
Здравствуйте, уважаемые эксперты!
Есть задача, осуществить отсылку смс через смс-провайдера посредством отправки XML методом POST на их скрипты. Отправка на адрес https://my.sms16.ru/xml/
Использую IdHTTP и TIdMultiPartFormDataStream. Приходит ответ - POST данные отсутствуют. Спецификацию провайдера и код прилагаю. Пожалуйста, ткните пальцем, что я делаю не так.
Заранее спасибо.
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
Приложение: Переключить в обычный режим- procedure TForm1.Button1Click(Sender: TObject);
- var
- PostData:TIdMultiPartFormDataStream;
- html: WideString;
- begin
- PostData:=TIdMultiPartFormDataStream.Create;
- PostData.AddFile('file','C:\Example.xml','text/xml');
- html:=IdHTTP1.Post('https://my.sms16.ru/xml/',PostData);
- memo1.Lines.Add(html);
- PostData.Free;
- end;
 |
Вопрос задал: Димчик (статус: Посетитель)
Вопрос отправлен: 9 марта 2011, 11:48
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 9 марта 2011, 12:40; участников в обсуждении: 2.
|
Вадим К (статус: Академик), 9 марта 2011, 11:58 [#1]:
Так все правильно. Нужно отправить данные, а не эти данные в файле. Дальше сами справитесь?
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Димчик (статус: Посетитель), 9 марта 2011, 12:13 [#2]:
Скорее всего не справлюсь.
Разве как раз не содержимое файла отправляется?
Получается чтоб отправить сами данные нужно использовать AddFormField, но здесь же нет формы!
Не, не разберусь.
|
|
|
Вадим К (статус: Академик), 9 марта 2011, 12:20 [#3]:
не знаю, причем здесь html форма.
Код должен быть где то такой
s:string;
sl:TStringList;
begin
s:='здесь xml запрос в одну строку, как того требует документация';
sl := TStringList.Create;
sl.add(s);
html:=IdHTTP1.Post('https://my.sms16.ru/xml/',sl);
memo1.Lines.Add(html);
sl.free;
end;
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Димчик (статус: Посетитель), 9 марта 2011, 12:40 [#4]:
Блин, так работает.
До этого пробовал TStringList, только с той разницей, что строку добавлял прям в sl.add - не работало (хотя там запарка с ssl была вроде как).
Большое спасибо.
|
9 марта 2011, 12:41: Статус вопроса изменён на решённый (изменил автор вопроса — Димчик)
10 марта 2011, 09:54: Вопрос перемещён из тематического раздела Web-программирование » Прочее (web) в раздел Delphi » Работа с сетями и протоколами модератором Ерёмин А.А.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
