如何使用TRestClient库将媒体项目从Delphi (Rio)应用程序上传到WordPress

uses
  REST.Client, REST.Types, System.Classes;

procedure TForm1.Button1Click(Sender: TObject);
var
  RestClient: TRestClient;
  RestRequest: TRestRequest;
  FileStream: TFileStream;
begin
  RestClient := TRestClient.Create('https://your-wordpress-api-url.com');
  RestClient.Authenticator := TOAuth2Authenticator.Create(nil);
  RestClient.Authenticator.AccessToken := 'your-access-token';

  RestRequest := TRestRequest.Create(nil);
  RestRequest.Method := rmPOST;
  RestRequest.Resource := '/wp/v2/media';

  RestRequest.Params.AddItem('file', 'your-media-file-path', TRESTRequestParameterKind.pkFILE);

  FileStream := TFileStream.Create('your-media-file-path', fmOpenRead);
  RestRequest.AddBody(FileStream, 'application/octet-stream');

  RestClient.Execute(RestRequest);

  if RestClient.Response.StatusCode = 201 then
    ShowMessage('Upload successful')
  else
    ShowMessage('Upload failed');

  RestClient.Free;
  RestRequest.Free;
  FileStream.Free;
end;