从Delphi消费oData服务

发布时间：2020-12-15 04:25:40 所属栏目：大数据来源：网络整理

导读：我如何从Delphi消费oData webservice(我正在尝试与新的Bing Search Azure API进行交互)？在德尔福几乎没有这样做的信息.有一个帖子 here,但它并没有帮助解释如何从Delphi的角度来消费这样的服务.任何人都可以提供一个简单的例子吗？解决方法以下是使用netf

我如何从Delphi消费oData webservice(我正在尝试与新的Bing Search Azure API进行交互)？在德尔福几乎没有这样做的信息.有一个帖子 here,但它并没有帮助解释如何从Delphi的角度来消费这样的服务.任何人都可以提供一个简单的例子吗？

解决方法

以下是使用netflix oData服务在Delphi XE中使用oData服务的一个非常简单的示例：

program oDataDemo;

{$APPTYPE CONSOLE}

uses
  SysUtils,msxml,Variants,Activex;

var
  httpRequest: IXMLHttpRequest;
  oDataServiceURI: String;
  oDataFilter: String;
  xmlResults: String;
begin
  try
    oDataServiceURI := 'http://odata.netflix.com/v2/Catalog/Titles()';
    oDataFilter := '?$top=10';
    coinitialize(nil);
    httpRequest := CoXMLHTTP.Create;
    httpRequest.open('GET',UTF8Encode(oDataServiceURI + oDataFilter),false,EmptyParam,EmptyParam);
    httpRequest.send(EmptyParam);
    xmlResults := httpRequest.responseText;
    WriteLn(xmlResults);

  except
    on E: Exception do
      Writeln(E.ClassName,': ',E.Message);
  end;
end.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!