![]() |
#5 |
Участник
|
Там SSL c отключением сертификата.
В общем всё получилось. Получить транзакции за период 'Microsoft WinHTTP Services, version 5.1'.WinHttpRequest CREATE(winHTTP); winHTTP.Option(4,'13056'); //intSslErrorIgnoreFlags winHTTP.Open('POST','https://api-3t.paypal.com/nvp',0); VarBody := 'METHOD=TransactionSearch'+ '&USER=*********'+ '&PWD=*************'+ '&SIGNATURE=**********'+ '&TRANSACTIONCLASS=RECEIVED'+ '&STARTDATE=2015-05-21T05:38:48Z'+ '&ENDDATE=2015-05-22T05:38:48Z'+ '&VERSION=122'; winHTTP.Send(VarBody); InStream := winHTTP.ResponseStream; WHILE (NOT InStream.EOS) DO BEGIN InStream.READTEXT(varText); разбираем содержимое END; |
|