Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > C/C++ программирование > C/C++ Сетевое программирование
Регистрация

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

           Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
           И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - https://clck.ru/fCqwP

Ответ
 
Опции темы Поиск в этой теме
Старый 13.06.2012, 09:52   #1
topinaka
Новичок
Джуниор
 
Регистрация: 13.06.2012
Сообщений: 1
По умолчанию post запрос

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

String sPostData;
AnsiString PhoneNumField = Edit7->Text; //номер
AnsiString TextField = Alarm->Text; //текст
sPostData = "fromno=" + PhoneNumField+ "countrycode=7" +"number=" + PhoneNumField+"message="+ TextField ;
String sURL;
sURL="http://www.freesmscraze.com/worldwide/send_free_sms_to_russia/sms/success_us.php";

BSTR bstrHeaders = NULL;
TVariant vFlags = (0), vTargetFrameName=(0), vPostData=(0), vHeaders=(0);
LPSAFEARRAY psa;
LPCTSTR cszPostData = sPostData.t_str();
UINT cElems = lstrlen(cszPostData);
LPSTR pPostData;
LPVARIANT pvPostData;

bstrHeaders = SysAllocString(L"Content-Type: application/x-www-form-urlencodedrn");

V_VT(&vHeaders) = VT_BSTR;
V_BSTR(&vHeaders) = bstrHeaders;

pvPostData = vPostData;

if(pvPostData){
VariantInit(pvPostData);

psa = SafeArrayCreateVector(VT_UI1, 0, cElems);
if(!psa){
return;
}

SafeArrayAccessData(psa, (LPVOID*)&pPostData);
memcpy(pPostData, cszPostData, cElems);
SafeArrayUnaccessData(psa);
V_VT(pvPostData) = VT_ARRAY | VT_UI1;
V_ARRAY(pvPostData) = psa;
}
CppWebBrowser1->Navigate((TVariant)sURL, &vFlags, &vTargetFrameName, &vPostData, &vHeaders);
}
topinaka вне форума Ответить с цитированием
Ответ

           Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
           Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Post запрос VarXdar Помощь студентам 0 08.06.2012 09:53
POST запрос bunukar Работа с сетью в Delphi 6 27.11.2011 19:26
POST запрос DeDoK Работа с сетью в Delphi 6 12.07.2009 00:48
post запрос Editor Работа с сетью в Delphi 4 20.04.2008 14:01