Я создал простое приложение формы 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.