HTML? decodieren

[hitzi]

Hallo,

ich bekomme von einem Obex Server eine XML Datei zurück geliefert. In dieser steht zum Beispiel auch der Eintrag "Töne". Leider wird mir 'T' + #$C3#$B6 + 'ne' zurückgeliefert. Erkennt jemand nach welchen Schema das codiert ist?
Für das Zeichen 'ö' werden die beiden Hexcodes C3 und B6 verwendet.

MfG Hitzi

[Phoenix]

Meines wissens ist das Unicode, da hier ein Zeichen 2 Bytes belegt.

[hitzi]

Und wie wird ein Unicodezeichen in ein "normales" Zeichen umgewandelt?

Habe bisher noch nichts mit Unicodezeichen gemacht :?

MfG Hitzi

[Steve]

UTF-8
UTF-8 Encoding & Decoding
:)

Gruß
Stephan

edit: Kompo

[sakura]

Hier mal eine Quick&Dirty Routine für UTF-8 nach WideString.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Res: array[0..1024] of WideChar;
  S: AnsiString;
begin
  S := 'T' + #$C3#$B6 + 'ne';
  MultiByteToWideChar(CP_UTF8, 0, PChar(S), -1, @Res[0], SizeOf(Res));
  ShowMessage(Res);
end;

...:cat:...

[Bernhard Geyer]

Falls es wirklich eine XML-Datei ist, so nimm doch einen Parser wie OpenXML. Handdecodierung bei XML-Datein ist m.E. nicht mehr angesagt.

[hitzi]

Danke für eure Antworten.

Es ist wirklich eine XML Datei, aber mit so simplen Aufbau, dass der Overhead, welcher durch einen Parser entsteht, nicht gerechtfertigt ist.

Ich habe Sakuras Funktion wie folgt abgeändert. Irgendwelche Verbesserungen, Vorschläge dazu?

Delphi-Quellcode:

function AnsiToStr(s : AnsiString) : string;
var Res : array of WideChar;
    len, i : integer;
begin
  result := '';
  len := MultiByteToWideChar(CP_UTF8, 0, PChar(s), - 1, nil, 0);
  if len > 0 then  begin
    setlength(Res, len);
    MultiByteToWideChar(CP_UTF8, 0, PChar(s), -1, @Res[0], SizeOf(Res));
    for i := 0 to SizeOf(Res) - 1 do result := result + res[i];
  end;
end;

MfG Hitzi

[hitzi]

Hmm ... da ist noch ein Fehler in der Funktion.
Es werden immer nur vier Zeichen zurückgeliefert. :cry:

[mirage228]

Hi,

gibt SizeOf(Res) den richtigen Wert zurück?

mfG
mirage228

[hitzi]

Danke - das war der richtige Hinweis. Habe SizeOf() in Length() abgeändert und nun funktioniert es.

Mfg Hitzi

[sakura]

Zitat:

Zitat von hitzi

das war der richtige Hinweis. Habe SizeOf() in Length() abgeändert und nun funktioniert es.

Schreibe doch gleich Deine Variable len rein, die ist doch noch gesetzt und hat den richtigen Wert.

...:cat:...

[hitzi]

Stimmt :) Mach doch sofort - danke

[hitzi]

Gibt es eigentlich eine Möglichkeit diese zeile zu optimieren:

Delphi-Quellcode:

for i := 0 to len - 1 do result := result + res[i];

Oder macht das keinen Sinn?

MfG Hitzi

[sakura]

Zitat:

Zitat von hitzi

Gibt es eigentlich eine Möglichkeit diese zeile zu optimieren

Ja :mrgreen:

Delphi-Quellcode:

Result := Res

, den Rest macht Delphi.-

...:cat:...

[hitzi]

Nope, das hatte ich schon ausprobiert! Fehler -> Inkombatible Typen: String und Dynamic Array

MfG Hitzi

[mirage228]

Hi,

ich glaube diese Zuweisung geht nur bei Arrays fester Länge.

mfG
mirage228

[sakura]

Zitat:

Zitat von hitzi

Nope, das hatte ich schon ausprobiert! Fehler -> Inkombatible Typen: String und Dynamic Array

Na gut, dann halt so:

Delphi-Quellcode:

Result := WideString(PWideChar(@Res[0]));

...:cat:...

[hitzi]

Danke - funktioniert :)


Hitzi

[hitzi]

Wie macht man das wieder rückgängig?

Mit folgender Funktion funktionierts leider nicht so wie gewollt:

Delphi-Quellcode:

function StrToAnsi(s : WideString) : AnsiString;
var len : integer;
begin
  result := '';
  len := WideCharToMultiByte(CP_ACP, 0, PWideChar(s), - 1, nil, 0, nil, nil);
  if len > 0 then  begin
    setlength(Result, len);
    WideCharToMultiByte(CP_ACP, 0, PWideChar(s), -1, Pchar(Result), len, nil, nil);
  end;
end;

Ich übergeben "Töne" an die Funktion und die liefert mir auch "Töne" wieder zurück und nicht wie erwartet 'T' + #$C3#$B6 + 'ne'

Woran liegt das?


Mfg Hitzi