HTTP.Get/Post - Umlaute anzeigen

[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? :roll:

[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.

[Bbommel]

Zitat:

Zitat von TERWI (Beitrag 1451218)

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

Was du meinst, ist die erste Antwort in dem Beitrag. Darunter gibt es ja noch eine zweite, davon unabhängige, Antwort, welche einen Code-Schnipsel zur Umwandlung der \u... enthält und der, wenn ich das richtig sehe, nicht auf D2010 basiert.

Ich kann prinzipiell nachvollziehen, dass man nicht zu viele Bibliotheken von Drittanbietern einbinden möchte, wenn man es vermeiden kann. Das erhöht ja dann doch immer die Abhängigkeit zu anderen. Aber gerade dann könnte es sich für dich als Hobby-Entwickler auch mal lohnen, an einem ruhigen Abend mal einen Blick auf die kostenlose Community Edition vom aktuellen Delphi zu werfen. Das braucht natürlich auch ein bisschen Zeit, bis man alles, was so in den letzten zehn Jahren passiert ist, kennengelernt hat, aber wie gesagt, wenn du mehr mit irgendwelchen Web-Schnittstellen machst, dann lohnt sich das.

[TERWI]

@General
Dieses SuperObjetct werde ich mir trotzdem mal ansehen.
Wird wahrscheinlich an anderer Stelle eine meiner "Krücken" ersetzen.

Nictsdestotrotz habe ich da noch ein wenig getippt.
Hier meine Kleine Routine, welche beliebig viele \u00?? in einem String ersetzt.

Delphi-Quellcode:

function DecodeJString(text : array of ansichar) : ansistring;
var
  len, p1, p2, val : integer;
begin
  result := '';
  len    := length(text);
  p1     := 1;
  p2     := PosEx('\u00', text, p1);
  if (p2 > 0) then
  begin
    while (p2 > 0) do
    begin
      val := hextoint(text[p2 + 3] + text[p2 + 4]);
      result := result + copy(text, p1, p2 - 1) + chr(val);
      p1 := p2 + 6;
      p2 := PosEx('\u00', text, p1);
    end;
  end;
  result := result + copy(text, p1, len - p2);
end;

[freimatz]

Zitat:

Zitat von TERWI (Beitrag 1451224)

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. :wink:

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.

[TERWI]

@freimatz
Ja ich weiss schon, wie das funktioniert. Hab ich ja selbst getippt und kein copy-paste gemacht.
Kommst du nicht drauf, was die relevanten 5 Zeilen bewirken ?

@Incocnito
Ich lehne grundsätzlich nichts kostenloses ab - nur hätte ich gern gewusst, wie's geht/was es macht und wie viel Overhead da ggf. mitkommt.
Das müsste (und werde !) ich mich noch einlesen ...

@alle
Noch mal zur Erinnerung: Ich wollte lediglich von der Serveranfrage (dren Daten ja so weit völlig ok sind) aus den Klartextbeschreibungen die Umaute richtig lesen.
Und die stehen da (!) eben mal (nur) als "\u00..". Eine vollständige Kompatibilität zu Multibyte-Zeichensätzen war/ist gar nicht erforderlich.
... einen Preis wollte ich damit auch nicht gewinnen :)

PS:
Die Daten stammen aus Anfragen beim ZATTOO-IPTV-Server, um die Programmliste und EPG-Daten zu bekommen.
Die Umlaute (und nix anderes mit \u....) sehe ich z.Zt. nur in den (erweiterten) Sendernamen und EPG-Beschreibungen.

[TurboMagic]

Wie schön von jemand anderem erwähnt: Community Edition von Rio anschauen.
Ist für Hobby Programmierer kostenlos!