paypal - 初めてマスペイを実行しようとしてエラーが発生しました。

Question

一括払いのダミーのリクエストを作成しようとしていますが、問題が発生しています。マスペイがクラッシュしてこれを返しています。

com.paypal.sdk.exceptions.TransactionException: 基になる接続が閉じられました: 受信時に予期しないエラーが発生しました。---> System.Reflection.TargetInvocationException: 呼び出しのターゲットによって例外がスローされました。---> System.Net.WebException: 基になる接続が閉じられました: 受信時に予期しないエラーが発生しました。---> System.IO.IOException: トランスポート接続からデータを読み取ることができません: 既存の接続がリモート ホストによって強制的に閉じられました。---> System.Net.Sockets.SocketException: 既存の接続が System.Net.Sockets.NetworkStream.Read(Byte[] buffer, Int32 offset, Int32 size) でリモート ホストによって強制的に閉じられました --- 内部の終わり例外スタック トレース --- System.Net.Sockets.NetworkStream.Read(Byte[] buffer, Int32 offset, Int32 size) at System.Net.FixedSizeReader.

私のコードは次のようになります。誰かが私が間違っていることを教えてください: Dim MassPayReqItem As New MassPayRequestItemType MassPayReqItem.Amount = New BasicAmountType MassPayReqItem.Amount.currencyID = CurrencyCodeType.USD MassPayReqItem.Amount.Value = 15.0 MassPayReqItem.Note = "大量支払いのテスト" MassPayReqItem.ReceiverEmail = "user@email.com"

    Dim MassPayReqItem1 As New MassPayRequestItemType
    MassPayReqItem1.Amount = New BasicAmountType
    MassPayReqItem1.Amount.currencyID = CurrencyCodeType.USD
    MassPayReqItem1.Amount.Value = 5.0
    MassPayReqItem1.Note = "test mass payment1"
    MassPayReqItem1.ReceiverEmail = "user1@email.com"


    Dim massPayItemsArray(1) As MassPayRequestItemType
    massPayItemsArray.SetValue(MassPayReqItem, 0)
    massPayItemsArray.SetValue(MassPayReqItem1, 1)


    Dim MassPayReqType As New MassPayRequestType
    MassPayReqType.MassPayItem = massPayItemsArray
    MassPayReqType.Version = "51.0"
    MassPayReqType.EmailSubject = "Mass Payment from  from me " _
    & Date.Now.ToLongTimeString


    Dim profile As IAPIProfile = ProfileFactory.createSignatureAPIProfile()



    Dim caller As New com.paypal.sdk.services.CallerServices()

    profile.APIUsername = "fsadsfdafsdasfad1.gmail.com"
    profile.APIPassword = "fafsdafafaddsaf"
    profile.APISignature = "Alq1UN0gL5pSkR-311R7KRCKujzNfdsaasgasgsagsagcOvcvz-hn5Rd"

    caller.APIProfile = profile

    Try
        'send request, return response

        Dim MPRes As New MassPayResponseType
        MPRes = DirectCast(caller.[Call]("MassPay", MassPayReqType), MassPayResponseType)



        Select Case MPRes.Ack

            Case AckCodeType.Success

                Response.Write("API response: <b>" & MPRes.Ack.ToString _
                & "</b><br> Timestamp: <b>" & MPRes.Timestamp.ToLongTimeString _
                & "</b><br> Version: <b>" & MPRes.Version.ToString)

            Case Else
                Response.Write("API response: <b>" & MPRes.Ack.ToString _
                & "</b><br> Timestamp: <b>" & MPRes.Timestamp.ToLongTimeString _
                & "</b><br> Version: <b>" & MPRes.Version.ToString _
                & "</b><br> Error code: <b>" & MPRes.Errors(0).ErrorCode _
                & "</b><br> Short error: <b>" & MPRes.Errors(0).ShortMessage _
                & "</b><br> Long error: <b>" & MPRes.Errors(0).LongMessage)

        End Select

    Catch ex As Exception

        Response.Write(ex.ToString)

    End Try