delphi - Amazon S3 からオブジェクトを取得した後、ストリームから通常の Delphi 文字列を取得するにはどうすればよいですか?

Question

TAmazonStorageService クラスの UploadObject メソッドを使用して、JSON 文字列を Amazon S3 に入れています。オブジェクトを取得すると、ストリームに配置されます (私は TStringStream を使用しています)。これは、UTF-16 LE でコード化されているようです。次に、その JSON をメモ、TStringList、またはその他の同様のオブジェクトにロードしようとすると、最初の文字、JSON の左中かっこだけが取得されます。一方、ファイルに書き込むと、JSON 全体 (UTF-16 LE エンコード) が取得されます。UTF-16 LE は各文字を 2 バイトでエンコードし、2 番目のバイトは常に 0 であるため、Delphi は 0 がファイル マーカーの終わりであると想定しています。

通常の Delphi 文字列 (WideString)、または TStringStream から ANSIString を取得するにはどうすればよいですか? または、WideString または ANSIString を取得するために使用できる別のストリームを使用する必要がありますか?

アップロードを表す擬似コードを次に示します。

procedure StorePayload( AmazonConnectionInfo: TAmazonConnectionInfo; JSONString: String;
                        PayloadMemTable: TFDAdaptedDataSet;
                        PayloadType: String; PayloadVersion: Integer);
var
  AmazonStorageService: TAmazonStorageService;
  ab: TBytes;
  ResponseInfo: TCloudResponseInfo;
  ss: TStringStream;
  Guid: TGuid;
begin
  Guid := TGuid.NewGuid;
  AmazonStorageService := TAmazonStorageService.Create( AmazonConnectionInfo );
  try
  // Write payload to S3
  ResponseInfo := TCloudResponseInfo.Create;
  try
    ss := TStringStream.Create( JSONString );
    try
      ab := StringToBytes( ss.DataString );
      if AmazonStorageService.UploadObject( BucketName, Guid.ToString, ab, false, nil, nil, amzbaPrivate, ResponseInfo ) then
        PayloadMemTable.AppendRecord( [Guid.ToString, PayloadType, PayloadVersion, now() ] );
    finally
      ss.Free;
    end;
  finally
    ResponseInfo.Free;
  end;
  finally
    AmazonStorageService.Free;
  end;
end;

JSON の取得を表す擬似コードを次に示します。

function RetrievePayload( AmazonConnectionInfo: TAmazonConnectionInfo ): String;
var
  AmazonStorageService: TAmazonStorageService;
  ObjectName: string;
  ResponseInfo: TCloudResponseInfo;
  ss: TStringStream;
  OptParams: TAmazonGetObjectOptionals;
begin
  // I tried with and without the TAmazonGetObjectOptionals
  OptParams := TAmazonGetObjectOptionals.Create;
  OptParams.ResponseContentEncoding := 'ANSI';
  OptParams.ResponseContentType := 'text/plain';
  AmazonStorageService := TAmazonStorageService.Create( AmazonConnectionInfo );
  try
    ss := TStringStream.Create( );
    try
      ResponseInfo := TCloudResponseInfo.Create;
      try
        if not AmazonStorageService.GetObject( BucketName, PayloadID, OptParams, 
                                               ss, ResponseInfo, amzrNotSpecified ) then
          raise Exception.Create('Error retrieving item ' + ObjectName);
      Result := ss.DataString;
      // The memo will contain only {
      Form1.Memo1.Lines.Text := ss.DataString;
      finally
        ResponseInfo.Free;
      end;
    finally
      ss.Free;
    end;
  finally
    AmazonStorageService.Free;
  end;
end;