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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.05.2014, 13:11   #1
Dj_DeVaIs
Пользователь
 
Регистрация: 07.03.2009
Сообщений: 52
По умолчанию Пост-запрос

Добрый день.
Реализую отправку смс через интернет.
написал вот такой код.
Код:
var
PostData:TStringList;
r:TStringList;
html:WideString;
bufer:string;
begin
try
IdSSLIOHandlerSocketOpenSSL1:=TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP1);
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method:=sslvSSLv3;
IdHTTP1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
PostData:=TStringList.Create;
PostData.Clear;

PostData.Add('SenderId=EBC');
PostData.Add('PhoneNumber='+MaskEdit1.Text);
PostData.Add('Text='+Memo2.Lines[0]+' '+Memo2.Lines[1]+' '+Memo2.Lines[2]+' '+Memo2.Lines[3]+' '+Memo2.Lines[4]);
label41.Caption:=  IdHTTP1.Get('https://api.aramba.ru/balance?apiKey=XXXXXXXXXXXXXX');
label46.Caption := IdHTTP1.Get('https://api.aramba.ru/singleSms/'+label42.Caption+'?apiKey=XXXXXXXXXXXXXX');
ShowMessage('Сообщение отправлено!!!');
bufer:=IdHTTP1.Post('https://api.aramba.ru/singleSms?apiKey=XXXXXXXXXXXXXX',PostData);
memo1.Lines.Add(bufer);
PostData.Free;
except
on e:Exception do
PostData.Free;
end;
end;

сообщение отправляться все супер только не отображаться данные в memo1 и когда идет обработка post запроса то появляется сообщение вида HTTP 1\1 200 Ok. Я понимаю что это сообщение показывает что связь с сервером есть. Отсюда вопрос как убрать это сообщение и как сделать так что бы отображались данные в memo.

спасибо заранее.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 06.05.2014 в 13:16.
Dj_DeVaIs вне форума Ответить с цитированием
Старый 06.05.2014, 14:34   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

какие данные вы хотите отобразить?
вы получили что написали.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 06.05.2014, 14:40   #3
Dj_DeVaIs
Пользователь
 
Регистрация: 07.03.2009
Сообщений: 52
По умолчанию

но например вот такие


Код HTML:
<SingleSmsResponse xmlns:i="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://schemas.datacontract.org/2004/07/VendoSoft.Aramba.Api.Client.Responses">
<Cost>1.76</Cost>
<DeliveryUtcDateTime>2014-05-05T08:12:00</DeliveryUtcDateTime>
<Id>oQ4xg</Id>
<PhoneNumber>7911868XXXX</PhoneNumber>
<PlannedUtcDateTime>2014-05-05T08:12:34.237</PlannedUtcDateTime>
<SenderId>EBC</SenderId>
<Status>Delivered</Status>
<Text>
</Text>
</SingleSmsResponse>

или что нибудь похоже на это.
раньше когда я делал через файл php то все работало только с ним не удобно было.
Dj_DeVaIs вне форума Ответить с цитированием
Старый 21.05.2014, 11:32   #4
FLIER
Пользователь
 
Регистрация: 28.12.2007
Сообщений: 39
По умолчанию

http://programmersforum.ru/showthread.php?t=260618 Посмотри, вдруг такая-же проблема.
FLIER вне форума Ответить с цитированием
Старый 21.05.2014, 11:36   #5
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

gzip или кодировка.
Кольша вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
пост запрос не проходит megostudent Работа с сетью в Delphi 13 04.02.2013 10:13
пост запрос) zipo666 Общие вопросы C/C++ 0 09.08.2012 20:13
Изменить пост запрос TWebBrowser J-Max Работа с сетью в Delphi 1 23.02.2010 10:55
не проходит пост - запрос.... Kitt Работа с сетью в Delphi 4 13.05.2008 20:38