HTTP.Get/Post - Umlaute anzeigen

[Bbommel]

Zitat von TERWI:

.. eben drum meine Frage: 2009 kennt noch kein JSON.
Ich hatte hier auch schon div. gesucht & gefunden - aber das bezieht sich alles auf neuer Versionen ab 2009.
So ein Prob muss es doch auch schon zu Zeiten von D2009 geben haben ?!

Naja, vor 10 Jahren war JSON noch lange nicht so populär wie heute, schon gar nicht unter Delphi-Entwicklern, insofern ist es schon nachvollziehbar, wenn es für D2009 zu dem Thema nicht so viel gibt.

Der Codeschnipsel aus dem Stackoverflow-Beitrag, den ich verlinkt habe, müsste aber eigentlich funktionieren und dein Problem erst einmal lösen. Wobei ich dem General recht geben muss, dass es wahrscheinlich langfristig besser ist, das Ganze mit einer "richtigen" Bibliothek zu lösen.

Wenn du jetzt öfter mit dem Thema zu tun hast, könnte es auch sinnvoll sein, mal über ein Delphi-Update nachzudenken, da sich in dem Bereich wirklich viel getan hat (mir ist klar, dass das ggf. eine Kostenfrage ist oder eine Entscheidung, die du nicht selber treffen kannst, aber erwähnt werden sollte es gerade für den Bereich REST, JSON und weitere Web-Standards mal).

[TERWI]

Jaaaa..., ich hatte da jetzt gedacht, dass es ggf. "was einfache" gäbe, um eben "nur" die besagten Umlaute mit \u00.. aus dem String rauszupulen.

Ich bin hier kein Entwickler/Profi-Coder, der das für Geld macht - im Gegentum: Just4Funny und möglichst einfach ... da ist eine Mega-Kompatibilät für die nächsten 10 Tage - äh jahre - nicht zwingend angesagt.

@Bommel
In dem StackOF-Beitrag steht geich oben:
"You can use the DBXJSON unit which is included in Delphi 2010"
... also nix mit 2009 ?!

Einfach nur "\u00.." aus dem String raus und mit passendem char ersetzen ... sonst nix weiter.
Und das möglichst simpel ohne Bibliothek.

[Neutral General]

Das allereinfachste - sogar für einen Hobbyentwickler und just4fun Nicht-Profi wie dich - sind die superobjects.
Eine Unit einbinden und Werte wie im Beispiel auf github auslesen. Das die Strings dabei ordentlich rauskommen ist inklusive.

Aber wenn dus unbedingt selbst machen willst dann lies dir den JSON Standard durch und schau wie man die \u0.. ersetzt und was man generell sonst noch so beachten muss.
Dann bist du allerdings WIRKLICH im Profi bereich. 1000x mehr als wenn du dir einfach die Unit runterlädst die jeder Anfänger ohne Ahnung von JSON benutzen kann...

[TERWI]

Sorry .. bitte nicht falsch verstehen:
Ich gehöre offensichtlicht zu der Speties der frühen Turbo-Pascal Jünger, welche nicht einfach malsoeben sich ne Unit/Komponente/Bibiliothek in den Source kloppen...
Ich wüsste gern immer, wie es funzt und halte den Code nach Möglichkeit klein & übersichtlich.
Deshalb bastle ich seit 'eben' an etwas, was meinen Ansprüchen genügt und funktioniet.
... sieht so weit gut aus - ich lasse es euch wissen, wenn' fettich iss.

[freimatz]

Zitat von TERWI:

Ich wüsste gern immer, wie es funzt und halte den Code nach Möglichkeit klein & übersichtlich.
Deshalb bastle ich seit 'eben' an etwas, was meinen Ansprüchen genügt und funktioniet.
... sieht so weit gut aus - ich lasse es euch wissen, wenn' fettich iss.

Nun ja deine Methode halte ich für klein. Vermutlich weisst Du auch wie sie funzt. Für andere gilt das vermutlich jedoch eher nicht.
"wie es funzt", also warum da überhaupt "\u00" kommtm und so weisst du vermutlich immer noch nicht.

Für mich riecht das nach Symptombekämpfung. Du weisst wie die Bekämpfung funktioniert aber nicht warum die Symptome so sind.

[Incocnito]

Ich befürchte ein Fehler ist, dass es nur für \u0000 bis \u00FF funktioniert.
Wenn ich raten soll fehlt dir wenigstens \u0100 bis \uFFFF ... und wenn ich mich recht erinnere
hießen die Dinger "Multibyte-Zeichensätze", also könnte auch "\uFF1234" möglich sein, oder!?
Nur so als Idee, was noch kommen könnte. ... Also doch eine Komponente/Unit von jemandem,
der sich mit dieser Konvertierung schonmal etwas länger auseinander gesetzt hat.
Waren die vorgeschlagenen nicht kostenlos, oder wolltest du das nicht nehmen
um deinen Code so klein wie möglich zu halten (Alá "Mein Onkel wird schon kein japanisch schreiben,
aber Umlaute braucht er halt")?

MfG Incocnito

[Neutral General]

Alles was vorgeschlagen wurde ist kostenlos.

[Redeemer]

Zitat von Incocnito:

Ich befürchte ein Fehler ist, dass es nur für \u0000 bis \u00FF funktioniert.
Wenn ich raten soll fehlt dir wenigstens \u0100 bis \uFFFF ... und wenn ich mich recht erinnere
hießen die Dinger "Multibyte-Zeichensätze", also könnte auch "\uFF1234" möglich sein, oder!?

Nein, gibt es nicht. Der Zeichensatz von JavaScript (intern und von \u-Escapes) ist UTF-16, der von Windows ist UTF-16 und der von WideString ist auch UTF-16. Ist zwar ein MBCS, interessiert aber nicht, da Quell- und Zielzeichensatz identisch sind. Da es anders als in HTML kein Abschlusszeichen gibt, muss die Länge der Sequenz von vornherein klar sein. Nach \u kommen immer vier Zeichen. C kennt \U mit acht Zeichen, JavaScript kennt das nicht: In Firefox gibt '\U00010400' keine sinnvolle Ausgabe, '\uD801\uDC00' hingegen schon. Somit ist es unmöglich, Zeichen als UCS-4BE (aka UTF-32BE) auszudrücken.

Der Thread ist doch eigentlich durch:
- Dem TE wurde ans Herz gelegt, eine richtige Bibliothek zu verwenden.
- Ich habe einen funktionierenden und korrekten Algorithmus gepostet.
Da muss man jetzt doch nicht weiter mit Halbwissen irritieren.

[Redeemer]

Lag hier irgendwo rum:

Delphi-Quellcode:

function JSONUnescape(const JSON: string): WideString;
var
  i: Integer;
  InSequence: Boolean;
  UTF16Chars: Byte;
  UTF16Data: Word;
const
  Hex = '0123456789abcdef';
begin
  Result := '';
  InSequence := False;
  UTF16Data := 0;
  UTF16Chars := 0;

  for i := 1 to Length(JSON) do
  if InSequence then
  begin
    case Ord(JSON[i]) of
      $75: begin
        UTF16Data := 0;
        UTF16Chars := 4;
      end;
      $62: Result := Result + #8;
      $66: Result := Result + #12;
      $6E: Result := Result + #10;
      $72: Result := Result + #13;
      $74: Result := Result + #9;
      else if UTF16Chars > 0 then
           begin
             UTF16Data := UTF16Data shl 4 + Pos(Lowercase(JSON[i]), Hex) - 1;
             dec(UTF16Chars);
             if UTF16Chars = 0 then
             begin
               Result := Result + WideChar(UTF16Data);
               InSequence := False;
             end;
           end
           else
           Result := Result + JSON[i];
    end;
  end
  else
  if JSON[i] = '\' then
  InSequence := True
  else
  Result := Result + JSON[i];
end;

[Neutral General]

Gott sei Dank, dann kann er weiterhin mit pos und copy die Strings aus dem JSON parsen und dann durch diese Funktion jagen die er wahrscheinlich nicht versteht.
Warum einfach (und richtig) wenns auch kompliziert (und falsch/fehleranfällig) geht?