rar.exe - архивирование русских файлов

[ramzes777]

У меня не архивируются файлы в имени которых русские символы через консольный архиватор rar.exe, как быть?

Прочитал

Внимание, если в списке архивации будут русские буквы (например, папка "Избранное") - то этот список нельзя создавать в "Блокноте", ибо русские буквы должны быть к кодировке OEM (DOS,CP866) а "Блокнот" их пишет только в ANSI (WIN,CP1251), могу посоветовать использовать любую из многочисленных альтернатив блокнота - например редактор Bred 3.

У меня список - сохрание memo в файл. Как сохранить мемо используя кодировку ОЕМ?

[Аватар]

var xStream: TMemoryStream;
    xBuffer1,xBuffer2: PAnsiChar;
    xSize: Integer;

...

  xStream:=TMemoryStream.Create;
  Memo1.Lines.SaveToStream(xStream);
  xSize:=xStream.Size;
  GetMem(xBuffer1,xSize);
  GetMem(xBuffer2,xSize);
  xStream.Position:=0;
  xStream.Read(xBuffer1^,xSize);
  AnsiToOemBuff(xBuffer1,xBuffer2,xSize);
  xStream.Clear;
  xStream.Write(xBuffer2^,xSize);
  xStream.SaveToFile('e:\Otladka.txt');
  xStream.Free;
  FreeMem(xBuffer1);
  FreeMem(xBuffer2);

[Serge_Bliznykov]

function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;

procedure TForm1.SaveMemoToOem;
var i : integer;
     s : AnsiString;
     f : TextFile;
begin
    AssignFile(f, 'ИмяФайла.txt');
    Rewrite(f);
    for i:=0 to Memo1.Lines.Count-1 do
      WriteLn(f, StrAnsiToOem(Memo1.Lines[i]);
    CloseFile(f);
end;

надеюсь, идея понятна?


ДОБАВЛЕНО
сорри, я код Аватар'а не видел, когда свой пример писал...

[ramzes777]

Да, идея понятна. Спасибо!