Место общения программистов, форум разработчиков БД на Clarion
https://forum.clarionlife.net/
А где взять, чтобы попробовать ?morkovin писал(а):NetTalk от CapeSoft
А где взять класс CHTTP ?Yufil писал(а):Недавно, 22 февраля обсуждали похожую проблему.
http://forum.clarionlife.net/phpbb/view ... ead#unread
Возможно, если особых требований нет, класс CHTTP вполне самодостаточен.
Код: Выделить всё
H CHTTPКод: Выделить всё
H CLASS(CHTTP) !Класс CHTTP
Throw Procedure(String Str,Long Level),Long,Proc,Virtual
End
! И, в локальных процедурах помещаем код
H.Throw Procedure(String Str,Long Level)
! Str - текст сообщения об ошибке
! Level - уровень ошибки. Если Level=0-просто информация
Code
! Куда-то выводим информацию об ошибке...
....
Return(Level)
Код: Выделить всё
If H.Connect(HTTPServer,Glo:HTTPPort)<>0
Message('Ошибка:' & H.Error)
H.Disconnect()
Return....
End
Код: Выделить всё
If H.GetData(Адресфайла, КудаПоложитьФайлНаДиск) ! H.GetData('index.html','c:\index.html')
Message('Ошибка:' & H.Error)
H.Disconnect()
Return.
End
Код: Выделить всё
H.AddData('Var1','Значение Post-переменной Var1')
H.AddData('Var2','Значение Post-переменной Var2')
.....
И отправляем, как и раньше
If H.POSTData(Ссылка)
Message('Ошибка:' & H.Error)
H.Disconnect()
Return ...
End
И, как и ранее, ответ лежит в H.Response
В описании протокола приведен пример:Yufil писал(а):'payment2/?CmdID=NEW_COMMAND&FNAME=' & CLIP(Stringpath1),'POST\' & CLIP(Stringpath1))
Здесь точно слэш перед вопросительным знаком? Я не вижу имени скрипта. Что-то должно быть такое
payment2/edit.php?cmdID=...
payment2/edit.asp?cmdID=...
payment2.cgi?cmdID=...
payment2.php?cmdID=...
На крайний случай payment2?cmdID=...
Код: Выделить всё
Копать нужно с учетом трех моментов
1. Порт 443 и HTTPS вместо HTTP.
2. Добавить флаги обработки сертификатов
3. Обрабатывать ошибку 12045 (в коде некрасивый go to на нужное место), это для
просроченных, не зарегистрированных как надо сертификатов.
Рабочий код, эти 3 момента выделены звездочками:
i#=0;
hInternetSession = InternetOpen(cAgent, INTERNET_OPEN_TYPE_PRECONFIG, i#, i#, 0)
***
cService = 'HTTPS'
hConnect = InternetConnect(hInternetSession, cServer, 443, 0, 0,
INTERNET_SERVICE_HTTP, 0, 1)
IF hConnect
hRequest = HttpOpenRequest( hConnect, cPost, cURLString, 0, 0, 0,
INTERNET_FLAG_SECURE+INTERNET_FLAG_KEEP_CONNECTION+INTERNET_FLAG_IGNORE_CERT_DATE_INVALID+INTERNET_FLAG_IGNORE_CERT_CN_INVALID,
1)
***
IF hRequest
magain IF HttpSendRequest(hRequest,0,0, address(my:request), jj#)
RetValue = InternetReadFile(hRequest, ADDRESS(cBuffer), BufferLen,
dwBytesRead)
cresponse=sub(cbuffer,1,dwBytesRead)
RetValue = TRUE
ReadCount=dwbytesread
LOOP
RetValue = InternetReadFile(hRequest, ADDRESS(cBuffer), BufferLen,
dwBytesRead)
IF RetValue
ReadCount += dwBytesRead
if dwbytesread; cresponse=cresponse&sub(cbuffer,1,dwbytesread); .
IF MaxLen AND ReadCount > MaxLen
RetValue = FALSE
self.response='Слишком большие данные';
BREAK
.
.
WHILE RetValue AND dwBytesRead = BufferLen
if RetValue
self.response=cresponse .
ELSE
***
ii#=GetLasterror()
if ii#=12045
dwBuffLen = size(dwFlags);
kk#=address(dwflags)
x#=InternetQueryOption
(hrequest,INTERNET_OPTION_SECURITY_FLAGS,kk#,dwbufflen)
dwFlags = bor(dwFlags,SECURITY_FLAG_IGNORE_UNKNOWN_CA)
InternetSetOption
(hrequest,INTERNET_OPTION_SECURITY_FLAGS,address(dwflags),size(dwflags))
goto magain
else
stop ('error='&ii#)
.
***
.
i#=InternetCloseHandle(hRequest)
ELSE
MESSAGE('Can''t open request to server [' & cServer & '], URL [' & cURLString
& ']', 'URL2File', ICON:Exclamation)
.
i#=InternetCloseHandle(hConnect)
ELSE
MESSAGE('Can''t connect to server [' & cServer & ']', 'URL2File', ICON:Exclamation)
.
i#=InternetCloseHandle(hInternetSession)
dispose(cBuffer)