|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.06.2012, 09:52 | #1 |
Новичок
Джуниор
Регистрация: 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); } |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |