delphi - 使用 Delphi 的 oData 服务

Question

如何使用 Delphi 的 oData Web 服务（我正在尝试与新的 Bing Search Azure API 交互）？在 Delphi 中几乎没有信息可以做到这一点。这里有一篇文章，但从 Delphi 的角度解释如何使用此类服务​​并没有多大帮助。谁能提供一个简单的例子？

Answer 1

下面是一个非常简单的示例，使用 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.