面單 API

uses
  System.Net.HttpClient, System.JSON, System.NetEncoding,
  System.Classes, System.IOUtils;

var
  Http: THTTPClient;
  Body, Resp: TStringStream;
  Root, Rec: TJSONObject;
  Arr: TJSONArray;
begin
  Http := THTTPClient.Create;
  Body := TStringStream.Create(
    '{"ComNo":"100009","RName":"李大華",' +
    '"RAddress":"台北市中正區忠孝東路一段1號",' +
    '"Contents":"文件","AmountCollected":0}', TEncoding.UTF8);
  Resp := TStringStream.Create('', TEncoding.UTF8);
  try
    Http.ContentType := 'application/json';
    Http.CustomHeaders['X-Api-Key'] := 'ptk_6fa3acf8_bdf4dc63aad99b4b9fb0ae914ec5d250';
    Http.Post('http://192.168.0.99:59035/datasnap/rest/' +
              'TServerMethods1/RenderLabel', Body, Resp);

    Root := TJSONObject.ParseJSONValue(Resp.DataString) as TJSONObject;
    try
      Arr := Root.GetValue('result') as TJSONArray;
      Rec := Arr.Items[0] as TJSONObject;

      if Rec.GetValue<Boolean>('ok') then
      begin
        TFile.WriteAllBytes('label.pdf',
          TNetEncoding.Base64.DecodeStringToBytes(
            Rec.GetValue<string>('pdf_base64')));
        ShowMessage('郵件號碼：' + Rec.GetValue<string>('mail_no'));
      end
      else
        ShowMessage(Format('失敗 [%s] %s',
          [Rec.GetValue<string>('step'), Rec.GetValue<string>('error')]));
    finally
      Root.Free;
    end;
  finally
    Resp.Free; Body.Free; Http.Free;
  end;
end;

const BASE = 'http://192.168.0.99:59035/datasnap/rest/TServerMethods1';

const resp = await fetch(`${BASE}/RenderLabel`, {
  method:  'POST',
  headers: {
    'Content-Type': 'application/json',
    'X-Api-Key':    'ptk_6fa3acf8_bdf4dc63aad99b4b9fb0ae914ec5d250'
  },
  body: JSON.stringify({
    ComNo:           '100009',
    RName:           '李大華',
    RMobile:         '0922333444',
    RAddress:        '台北市中正區忠孝東路一段1號',
    Contents:        '文件',
    Weight:          '1.2',
    AmountCollected: 0
  })
});

const r = (await resp.json()).result[0];
if (!r.ok) throw new Error(`[${r.step}] ${r.error}`);

console.log('郵件號碼', r.mail_no);

// 開新分頁顯示 PDF
const bytes = Uint8Array.from(atob(r.pdf_base64), c => c.charCodeAt(0));
const url   = URL.createObjectURL(new Blob([bytes], { type: 'application/pdf' }));
window.open(url, '_blank');

using System.Net.Http;
using System.Text;
using System.Text.Json;

const string Base = "http://192.168.0.99:59035/datasnap/rest/TServerMethods1";

var payload = new {
    ComNo           = "100009",
    RName           = "李大華",
    RAddress        = "台北市中正區忠孝東路一段1號",
    Contents        = "文件",
    AmountCollected = 0
};

using var http = new HttpClient();
http.DefaultRequestHeaders.Add("X-Api-Key",
    "ptk_6fa3acf8_bdf4dc63aad99b4b9fb0ae914ec5d250");

var content = new StringContent(
    JsonSerializer.Serialize(payload), Encoding.UTF8, "application/json");

var resp = await http.PostAsync($"{Base}/RenderLabel", content);
var json = JsonDocument.Parse(await resp.Content.ReadAsStringAsync());
var r    = json.RootElement.GetProperty("result")[0];

if (!r.GetProperty("ok").GetBoolean())
    throw new Exception($"[{r.GetProperty("step").GetString()}] " +
                        $"{r.GetProperty("error").GetString()}");

Console.WriteLine($"郵件號碼 {r.GetProperty("mail_no").GetString()}");
File.WriteAllBytes("label.pdf",
    Convert.FromBase64String(r.GetProperty("pdf_base64").GetString()));

$base = 'http://192.168.0.99:59035/datasnap/rest/TServerMethods1'

$payload = @{
    ComNo           = '100009'
    RName           = '李大華'
    RAddress        = '台北市中正區忠孝東路一段1號'
    Contents        = '文件'
    AmountCollected = 0
} | ConvertTo-Json

$headers = @{ 'X-Api-Key' = 'ptk_6fa3acf8_bdf4dc63aad99b4b9fb0ae914ec5d250' }

$resp = Invoke-RestMethod -Uri "$base/RenderLabel" -Method Post `
          -Headers $headers -ContentType 'application/json' -Body $payload
$r = $resp.result[0]

if (-not $r.ok) { throw "[$($r.step)] $($r.error)" }

Write-Host "郵件號碼 $($r.mail_no)"
[System.IO.File]::WriteAllBytes(
    "$PWD\label.pdf", [Convert]::FromBase64String($r.pdf_base64))