google Api Json und Umlaute

[stefan684]

Hallo,

ich habe folgendes Problem:

Ich sende eine Adresse zur Überprüfung an eine Google-Api im Json-Format:

{
"address": {
"regionCode": "DE",
"addressLines": [
"Seestraße",
"77694 Kehl"
]
}
}

Als Antwort erhalte ich (nur ein Ausschnitt):

},
"address": {
"formattedAddress": "Seestra e, 77694 Kehl, Deutschland",


So baue ich den Json-String zusammen:

Delphi-Quellcode:

  StringWriter := TStringWriter.Create();
  Writer := TJsonTextWriter.Create(StringWriter);
  Writer.Formatting := TJsonFormatting.Indented;

  Writer.WriteStartObject;
  Writer.WritePropertyName('address');
  Writer.WriteStartObject;
  Writer.WritePropertyName('regionCode');
  Writer.WriteValue('DE');
  Writer.WritePropertyName('addressLines');
  Writer.WriteStartArray;
  S := 'Seestraße';
  Writer.WriteValue(S);
  Writer.WriteValue('77694 Kehl');
  Writer.WriteEndArray;
  Writer.WriteEndObject;
  Writer.WriteEndObject;

Das übermitteln an die Api mache ich so:

Delphi-Quellcode:

  try
    SslHttp.URL := Url;
    SslHttp.ContentTypePost := 'application/json';
    SslHttp.SendStream := DataOut;
    SslHttp.RcvdStream := DataIn;
    SslHttp.Post;
  except
    on e:Exception do
    begin
      ReadError := True;
      ShowMessageFmt ('Error: %s',  [e.Message]);
    end;
  end;

An welcher Stelle fehlt da noch eine Konvertierung, damit mir der Straßename richtig angezeigt wird?

Vielen Dank.