Как использовать компоненты Rest Cient в проектах TypeLibrary Delphi? - PullRequest
0 голосов
/ 24 апреля 2020

Я создал простое приложение формы Win в Delphi и использовал приведенный ниже код, удалив компоненты RestClient в форме. Все отлично работает Теперь я хочу использовать ту же функциональность в TypeLib, потому что я хочу вывод DLL и использую эту DLL в. Net.

Можете ли вы дать мне знать, как использовать остальные компоненты

unit Main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, REST.Types, REST.Client,
  Data.Bind.Components, Data.Bind.ObjectScope;

type
  TForm1 = class(TForm)
    Button1: TButton;
    RESTClient1: TRESTClient;
    RESTRequest1: TRESTRequest;
    RESTResponse1: TRESTResponse;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  LHTTP: TRESTClient;
  LRequest: TRESTRequest;
  LResponse: TRESTResponse;

begin
  LHTTP := TRESTClient.Create('https://jsonplaceholder.typicode.com/todos');

  try
    LRequest := TRESTRequest.Create(LHTTP);
    LRequest.Method := TRESTRequestMethod.rmGET;
    LRequest.Execute;

    Memo1.Lines.Text := LRequest.Response.Content;
  finally
    LHTTP.Free;
  end;


end;
end.
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...