Консольная программа

[ZuBy]

Serge_Bliznykov, Вот нашел один из примеров работы с rar.exe

//pack
rar.exe -m5 -hpQZIPacker -r -y a "c:\archive.zip" "c:\new skin\"

//unpack
rar.exe -hpQZIPacker -y x "c:\archive.zip" "c:\12314114\"

//unpack 1 file
rar.exe -hpQZIPacker -y e "c:\archive.zip" "new skin\zmClose.bmp" "c:\nEW\"

//add comment
rar.exe -hpQZIPacker -z"cabrun.pas" c "c:\archive.zip"

//save comment
rar.exe -hpQZIPacker cw "c:\archive.zip" "c:\1.txt"

[Аватар]

раз уж тут речь зашла про кодировки, то у меня следующий вопрос. Есть некая программа, создающая файл методами

Поместить в начало файла информацию о кодировке или, как вариант, в Total Commander по F3 есть возможности переключения кодировки при просмотре

[doktor255]

Читать понятно как. Я спрашиваю как записать в UTF-8. То есть чтоб мне потом не приходилось открывать файл блокнотом, дальше сохранить как, и менять кодировку на UTF-8

[ZuBy]

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

Моя. Как указать при записи кодировку?

function StrAnsiToUtf(aStr: String): String;
var
  Encoding, aEncoding: TEncoding;
  Buffer: TBytes;
begin
  Encoding := TEncoding.UTF8;
  aEncoding := TEncoding.Default;
  Buffer := Encoding.GetBytes(aStr);
  TEncoding.Convert(aEncoding, Encoding, Buffer);
  Result := aEncoding.GetString(Buffer);
end;

Каждую строку перед записью в файл, прогнать через StrAnsiToUtf

[doktor255]

Всё бы хорошо, но у меня не строки, а массивы байтов.

[Аватар]

StringOf в строку

[doktor255]

Не мой случай.

[dcc32 Error] Unit1.pas(62): E2010 Incompatible types: 'System.TArray<System.Byte>' and 'array[0..2] of Byte'

[ZuBy]

В общем решил я эту головоломку так:

1) Обозначил параметр -u
и завел переменную

UnicodeSupport := false;

2) Если он определяется в параметрах запуска, то переменная

UnicodeSupport := true;

3) Добавление файлов в список соответсвенно выглядит так

  FilesList.Add(StrEncode(ParamStr(i), UnicodeSupport));

function StrEncode(aStr: string; Reverse: boolean): string;
var
  Encoding, aEncoding: TEncoding;
  Buffer: TBytes;
begin
  aEncoding := TEncoding.Default;
  Encoding := TEncoding.GetEncoding(1251);
  if Reverse then
    Encoding := TEncoding.GetEncoding(866);
  Buffer := Encoding.GetBytes(aStr);
  TEncoding.Convert(aEncoding, Encoding, Buffer);
  Result := aEncoding.GetString(Buffer);
end;

Все отлично работает, по крайней мере на Win7