delphi NetEncoding 提交Authentication

uses

  ...,  System.NetEncoding, ...

...

var

  Base64: TBase64Encoding;

  httpClient: THttpClient;

  ...

begin

  ...

  httpClient.ContentType:='application/xml';

  Base64 := TBase64Encoding.Create;

  httpClient.CustHeaders.add('Authentication','Basic ' + Base64.Encode('user:password'));

  Base64.Free;

  httpClient.CustHeaders.Add('OrganisationId', 'your dm.Company');

  httpClient.CustHeaders.Add('Accept', 'application/xml');

  httpClient.Post('your URL',xmlData);

  ...

end;