Console: OEM nach ANSI

[omata]

Also ich habe das so gelöst...

Delphi-Quellcode:

function Oem2Ansi(AText:AnsiString):AnsiString;
const cMaxLength = 255;
var PText : PAnsiChar;
begin
  Result:='';
  PText:=AnsiStrAlloc(cMaxLength);
  while AText <> '' do begin
    StrPCopy(PText, copy(AText, 1, cMaxLength-1));
    OemToAnsi(PText, PText);
    Result:=Result + StrPas(PText);
    delete(AText, 1, cMaxLength-1);
  end;
  StrDispose(PText);
end;

Und ab Delphi2009...

Delphi-Quellcode:

function Convert(Data:AnsiString):string;
begin
  Data:=Oem2Ansi(Data);
  {$WARNINGS OFF}
  Result:=AnsiToUtf8(Data);
  {$WARNINGS ON}
end;