从 PayPal SOAP API 获取交易详情(希望还有自定义字段)
Getting Transaction Details From PayPal SOAP API (hopefully custom fields as well)
我正在尝试从 PayPal 的 SOAP API 获取交易详细信息,但我 运行 进入 PayPal 的错误。它 returns 错误:
The transaction id is not valid
我知道这是一个有效的交易 ID,因为我可以使用 PayPal NVP API 获取交易详细信息,但也许我的 SOAP 请求格式不正确。我按照我可以在网上找到的 PayPal SOAP API 示例构建 SOAP XML,但它们很薄。我正在使用 mac 的 PAW 程序向 PayPal 的 API 发送 SOAP 请求,但使用 HTTP 客户端应该可以重现此问题。
我尝试使用 PayPal 的 REST API 但 there's no method to get transaction details (e.g. name, email, amount paid, custom fields) . I also tried to use the NVP (Name-Value-Pair) API 我确实取回了交易详细信息,但它没有为我提供交易的所有存储自定义字段。当我登录 PayPal 并查看单个交易时,我可以看到该交易的所有自定义字段,因此我知道它们已被存储。
肥皂 API 是我最后的希望。
这是我正在使用的 SOAP 信封请求:
<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns="urn:ebay:api:PayPalAPI" xmlns:ebl="urn:ebay:apis:eBLBaseComponents" xmlns:cc="urn:ebay:apis:CoreComponentTypes" xmlns:ed="urn:ebay:apis:EnhancedDataTypes">
<soapenv:Header>
<ns:RequesterCredentials>
<ebl:Credentials>
<ebl:Username>soap_api_username_here</ebl:Username>
<ebl:Password>soap_api_password_here</ebl:Password>
<ebl:Signature>soap_api_signature_here</ebl:Signature>
</ebl:Credentials>
</ns:RequesterCredentials>
</soapenv:Header>
<soapenv:Body>
<ns:GetTransactionDetailsReq>
<ns:GetTransactionDetailsRequest>
<ebl:Version>93.0</ebl:Version>
<ebl:TransactionID>8FX18476NR449891W</ebl:TransactionID>
</ns:GetTransactionDetailsRequest>
</ns:GetTransactionDetailsReq>
</soapenv:Body>
</soapenv:Envelope>
这是我从 PayPal SOAP 收到的响应 API:
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:cc="urn:ebay:apis:CoreComponentTypes" xmlns:wsu="http://schemas.xmlsoap.org/ws/2002/07/utility" xmlns:saml="urn:oasis:names:tc:SAML:1.0:assertion" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:wsse="http://schemas.xmlsoap.org/ws/2002/12/secext" xmlns:ed="urn:ebay:apis:EnhancedDataTypes" xmlns:ebl="urn:ebay:apis:eBLBaseComponents" xmlns:ns="urn:ebay:api:PayPalAPI">
<SOAP-ENV:Header>
<Security xmlns="http://schemas.xmlsoap.org/ws/2002/12/secext" xsi:type="wsse:SecurityType"/>
<RequesterCredentials xmlns="urn:ebay:api:PayPalAPI" xsi:type="ebl:CustomSecurityHeaderType">
<Credentials xmlns="urn:ebay:apis:eBLBaseComponents" xsi:type="ebl:UserIdPasswordType">
<Username xsi:type="xs:string"/>
<Password xsi:type="xs:string"/>
<Signature xsi:type="xs:string"/>
<Subject xsi:type="xs:string"/>
</Credentials>
</RequesterCredentials>
</SOAP-ENV:Header>
<SOAP-ENV:Body id="_0">
<GetTransactionDetailsResponse xmlns="urn:ebay:api:PayPalAPI">
<Timestamp xmlns="urn:ebay:apis:eBLBaseComponents">2016-08-02T16:43:02Z</Timestamp>
<Ack xmlns="urn:ebay:apis:eBLBaseComponents">Failure</Ack>
<CorrelationID xmlns="urn:ebay:apis:eBLBaseComponents">a464c181339f4</CorrelationID>
<Errors xmlns="urn:ebay:apis:eBLBaseComponents" xsi:type="ebl:ErrorType">
<ShortMessage xsi:type="xs:string">Transaction refused because of an invalid argument. See additional error messages for details.</ShortMessage>
<LongMessage xsi:type="xs:string">The transaction id is not valid</LongMessage>
<ErrorCode xsi:type="xs:token">10004</ErrorCode>
<SeverityCode xmlns="urn:ebay:apis:eBLBaseComponents">Error</SeverityCode>
</Errors>
<Version xmlns="urn:ebay:apis:eBLBaseComponents">93.0</Version>
<Build xmlns="urn:ebay:apis:eBLBaseComponents">000000</Build>
<PaymentTransactionDetails xmlns="urn:ebay:apis:eBLBaseComponents" xsi:type="ebl:PaymentTransactionType">
<ReceiverInfo xsi:type="ebl:ReceiverInfoType"/>
<PayerInfo xsi:type="ebl:PayerInfoType">
<PayerStatus xsi:type="ebl:PayPalUserStatusCodeType">verified</PayerStatus>
<PayerName xsi:type="ebl:PersonNameType"/>
<Address xsi:type="ebl:AddressType">
<AddressOwner xsi:type="ebl:AddressOwnerCodeType">PayPal</AddressOwner>
<AddressStatus xsi:type="ebl:AddressStatusCodeType">None</AddressStatus>
</Address>
</PayerInfo>
<PaymentInfo xsi:type="ebl:PaymentInfoType">
<TransactionType xsi:type="ebl:PaymentTransactionCodeType">none</TransactionType>
<PaymentType xsi:type="ebl:PaymentCodeType">none</PaymentType>
<PaymentStatus xsi:type="ebl:PaymentStatusCodeType">None</PaymentStatus>
<PendingReason xsi:type="ebl:PendingStatusCodeType">none</PendingReason>
<ReasonCode xsi:type="ebl:ReversalReasonCodeType">none</ReasonCode>
</PaymentInfo>
<PaymentItemInfo xsi:type="ebl:PaymentItemInfoType">
<Subscription xsi:type="ebl:SubscriptionInfoType"/>
<Auction xsi:type="ebl:AuctionInfoType"/>
</PaymentItemInfo>
</PaymentTransactionDetails>
</GetTransactionDetailsResponse>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>
我不确定我做错了什么,但也许有更多经验的人比我更容易发现错误。我回答了另一个用户关于 PayPal REST 的问题 API 并从中获取交易详细信息,但据我所知,没有办法做到这一点 Get customer details after transaction 。如果您找到了使用 REST API 实现此目的的方法,请告诉我,因为我宁愿使用 REST 而不是 SOAP。
谢谢。
我会把它作为评论,但它充满了愚蠢的东西。以离开远方为代价,我可能会有所帮助。
所以我的 vb.net 代码向 paypal 发送了一个表单,其中包括 "notify_url".
' determining the URL to work with depending on whether sandbox or a real PayPal account should be used
If strRealOrSand = "Sand" Then
URL = "https://www.sandbox.paypal.com/cgi-bin/webscr"
business = "x@xxx.com" ' AppSettings("BusinessEmail") (sandbox account business email)
ElseIf strRealOrSand = "Real" Then
URL = "https://www.paypal.com/cgi-bin/webscr"
business = "xxx@xxx.com" ' AppSettings("BusinessEmail") (real pay pal account account business email)
End If
notify_url = "http://www.xxxxx.com/accounts/done.aspx"
<form id="payForm" method="post" action="<%Response.Write (URL)%>" >
<input type="hidden" name="cmd" value="<%Response.Write (cmd)%>" />
<input type="hidden" name="business" value="<%Response.Write (business)%>" />
<input type="hidden" name="item_name" value="<%Response.Write (item_name)%>" />
<input type="hidden" name="amount" value="<%Response.Write (amount)%>" />
<input type="hidden" name="no_shipping" value="<%Response.Write (no_shipping)%>" />
<input type="hidden" name="return" value="<%Response.Write (return_url)%>" />
<input type="hidden" name="rm" value="<%Response.Write (rm)%>" />
<input type="hidden" name="notify_url" value="<%Response.Write (notify_url)%>" />
<input type="hidden" name="cancel_return" value="<%Response.Write (cancel_url)%>" />
<input type="hidden" name="currency_code" value="<%Response.Write (currency_code)%>" />
<input type="hidden" name="custom" value="<%Response.Write (row_id)%>" />
</form>
<script type="text/javascript">
document.forms["payForm"].submit ();
</script>
</body>
然后在我的 "notify_url" 页面加载中,它获取交易完成后 PayPal 发回的内容。您会注意到有大量调试电子邮件发回给我。这是我做的。
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim vReceived As String = ""
Dim vFormValues As String = ""
Dim vResponder As String = ""
Dim strE As String = ""
Dim intAccountID As Integer = 0
Dim intCreditsPurchased As Integer = 0
Dim vWebRequest As System.Net.HttpWebRequest
Dim vSSend As Boolean = False
'vWebRequest = CType(System.Net.WebRequest.Create("https://www.sandbox.paypal.com/cgi-bin/webscr"), System.Net.HttpWebRequest)
vWebRequest = CType(System.Net.WebRequest.Create("https://www.paypal.com/cgi-bin/webscr"), System.Net.HttpWebRequest)
vWebRequest.Method = "POST"
vWebRequest.ServicePoint.Expect100Continue = False
vWebRequest.ContentType = "application/x-www-form-urlencoded"
Try
vFormValues = Encoding.ASCII.GetString(Request.BinaryRead(Request.ContentLength))
vReceived = "cmd=_notify-validate&" & vFormValues
Catch ex As Exception
sSend_Mail_From_done_aspx("Requested Form.ToString", ex.ToString)
End Try
vWebRequest.ContentLength = vReceived.Length
Dim vStreamOut As System.IO.StreamWriter = New System.IO.StreamWriter(vWebRequest.GetRequestStream(), Encoding.ASCII)
vStreamOut.Write(vReceived)
vStreamOut.Close()
Dim vStreamIn As New System.IO.StreamReader(vWebRequest.GetResponse().GetResponseStream())
vResponder = vStreamIn.ReadToEnd()
vStreamIn.Close()
Dim vFieldName As String
Dim vFieldValue As String = ""
Dim vFields As New Collection
For Each vFieldName In Request.Form
'strE = strE & Request.Form.Item(vFieldName) & " "
strE &= vFieldName & ": " & Request.Form.Item(vFieldName) & vbCrLf
'vFieldValue = Request.Form.Item(vFieldName)
'vFields.Add(Decode(vFieldValue), Decode(vFieldName).ToLower)
Next
sSend_Mail_From_done_aspx("BEFORE VERIFIED CHECK, WHAT vResponder CONTAINS", strE)
Dim transactionID As String = ""
Dim dblAmount As Double
Dim intRowID As Integer
Dim dblPayPalFee As Double
Dim strMemo As String = ""
Dim strPayerEmail As String = ""
Dim strPaymentDate As String = ""
If Trim(vResponder).ToUpper = "VERIFIED" Then
For Each vFieldName In Request.Form
strE &= vFieldName & ": " & Request.Form.Item(vFieldName) & vbCrLf
Next
sSend_Mail_From_done_aspx("VERIFIED CAME THROUGH", strE)
Try
transactionID = Request.Form.Item("txn_id").ToString()
dblAmount = CType(Request.Form.Item("payment_gross"), Double)
intRowID = CType(Request.Form.Item("custom"), Integer)
dblPayPalFee = CType(Request.Form.Item("payment_fee"), Double)
If Len(Request.Form.Item("memo") & "") <> 0 Then
strMemo = Request.Form.Item("memo").ToString.Replace("'", "")
End If
strPayerEmail = Request.Form.Item("payer_email").ToString
strPaymentDate = Request.Form.Item("payment_date").ToString
Catch ex As Exception
sSend_Mail_From_done_aspx("Request.QueryString)", ex.ToString)
End Try
Try
'==============================
'SAVE TRANSACTION INFO HERE
'==============================
Dim sb As New StringBuilder
sb.Append("UPDATE dbo.tblTransactions ")
sb.Append("SET pp_txn_id='" & transactionID & "'")
sb.Append(", pp_payment_gross=" & dblAmount)
sb.Append(", pp_mc_fee=" & dblPayPalFee)
sb.Append(", memo='" & strMemo & "'")
sb.Append(", pp_payer_email='" & strPayerEmail & "'")
sb.Append(", pp_payment_date='" & strPaymentDate & "'")
sb.Append(" WHERE RowID =" & intRowID)
'SEND SQL TO DEVELOPER
sSend_Mail_From_done_aspx("INSERT statement BEFORE action", sb.ToString)
Dim conn As New SqlConnection(f1.fUseThisConnection(Server.MachineName))
Dim cmd As New SqlCommand(sb.ToString, conn)
cmd.Connection.Open()
cmd.ExecuteNonQuery()
'=========================================================
'UPDATE ACCOUNT INFO HERE (ADD CREDITS TO CURRENT AMOUNT)
'=========================================================
Dim dr As System.Data.SqlClient.SqlDataReader
sb.Length = 0
'GET ACCOUNT ID, AND CreditsPurchased
sb.Append("SELECT AccountID, CreditsPurchased FROM dbo.tblTransactions ")
sb.Append(" WHERE RowID =" & intRowID)
cmd.CommandText = sb.ToString
dr = cmd.ExecuteReader()
If dr.Read() Then
intAccountID = dr("AccountID")
intCreditsPurchased = dr("CreditsPurchased")
End If
dr.Close()
sb.Length = 0
'AT 1.10 A CREDIT, WE DIVIDE THE AMOUNT PAYPAY CHARGES BY THIS TO GET CREDITS PURCHASED
sb.Append("UPDATE dbo.tblAL SET Credits = Credits + " & intCreditsPurchased)
sb.Append(" WHERE AccountID =" & intAccountID)
cmd.CommandText = sb.ToString
cmd.ExecuteNonQuery()
'SEND ACCOUNT UPDATE AMOUNT TO DEVELOPER
sSend_Mail_From_done_aspx(intCreditsPurchased & " CREDITS ADDED TO ", sb.ToString)
cmd.Dispose()
conn.Close()
conn = Nothing
MySession.Credits = intCreditsPurchased
Catch ex As Exception
sSend_Mail_From_done_aspx("tblTransactions NOT UPDATED with Transaction Info", ex.ToString())
End Try
Else
sSend_Mail_From_done_aspx(Trim(vResponder).ToUpper, "TRANSACTION NOT VERIFIED")
End If
End Sub
我认为request/responses是下面这些:
已提交表格
URL = "https://www.paypal.com/cgi-bin/webscr"
在提交的"notify_url"里面发回这个
Dim vWebRequest As System.Net.HttpWebRequest
Dim vSSend As Boolean = False
'vWebRequest = CType(System.Net.WebRequest.Create("https://www.sandbox.paypal.com/cgi-bin/webscr"), System.Net.HttpWebRequest)
vWebRequest = CType(System.Net.WebRequest.Create("https://www.paypal.com/cgi-bin/webscr"), System.Net.HttpWebRequest)
当然要有一个"PayPalFiddle"哈哈
错误消息是转移注意力。 PayPal 找不到任何 TransactionId,将空的 TransactionId 报告为无效。
TransactionId 元素属于 urn:ebay:api:PayPalAPI
命名空间。您的 XML 将其附加到 urn:ebay:apis:eBLBaseComponents
命名空间。您需要做的就是将 ebl:TransactionId
更改为 ns:TransactionId
。
<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns="urn:ebay:api:PayPalAPI" xmlns:ebl="urn:ebay:apis:eBLBaseComponents" xmlns:cc="urn:ebay:apis:CoreComponentTypes" xmlns:ed="urn:ebay:apis:EnhancedDataTypes">
<soapenv:Header>
<ns:RequesterCredentials>
<ebl:Credentials>
<ebl:Username>soap_api_username_here</ebl:Username>
<ebl:Password>soap_api_password_here</ebl:Password>
<ebl:Signature>soap_api_signature_here</ebl:Signature>
</ebl:Credentials>
</ns:RequesterCredentials>
</soapenv:Header>
<soapenv:Body>
<ns:GetTransactionDetailsReq>
<ns:GetTransactionDetailsRequest>
<ebl:Version>204.0</ebl:Version>
<ns:TransactionID>8FX18476NR449891W</ns:TransactionID>
</ns:GetTransactionDetailsRequest>
</ns:GetTransactionDetailsReq>
</soapenv:Body>
我正在尝试从 PayPal 的 SOAP API 获取交易详细信息,但我 运行 进入 PayPal 的错误。它 returns 错误:
The transaction id is not valid
我知道这是一个有效的交易 ID,因为我可以使用 PayPal NVP API 获取交易详细信息,但也许我的 SOAP 请求格式不正确。我按照我可以在网上找到的 PayPal SOAP API 示例构建 SOAP XML,但它们很薄。我正在使用 mac 的 PAW 程序向 PayPal 的 API 发送 SOAP 请求,但使用 HTTP 客户端应该可以重现此问题。
我尝试使用 PayPal 的 REST API 但 there's no method to get transaction details (e.g. name, email, amount paid, custom fields) . I also tried to use the NVP (Name-Value-Pair) API 我确实取回了交易详细信息,但它没有为我提供交易的所有存储自定义字段。当我登录 PayPal 并查看单个交易时,我可以看到该交易的所有自定义字段,因此我知道它们已被存储。
肥皂 API 是我最后的希望。
这是我正在使用的 SOAP 信封请求:
<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns="urn:ebay:api:PayPalAPI" xmlns:ebl="urn:ebay:apis:eBLBaseComponents" xmlns:cc="urn:ebay:apis:CoreComponentTypes" xmlns:ed="urn:ebay:apis:EnhancedDataTypes">
<soapenv:Header>
<ns:RequesterCredentials>
<ebl:Credentials>
<ebl:Username>soap_api_username_here</ebl:Username>
<ebl:Password>soap_api_password_here</ebl:Password>
<ebl:Signature>soap_api_signature_here</ebl:Signature>
</ebl:Credentials>
</ns:RequesterCredentials>
</soapenv:Header>
<soapenv:Body>
<ns:GetTransactionDetailsReq>
<ns:GetTransactionDetailsRequest>
<ebl:Version>93.0</ebl:Version>
<ebl:TransactionID>8FX18476NR449891W</ebl:TransactionID>
</ns:GetTransactionDetailsRequest>
</ns:GetTransactionDetailsReq>
</soapenv:Body>
</soapenv:Envelope>
这是我从 PayPal SOAP 收到的响应 API:
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:cc="urn:ebay:apis:CoreComponentTypes" xmlns:wsu="http://schemas.xmlsoap.org/ws/2002/07/utility" xmlns:saml="urn:oasis:names:tc:SAML:1.0:assertion" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:wsse="http://schemas.xmlsoap.org/ws/2002/12/secext" xmlns:ed="urn:ebay:apis:EnhancedDataTypes" xmlns:ebl="urn:ebay:apis:eBLBaseComponents" xmlns:ns="urn:ebay:api:PayPalAPI">
<SOAP-ENV:Header>
<Security xmlns="http://schemas.xmlsoap.org/ws/2002/12/secext" xsi:type="wsse:SecurityType"/>
<RequesterCredentials xmlns="urn:ebay:api:PayPalAPI" xsi:type="ebl:CustomSecurityHeaderType">
<Credentials xmlns="urn:ebay:apis:eBLBaseComponents" xsi:type="ebl:UserIdPasswordType">
<Username xsi:type="xs:string"/>
<Password xsi:type="xs:string"/>
<Signature xsi:type="xs:string"/>
<Subject xsi:type="xs:string"/>
</Credentials>
</RequesterCredentials>
</SOAP-ENV:Header>
<SOAP-ENV:Body id="_0">
<GetTransactionDetailsResponse xmlns="urn:ebay:api:PayPalAPI">
<Timestamp xmlns="urn:ebay:apis:eBLBaseComponents">2016-08-02T16:43:02Z</Timestamp>
<Ack xmlns="urn:ebay:apis:eBLBaseComponents">Failure</Ack>
<CorrelationID xmlns="urn:ebay:apis:eBLBaseComponents">a464c181339f4</CorrelationID>
<Errors xmlns="urn:ebay:apis:eBLBaseComponents" xsi:type="ebl:ErrorType">
<ShortMessage xsi:type="xs:string">Transaction refused because of an invalid argument. See additional error messages for details.</ShortMessage>
<LongMessage xsi:type="xs:string">The transaction id is not valid</LongMessage>
<ErrorCode xsi:type="xs:token">10004</ErrorCode>
<SeverityCode xmlns="urn:ebay:apis:eBLBaseComponents">Error</SeverityCode>
</Errors>
<Version xmlns="urn:ebay:apis:eBLBaseComponents">93.0</Version>
<Build xmlns="urn:ebay:apis:eBLBaseComponents">000000</Build>
<PaymentTransactionDetails xmlns="urn:ebay:apis:eBLBaseComponents" xsi:type="ebl:PaymentTransactionType">
<ReceiverInfo xsi:type="ebl:ReceiverInfoType"/>
<PayerInfo xsi:type="ebl:PayerInfoType">
<PayerStatus xsi:type="ebl:PayPalUserStatusCodeType">verified</PayerStatus>
<PayerName xsi:type="ebl:PersonNameType"/>
<Address xsi:type="ebl:AddressType">
<AddressOwner xsi:type="ebl:AddressOwnerCodeType">PayPal</AddressOwner>
<AddressStatus xsi:type="ebl:AddressStatusCodeType">None</AddressStatus>
</Address>
</PayerInfo>
<PaymentInfo xsi:type="ebl:PaymentInfoType">
<TransactionType xsi:type="ebl:PaymentTransactionCodeType">none</TransactionType>
<PaymentType xsi:type="ebl:PaymentCodeType">none</PaymentType>
<PaymentStatus xsi:type="ebl:PaymentStatusCodeType">None</PaymentStatus>
<PendingReason xsi:type="ebl:PendingStatusCodeType">none</PendingReason>
<ReasonCode xsi:type="ebl:ReversalReasonCodeType">none</ReasonCode>
</PaymentInfo>
<PaymentItemInfo xsi:type="ebl:PaymentItemInfoType">
<Subscription xsi:type="ebl:SubscriptionInfoType"/>
<Auction xsi:type="ebl:AuctionInfoType"/>
</PaymentItemInfo>
</PaymentTransactionDetails>
</GetTransactionDetailsResponse>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>
我不确定我做错了什么,但也许有更多经验的人比我更容易发现错误。我回答了另一个用户关于 PayPal REST 的问题 API 并从中获取交易详细信息,但据我所知,没有办法做到这一点 Get customer details after transaction 。如果您找到了使用 REST API 实现此目的的方法,请告诉我,因为我宁愿使用 REST 而不是 SOAP。
谢谢。
我会把它作为评论,但它充满了愚蠢的东西。以离开远方为代价,我可能会有所帮助。 所以我的 vb.net 代码向 paypal 发送了一个表单,其中包括 "notify_url".
' determining the URL to work with depending on whether sandbox or a real PayPal account should be used
If strRealOrSand = "Sand" Then
URL = "https://www.sandbox.paypal.com/cgi-bin/webscr"
business = "x@xxx.com" ' AppSettings("BusinessEmail") (sandbox account business email)
ElseIf strRealOrSand = "Real" Then
URL = "https://www.paypal.com/cgi-bin/webscr"
business = "xxx@xxx.com" ' AppSettings("BusinessEmail") (real pay pal account account business email)
End If
notify_url = "http://www.xxxxx.com/accounts/done.aspx"
<form id="payForm" method="post" action="<%Response.Write (URL)%>" >
<input type="hidden" name="cmd" value="<%Response.Write (cmd)%>" />
<input type="hidden" name="business" value="<%Response.Write (business)%>" />
<input type="hidden" name="item_name" value="<%Response.Write (item_name)%>" />
<input type="hidden" name="amount" value="<%Response.Write (amount)%>" />
<input type="hidden" name="no_shipping" value="<%Response.Write (no_shipping)%>" />
<input type="hidden" name="return" value="<%Response.Write (return_url)%>" />
<input type="hidden" name="rm" value="<%Response.Write (rm)%>" />
<input type="hidden" name="notify_url" value="<%Response.Write (notify_url)%>" />
<input type="hidden" name="cancel_return" value="<%Response.Write (cancel_url)%>" />
<input type="hidden" name="currency_code" value="<%Response.Write (currency_code)%>" />
<input type="hidden" name="custom" value="<%Response.Write (row_id)%>" />
</form>
<script type="text/javascript">
document.forms["payForm"].submit ();
</script>
</body>
然后在我的 "notify_url" 页面加载中,它获取交易完成后 PayPal 发回的内容。您会注意到有大量调试电子邮件发回给我。这是我做的。
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim vReceived As String = ""
Dim vFormValues As String = ""
Dim vResponder As String = ""
Dim strE As String = ""
Dim intAccountID As Integer = 0
Dim intCreditsPurchased As Integer = 0
Dim vWebRequest As System.Net.HttpWebRequest
Dim vSSend As Boolean = False
'vWebRequest = CType(System.Net.WebRequest.Create("https://www.sandbox.paypal.com/cgi-bin/webscr"), System.Net.HttpWebRequest)
vWebRequest = CType(System.Net.WebRequest.Create("https://www.paypal.com/cgi-bin/webscr"), System.Net.HttpWebRequest)
vWebRequest.Method = "POST"
vWebRequest.ServicePoint.Expect100Continue = False
vWebRequest.ContentType = "application/x-www-form-urlencoded"
Try
vFormValues = Encoding.ASCII.GetString(Request.BinaryRead(Request.ContentLength))
vReceived = "cmd=_notify-validate&" & vFormValues
Catch ex As Exception
sSend_Mail_From_done_aspx("Requested Form.ToString", ex.ToString)
End Try
vWebRequest.ContentLength = vReceived.Length
Dim vStreamOut As System.IO.StreamWriter = New System.IO.StreamWriter(vWebRequest.GetRequestStream(), Encoding.ASCII)
vStreamOut.Write(vReceived)
vStreamOut.Close()
Dim vStreamIn As New System.IO.StreamReader(vWebRequest.GetResponse().GetResponseStream())
vResponder = vStreamIn.ReadToEnd()
vStreamIn.Close()
Dim vFieldName As String
Dim vFieldValue As String = ""
Dim vFields As New Collection
For Each vFieldName In Request.Form
'strE = strE & Request.Form.Item(vFieldName) & " "
strE &= vFieldName & ": " & Request.Form.Item(vFieldName) & vbCrLf
'vFieldValue = Request.Form.Item(vFieldName)
'vFields.Add(Decode(vFieldValue), Decode(vFieldName).ToLower)
Next
sSend_Mail_From_done_aspx("BEFORE VERIFIED CHECK, WHAT vResponder CONTAINS", strE)
Dim transactionID As String = ""
Dim dblAmount As Double
Dim intRowID As Integer
Dim dblPayPalFee As Double
Dim strMemo As String = ""
Dim strPayerEmail As String = ""
Dim strPaymentDate As String = ""
If Trim(vResponder).ToUpper = "VERIFIED" Then
For Each vFieldName In Request.Form
strE &= vFieldName & ": " & Request.Form.Item(vFieldName) & vbCrLf
Next
sSend_Mail_From_done_aspx("VERIFIED CAME THROUGH", strE)
Try
transactionID = Request.Form.Item("txn_id").ToString()
dblAmount = CType(Request.Form.Item("payment_gross"), Double)
intRowID = CType(Request.Form.Item("custom"), Integer)
dblPayPalFee = CType(Request.Form.Item("payment_fee"), Double)
If Len(Request.Form.Item("memo") & "") <> 0 Then
strMemo = Request.Form.Item("memo").ToString.Replace("'", "")
End If
strPayerEmail = Request.Form.Item("payer_email").ToString
strPaymentDate = Request.Form.Item("payment_date").ToString
Catch ex As Exception
sSend_Mail_From_done_aspx("Request.QueryString)", ex.ToString)
End Try
Try
'==============================
'SAVE TRANSACTION INFO HERE
'==============================
Dim sb As New StringBuilder
sb.Append("UPDATE dbo.tblTransactions ")
sb.Append("SET pp_txn_id='" & transactionID & "'")
sb.Append(", pp_payment_gross=" & dblAmount)
sb.Append(", pp_mc_fee=" & dblPayPalFee)
sb.Append(", memo='" & strMemo & "'")
sb.Append(", pp_payer_email='" & strPayerEmail & "'")
sb.Append(", pp_payment_date='" & strPaymentDate & "'")
sb.Append(" WHERE RowID =" & intRowID)
'SEND SQL TO DEVELOPER
sSend_Mail_From_done_aspx("INSERT statement BEFORE action", sb.ToString)
Dim conn As New SqlConnection(f1.fUseThisConnection(Server.MachineName))
Dim cmd As New SqlCommand(sb.ToString, conn)
cmd.Connection.Open()
cmd.ExecuteNonQuery()
'=========================================================
'UPDATE ACCOUNT INFO HERE (ADD CREDITS TO CURRENT AMOUNT)
'=========================================================
Dim dr As System.Data.SqlClient.SqlDataReader
sb.Length = 0
'GET ACCOUNT ID, AND CreditsPurchased
sb.Append("SELECT AccountID, CreditsPurchased FROM dbo.tblTransactions ")
sb.Append(" WHERE RowID =" & intRowID)
cmd.CommandText = sb.ToString
dr = cmd.ExecuteReader()
If dr.Read() Then
intAccountID = dr("AccountID")
intCreditsPurchased = dr("CreditsPurchased")
End If
dr.Close()
sb.Length = 0
'AT 1.10 A CREDIT, WE DIVIDE THE AMOUNT PAYPAY CHARGES BY THIS TO GET CREDITS PURCHASED
sb.Append("UPDATE dbo.tblAL SET Credits = Credits + " & intCreditsPurchased)
sb.Append(" WHERE AccountID =" & intAccountID)
cmd.CommandText = sb.ToString
cmd.ExecuteNonQuery()
'SEND ACCOUNT UPDATE AMOUNT TO DEVELOPER
sSend_Mail_From_done_aspx(intCreditsPurchased & " CREDITS ADDED TO ", sb.ToString)
cmd.Dispose()
conn.Close()
conn = Nothing
MySession.Credits = intCreditsPurchased
Catch ex As Exception
sSend_Mail_From_done_aspx("tblTransactions NOT UPDATED with Transaction Info", ex.ToString())
End Try
Else
sSend_Mail_From_done_aspx(Trim(vResponder).ToUpper, "TRANSACTION NOT VERIFIED")
End If
End Sub
我认为request/responses是下面这些:
已提交表格
URL = "https://www.paypal.com/cgi-bin/webscr"
在提交的"notify_url"里面发回这个
Dim vWebRequest As System.Net.HttpWebRequest
Dim vSSend As Boolean = False
'vWebRequest = CType(System.Net.WebRequest.Create("https://www.sandbox.paypal.com/cgi-bin/webscr"), System.Net.HttpWebRequest)
vWebRequest = CType(System.Net.WebRequest.Create("https://www.paypal.com/cgi-bin/webscr"), System.Net.HttpWebRequest)
当然要有一个"PayPalFiddle"哈哈
错误消息是转移注意力。 PayPal 找不到任何 TransactionId,将空的 TransactionId 报告为无效。
TransactionId 元素属于 urn:ebay:api:PayPalAPI
命名空间。您的 XML 将其附加到 urn:ebay:apis:eBLBaseComponents
命名空间。您需要做的就是将 ebl:TransactionId
更改为 ns:TransactionId
。
<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns="urn:ebay:api:PayPalAPI" xmlns:ebl="urn:ebay:apis:eBLBaseComponents" xmlns:cc="urn:ebay:apis:CoreComponentTypes" xmlns:ed="urn:ebay:apis:EnhancedDataTypes">
<soapenv:Header>
<ns:RequesterCredentials>
<ebl:Credentials>
<ebl:Username>soap_api_username_here</ebl:Username>
<ebl:Password>soap_api_password_here</ebl:Password>
<ebl:Signature>soap_api_signature_here</ebl:Signature>
</ebl:Credentials>
</ns:RequesterCredentials>
</soapenv:Header>
<soapenv:Body>
<ns:GetTransactionDetailsReq>
<ns:GetTransactionDetailsRequest>
<ebl:Version>204.0</ebl:Version>
<ns:TransactionID>8FX18476NR449891W</ns:TransactionID>
</ns:GetTransactionDetailsRequest>
</ns:GetTransactionDetailsReq>
</soapenv:Body>