WideString zu AnsiString konvertieren

[himitsu]

Zitat:

gibt Evaluate von s dies aus:

Von welchem S?

Das externe?
Wenn ja, dann schau mal nach, was das S in der Funktion sagt.

Wenn es das Selbe sagt, dann ist die TWideStringList fehlerhaft.

[Shark99]

function UTF16ToCodepage(s: WideString): string;
begin
Result := s;
end;

Evaluate von s (WideString) innerhalb der Funktion ergibt:

'GStreamer Codec and Totem Movie Player for Linux'#$D#$A

Evaluate von s (String) NACH der Funktion ergibt:

'ÿþG'#0'S'#0't'#0'r'#0'e'#0'a'#0'm'#0'e'#0'r'#0' '#0'C'#0'o'#0'd'#0'e'#0'c'#0' '#0'a'#0'n'#0'd'#0' '#0'T'#0'o'#0't'#0'e'#0'm'#0' '#0'M'#0'o'#0'v'#0'i'#0'e'#0' '#0'P'#0'l'#0'a'#0'y'#0'e'#0'r'#0' '#0'f'#0'o'#0'r'#0' '#0'L'#0'i'#0'n'#0'u'#0'x'#0#$D#0#$A#0#$D#0#$A#0

[himitsu]

Sehr interessant.

jedenfalls hatte ich damals in meinem D7 solche Probleme nicht.


Geht es hiermit?

Delphi-Quellcode:

function UTF16ToCodepage(S: WideString): AnsiString;
var
  i: Integer;
begin
  if S <> '' then
  begin
    i := WideCharToMultiByte(CP_ACP, 0, PWideChar(S), Length(S),
      nil, 0, nil, nil);
    SetLength(Result, i);
    WideCharToMultiByte(CP_ACP, 0, PWideChar(S), Length(S),
      PAnsiChar(Result), i, nil, nil);
  end else
    Result := '';
end;

Delphi-Quellcode:

'GStreamer Codec and Totem Movie Player for Linux'#$D#$A

Evaluate von s (String) NACH der Funktion ergibt:

'ÿþG'#0'S'#0't'#0'r'#0'e'#0'a'#0'm'#0'e'#0'r'#0' '#0'C'#0'o'#0'd'#0'e'#0'c'#0' '#0'a'#0'n'#0'd'#0' '#0'T'#0'o'#0't'#0'e'#0'm'#0' '#0'M'#0'o'#0'v'#0'i'#0'e'#0' '#0'P'#0'l'#0'a'#0'y'#0'e'#0'r'#0' '#0'f'#0'o'#0'r'#0' '#0'L'#0'i'#0'n'#0'u'#0'x'#0#$D#0#$A#0#$D#0#$A#0

Ich wußte garnicht daß Delphi bei einer Stringkonvertierung das BOM (FE FF) entfernt, jedenfalls sollte danach am Anfang des Strings ein "?" stehen.

[Shark99]

Damit klappt es, Danke!

Zitat von himitsu:

Sehr interessant.
Ich wußte garnicht daß Delphi bei einer Stringkonvertierung das BOM (FE FF) entfernt, jedenfalls sollte danach am Anfang des Strings ein "?" stehen.

Ich denke mal FF FE wurde nicht entfernt, sondern zu ÿþ gewandelt.

[himitsu]

Ohh, stimmt, da hab'sch falschrum geguckt.
Jedenfalls is dieses beim 'GStr...' nicht zu sehn (aber was sollte man von einem 0-breitem Leerzeichen erwarten , obwohl viele Browser dieses eben doch darstellen, so als "unbekanntes" Zeichen)