Unicode Frage

[hitzi]

So einfach ist es in meinem Fall nicht. Mit meinem Programm kommuniziere ich mit einem Handy mit Hilfe des Obexprotokols. Die ganze Kommunikation läuft über einen Comport.

Die Verzeichnisse werden auch korrekt dargestellt - sprich das Auslesen und Umwandeln, der vom Handy gelieferten Daten, in einen String funktioniert wunderbar mit folgender Funktion:

Delphi-Quellcode:

function TObex.AnsiToStr(s : AnsiString) : string;

function ReplaceEntity(s : string; entity : string = ''; replace : string = '') : string;
const cHex = '&#';
      cSep = ';';
var d : string;
begin
  if (entity <> '')and(replace <> '') then begin
    while pos(entity, s) > 0 do s := copy(s, 1, pos(entity, s) - 1) + replace + copy(s, pos(entity, s) + length(entity), length(s));
  end else begin
    while pos(cHex, s) > 0 do begin
      d := copy(s, pos(cHex, s) + length(cHex), length(s));
      d := copy(d, 1, pos(cSep, d) - 1);
      entity := cHex + d + cSep;
      replace := chr(StrToInt('$' + d));
      s := copy(s, 1, pos(entity, s) - 1) + replace + copy(s, pos(entity, s) + length(entity), length(s));
    end;
  end;
  result := s;
end;

var Res : array of WideChar;
    len : 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], len);
    result := WideString(PWideChar(@Res[0]));
  end;
  if result <> '' then begin
    result := ReplaceEntity(result, '<', '<');
    result := ReplaceEntity(result, '&gt', '>');
    result := ReplaceEntity(result, '&amp;', '&');
    result := ReplaceEntity(result, '&quot;', '"');
    result := ReplaceEntity(result, '&apos;', '''');
    result := ReplaceEntity(result);
  end;
end;

Umgekehrt hatte ich das immer mit der schon oben geposteten Funktion (einfach vor jedes Zeichen ein $#00 und den String mit $#00 abschließen) veranstaltet und bisher keine Probleme gehabt.

Um nun ein Verzeichnis zu wechseln wird der Verzeichnisname genommen, durch die Funktion aus dem ersten Post gejagt (und noch einiges mehr wegen dem Obex Protokol) und das ganze dann als String über den Comport an das Handy geschickt.

Wenn nun bei dem russischen User (Handy auf russisch) ein Verzeichnis auf dem Handy gewechselt werden soll, liefert mir der Obex Server im Handy den "Nicht gefunden" Fehler zurück. Von daher tippe ich auf eine falsche Umwandlung des Verzeichnisnamen. Laut Protokol arbeitet der Obexserver mit Unicode.

Vielleicht hast du noch einen Tipp für mich.