|
Там 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;
|