![]() |
|
Модераторы: Sardar, Aliance |
![]()
|
|
| Bibigon |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 33 Регистрация: 11.2.2006 Репутация: нет Всего: нет |
Есть следующий пример кода JS, который хочу перевести на Delphi WinInet:
var xmlhttp = Server.CreateObject ("MSXML2.ServerXMLHTTP"); xmlhttp.setOption(3, 'option'); xmlhttp.open('POST', 'https://blabla.ru/page.asp', false); xmlhttp.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded'); xmlhttp.send(data); =========================================================== Дельфи : var hOpen, hConnect, hRequest: hInternet; begin hOpen := InternetOpen('test', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); hConnect := InternetConnect(hOpen, pchar('blabla.ru'), 80 , '', '',INTERNET_SERVICE_HTTP, 0, 0); hRequest := HttpOpenRequest(hConnect, 'POST', pchar('page.asp'), HTTP_VERSION, '', nil, INTERNET_FLAG_SECURE, 0); HttpSendRequest(hRequest, 'Content-Type: application/x-www-form-urlencoded', 47, PChar(data), Length(data)) ; .... Не могу понять как перевести xmlhttp.setOption(3, 'option'); Зарание спасибо. |
|||
|
||||
| bars80080 |
|
|||
![]() прапор творюет ![]() ![]() ![]() ![]() Награды: 1 Профиль Группа: Завсегдатай Сообщений: 12022 Регистрация: 5.12.2007 Где: Königsberg Репутация: 44 Всего: 315 |
наверно, этот вопрос лучше было задать в разделе дельфи
|
|||
|
||||
![]()
|
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | JavaScript: для новичков | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |