Delphi 与 Graph.cool API？

Posted 2023-03-10

【中文标题】Delphi 与 Graph.cool API？

【英文标题】：Delphi with Graph.cool API?

【发布时间】：2018-03-30 22:55:08

【问题描述】：

如何使用 Delphi 连接 Graph.cool？

我想构建一个 Win32/Win64/OSX 客户端

https://Graph.cool/ 有一个 GraphQL (REST) API 端点。

示例： https://api.graph.cool/simple/v1/ENDPOINT

使用 FaceBook GraphQL 实现 GraphQL 的一个已知示例位于： http://docwiki.embarcadero.com/RADStudio/Tokyo/en/REST_Client_Library

我有一个示例查询：

mutation 
  createUser(
    authProvider:  
      email:  email: "[e-mail]", password: "hello" 
      
  )
  
    id
  

创建用户帐户。

我尝试使用 TRESTClient，但似乎没有办法放置非结构化字符串查询。

来自 DFM 的片段：

var
  RESTRequest1: TRESTRequest;
  RESTRequest1 := TRESTRequest.Create(Self);
  RESTRequest1.Name := 'RESTRequest1';
  RESTRequest1.AcceptEncoding := ' ';
  RESTRequest1.Client := RESTClient1;
  RESTRequest1.Method := rmPOST;
  with RESTRequest1.Params.Add do begin 
    name := 'query';
    Options := [poAutoCreated];
    Value := ' "query": "mutation  createUser(authProvider:  email:  email: \"hello@hello\", password: \"hello\"  )  id  " ';
    ContentType := ctAPPLICATION_javascript;
  end;
  with RESTRequest1.Params.Add do begin 
    name := ' id ';
    Options := [poAutoCreated];
  end;
  RESTRequest1.Response := RESTResponse1;
  RESTRequest1.SynchronizedEvents := False;

我得到：a) 错误请求，b) 无效的 Json 查询。

有什么想法可以与 Graph.cool API 交互吗？

【参考方案1】：

简单的方法是直接使用HttpClient，比如

function SendHttp(const ARequest: string): string;
var
  HttpClient: THttpClient;
  Response: IHttpResponse;
  ST: TStream;
begin
  HttpClient := THttpClient.Create;
  try
    HttpClient.ContentType := CONTENTTYPE_APPLICATION_JSON;
    HttpClient.Accept := CONTENTTYPE_APPLICATION_JSON;
    ST := TStringStream.Create(ARequest);
    try
      Response := HttpClient.Post('https://api.graph.cool/simple/v1/ENDPOINT', ST, nil,
      TNetHeaders.Create(
        TNameValuePair.Create('Authorization', 'Bearer YOUR_AUTH_TOKEN')
       ));
      Result := Response.ContentAsString();
    finally
      ST.Free;
    end;
  finally
    HttpClient.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(SendHttp('"query": "mutation '+
      '  createUser('+
      '    authProvider: ' +
      '      email:  email: \"[e-mail]\", password: \"hello\"'+
      '      '+
      '  )' +
      '  ' +
      '    id' +
      '  ' +
      '" '));
end;

【讨论】：

你将如何使用这个 repo - github.com/paolo-rossi/delphi-jose-jwt 来获取 JWT 声明并使用 Graph.cool 进行身份验证？

例如，如果是登录：Memo1.Lines.Add(SendHttp('"query": "mutation ' + ' signinUser( '+ ' email: email: \"hello@ hello.com\"，密码：\"hello\" ) token " '));

我做了更多的工作。如果您获得 JWT Auth 令牌，您可以 a) 使用 Delphi-JWT 解码令牌，或将 JWT Auth 令牌原样传回网站。它会起作用的。