可以 Intraweb + Delphi 使用SIM 处理authorize.net 中继响应？

Question

我们* 有一个由 Delphi + Intraweb（用于前端/Web 代码管理）创建的 Web 应用程序，用于管理订购流程。它获取订购信息，然后向authorize.net发送交易请求（本质上使用他们的SIM示例代码 ）。这工作得很好，并且信用卡订单已处理。

然而，当authorize.net将表单发送回中继响应URL（http://developer.authorize.net/guides/SIM/Receipt_Options/Relay_Response.htm）时，Intraweb应用程序崩溃了。我可以使用 TamperData 看到表单数据正在正确发送。她可以看到她的程序打开了一个数据库连接，然后超时。

• 我已经用尽了我的 google-fu，但没有找到任何 Intraweb 代码能够接受传入表单帖子的示例。 （这可能就是我们真正需要的。如果我们能够将数据进入 Intraweb/Delphi 世界，那么我们就可以管理其余的内容。
• ） com/intraweb/IntrawebManual.pdf" rel="nofollow">Intraweb 文档 表明 IW 将接受 URL 上传递的参数，但没有提及接受 POST 数据。
• Authorize.net 社区论坛有一个询问/回答的帖子，基本上说“抱歉，我们没有任何 Delphi 代码示例，请询问您的供应商。”
• Intraweb 技术支持无法帮助她。 （我认为他们还没有回复几周前的请求，但我不确定。）
• 我建议她创建一个模仿authorize.net表单帖子的测试应用程序存根，以确保表单对象是被正确创建。 （我不太明白拖放表单字段的背后发生了什么，但我倾注了生成的源代码来试图弄清楚这一点。）但是表单 POST 就是表单 POST，对吗？我的意思是，它是 HTTP，而不是魔法。但这样做有两个问题。 1.) Intraweb 似乎强制表单字段名称全部大写。 2.) 她说 IW 不接受下划线作为表单字段名称的一部分。当然，我们坚持使用authorize.net 发送的内容，小写字母、下划线分隔等等。

您是否有任何见解、示例代码的提示或建议放弃所有内容并转向另一个解决方案？我们非常感谢以上任何一项。

*我们 = 一位老派的 Delphi 程序员/DBA，对 Delphi 了如指掌，但 Intraweb “自动工作”，而我，一名 Java 程序员，偶尔在国家的另一边做 PHP 黑客，对可视化 IDE 过敏，但试图解释它互联网与HTTP 对她来说是个谜。对于这个特殊问题，我们的能力似乎小于各个部分的总和。

Answer 1

我建议您使用 Authorize.net 的 SOAP 接口。我有一个 Delphi/Intraweb 应用程序，可以使用authorize.net 处理付款和订阅，我花了 1 个小时才弄清楚。只需设置一个小型测试项目并从authorize.net导入wsdl，您就可以立即处理他们提供的所有内容。如果想尝试并遇到问题，我可以通过我的代码中的一些示例来帮助您。

Answer 2

感谢 @ioan 的指点，我们已经启动并运行了 SOAP 解决方案。我的同事花了一些尝试和错误来编写 Pascal 代码，但她将其传递给我发布，以防它节省其他人一些时间。她最终得到的结果如下：

procedure TfrmSOAP.btnGetUnsettledReportClick(Sender: TObject);
var
  X : ServiceSoap;
  MyAuthentication : MerchantAuthenticationType;
  MyRequest : GetUnsettledTransactionListRequestType;
  aResponse : GetUnsettledTransactionListResponseType;
  msg : string;
  i : integer;
begin
  inherited;
  //Call the service
  X := GetServiceSoap(false);
  //create some variables/parameters to pass back and forth
  MyAuthentication := MerchantAuthenticationType.Create;
  MyRequest := GetUnsettledTransactionListRequestType.Create;
  aResponse := GetUnsettledTransactionListResponseType.Create;
  try
    //assign values to the MerchantAuthenticationType parameter
    MyAuthentication.name_ := APILoginTest;
    MyAuthentication.transactionKey := TransKeyTest;
    //request a list of unsettled transactions
    aResponse := X.GetUnsettledTransactionList(MyAuthentication, MyRequest);
    //check to see if the request was successful
    if aResponse.resultCode <> messagetypeenum(0) then
        begin
          ShowMsg('Error');
          ShowMsg(aResponse.messages[0].text);
        end;
    //step through the list, and display i, InvoiceNo, and LastName.
    for i := 0 to high(aResponse.transactions) do
       msg := msg + IntToStr(i) + ') ' + aResponse.transactions[i].invoiceNumber
              + '  '+ aResponse.transactions[i].lastName + #13;
    ShowMsg(msg);
  finally
    MyRequest.Free;
    MyAuthentication.Free;
    aResponse.Free;
  end;
end;

她还发送了提醒，以确保您在运行测试与生产时使用正确的信息：“我使用了下载的 WSDL 中的 URL。该 URL 用于生产帐户。您必须使用测试帐户的列表不同，所以我一直收到一个空列表，并认为这是我的代码中的错误，没有得到响应。”

再次感谢所有的帮助和建议！

Answer 3

Arcana (www.arcanatech.com) 曾经有一个信用卡组件，专门用于与 Intraweb 和authorize.net 配合使用。虽然配置使用所需的 SSL 有点棘手，但这段代码很便宜，并且至今仍在 6-8 年前编写的应用程序中使用。