Wie funktioniert Ansi2OEM mit Unicode

[heri]

Wie funktioniert denn Ansi2OEM mit Unicode?

Delphi-Quellcode:

function Ansi2OEM(Const AString: String): String; 
var 
  lResult: String; 
begin 
  SetLength(lResult, Length(AString)); 
  {$IFDEF WIN32} 
  CharToOEM(PChar(AString), PChar(lResult)); {32Bit} 
  {$ELSE} 
  AnsiToOEM(PChar(@AString[1]), PChar(@lResult[1])); {16Bit} 
  {$ENDIF} 
  Result := lResult; 
end;

ich kriegs nicht hin?

[Uwe Raabe]

Probier das mal:

Delphi-Quellcode:

function Ansi2OEM(Const AString: String): AnsiString;
var
  lResult: AnsiString;
begin
  SetLength(lResult, Length(AString));
  {$IFDEF WIN32}
  CharToOEM(PChar(AString), PAnsiChar(lResult)); {32Bit}
  {$ELSE}
  AnsiToOEM(PChar(@AString[1]), PChar(@lResult[1])); {16Bit}
  {$ENDIF}
  Result := lResult;
end;

[heri]

habs "logischerweise" so gemacht:

Delphi-Quellcode:

  function AnsiToConCP( AString: String ): AnsiString;
  var
    lResult: AnsiString;
  Begin

    SetLength( lResult, length( AString ) );

    {$IFDEF UNICODE}

    CharToOEM( PWideChar( AString ), PAnsiChar( lResult ) );

    {$ELSE}

    CharToOEM( PChar( AString ), PChar( lResult ) );

    {$ENDIF}

    Result := lResult;

  End;

[himitsu]

Wohl eher {$IFDEF UNICODE} ... Unicode hat nix mit 16 oder 32 Bit zu tun.

Delphi-Quellcode:

function AnsiToConCP( AString: String ): AnsiString;
  Begin
    SetLength( Result, length( AString ) );
    CharToOEM( PChar( AString ), PAnsiChar( Result ) );
  End;

function AnsiToConCP( AString: String ): AnsiString;
  Begin
    SetLength( Result, length( AString ) );
    {$IFDEF UNICODE}
      CharToOEM( PChar( AString ), PAnsiChar( Result ) );
    {$ELSE}
      AnsiToOEM( PChar( AString ), PAnsiChar( Result ) );
    {$ENDIF}
  End;