Почему не работет функуция CharToOem

[Andrei]

Embarcadero 11 под Windows 10.
Нужно преобразовать строки ANSI в OEM. Мой код:

procedure TM_Form.CheckToOemExecute(Sender: TObject);
var
  AStr: PAnsiChar;
  WStr: PWideChar;
begin
  WStr:= Memo1.Lines.GetText;
  showmessage(WStr); // исходный текст
  if CharToOem(WStr,AStr) then showmessage(WStr); // если функция выполнилась успешно, снова исходный текст
  showmessage(AStr); // преобразованный текст
end;

В Delphi 7 под Windows XP всё прокатывало. Сей час же функция возвращает ошибку . Господа, не подскажете в чём засада?

[p51x]

У GetText нет скобок, под AStr невыделено памяти, WStr не удален

[Andrei]

p51x, Спасибо. Частично разобрался, но, похоже, я не с того начал.

[Vapaamies]

Сообщение от Andrei

Embarcadero 11 под Windows 10.

type
  OemString = AnsiString(CP_OEMCP);

procedure TM_Form.CheckToOemExecute(Sender: TObject);
var
  OStr: OemString;
begin
  OStr:= Memo1.Lines.AsString;
end;

[Andrei]

Vapaamies, Большое спасибо за подсказку.

Результат моих изысканий:
Работа с 866 кодовой страницей в Embarcadero. Может кому пригодится.

Загрузка файла с 866 кодовой страницей в TMemo:

procedure TForm1.FileOpen1Accept(Sender: TObject);
var
  StrStream: TStringStream;
  str: string;
begin
  StrStream := TStringStream.Create(str,866);
  StrStream.LoadFromFile(FileOpen1.Dialog.FileName);
  str:=StrStream.ReadString(StrStream.Size);
  Memo1.Lines.Text:=str;
  StrStream.Free;
end;

Сохранение 866 кодовой страницы из TMemo в файл:

type
 OemString = type AnsiString(866);

procedure TForm1.FileSaveAs1Accept(Sender: TObject);
var
  Str866: OemString;
  StrStream: TStringStream;
  str: string;
begin
  Str866:=Memo1.Lines.Text;
  for var Ch: AnsiChar in Str866 do
    str := str+Ch;
  //ShowMessage(str);
  StrStream := TStringStream.Create(str);
  StrStream.SaveToFile(FileSaveAs1.Dialog.FileName);
  StrStream.Free;
end;

Сделал, наверняка, криво, косо и неправильно, однако оно работает.

[DIONISKA]

У вас же версия Alexandria или старше, используйте TEncoding из sysutils. Например сохранить произвольный текст в кодировке 866(или любой другой):

var
  buff:TBytes;
  str:TStringStream;
  s:string;
begin
 s:=Memo1.Lines.Text;
 buff:=TEncoding.Convert(TEncoding.Default,TEncoding.GetEncoding(866),
                         TEncoding.Default.GetBytes(s));
 str:=TStringStream.Create('',TEncoding.GetEncoding(866));
 str.Write(buff,Length(buff));
 str.SaveToFile('test.txt');
 str.free;

Загрузить текст из файла в кодировке 866 и конвертировать в кодировку DefaultEncoding (ANSI для windows или UTF8 для других платформ):

var
   str:TBytesStream;
   s:string;
begin
  str:=TBytesStream.Create();
  str.LoadFromFile('outtxt.txt');
  str.Seek(0,0);
  s:=TEncoding.Default.GetString(TEncoding.Convert(TEncoding.GetEncoding(866),
                                 TEncoding.Default,str.Bytes));
  str.free;
  Memo1.Lines.Text:=s;

Тот-же memo например умеет загружать текст в определённой кодировке:

 Memo1.Lines.LoadFromFile(FileName,TEncoding.GetEncoding(866));

и также сохранять:

  //сохранить в cp866
  Memo1.Lines.SaveToFile(FileName,TEncoding.GetEncoding(866));
  //или в utf8
  Memo1.Lines.SaveToFile(FileName,TEncoding.UTF8);

И не только memo, но пракитически всё где есть поля или переменные, основанные на TStrings, конечно если там не переопределены процедуры.

[Andrei]

DIONISKA, Спасибо. Это именно то, чего мне не хватало.

Вот чувствовал, что не поучилось мне добиться от Embarcadero, перефразируя Остапа Бендера, "того, чего добился Коля Остенбакен от польской красавицы Инги Зайонц. Он добился от неё любви." У меня же вышла не любовь, а какое-то изнасилование в извращённой форме. Программу установил только пару-тройку недель назад, теперь ковыряюсь в свободное от основной работы время. В принципе, для своих нужд меня устроят и последние три строчки из предложенного Вами кода. Подвешу менюшку с выбором кодировки на загрузку и сохранение файла - и вперёд.