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

[ZuBy]

Привет!

Раньше особо не занимался консольными приложениями, вот назрел вопрос.
Написал приложение которое формирует плейлист, обрабатываются папки с подпапками, файлы.
С обработкой и записью плейлистов все в порядке, собственно вот о чем я:
кидаю драг-н-дропом на приложение, пути все читаются (в том числе с русскими символами)
записываю команды в батник и передаю - пути с русскими символами не читаются!
перепробовал кучу советов, и про функции

function StrAnsiToOem(aStr: string): AnsiString;
begin
  Result := '';
  if Length(aStr) > 0 then
  begin
    SetLength(Result, Length(aStr));
    CharToOem(PChar(aStr), PAnsiChar(Result));
  end;
end;

//Функция берёт строку в OEM кодировке (DOS)
//и возвращает её перевод в ANSI кодировку (Windows) в виде отдельной строки.

function StrOemToAnsi(const aStr: AnsiString): string;
begin
  Result := '';
  if Length(aStr) > 0 then
  begin
    SetLength(Result, Length(aStr));
    OemToChar(PAnsiChar(aStr), PChar(Result));
  end;
end;

function Rus(Mes: ansistring): string;
var
  I: Integer;
begin
  for I := 1 to Length(Mes) do
    case Mes[I] of
      'А'..'п': Mes[I] := ansichar(Chr(Ord(Mes[I]) - 64));
      'р'..'я': Mes[I] := ansichar(Chr(Ord(Mes[I]) - 16));
    end;
  Result := Mes;
end;

тоже знаю

и это не помогает

SetConsoleCP(1251);
SetConsoleOutputCP(1251);

Есть еще какой-нибудь выход?

Delphi XE5, Win 7

[Streletz]

Начиная с Delphi 2009 типы char и string в Юникоде. То есть, сейчас string - это, по старому, WideString.

[ZuBy]

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

Начиная с Delphi 2009 типы char и string в Юникоде. То есть, сейчас string - это, по старому, WideString.

Вообще-то я в курсе и код (представленный в этой теме) адаптирован под Unicode!

Это не решает проблемы!

Вот, кому не понятна суть проблемы!

          writelnr(' **********************Params*********************** ');
          writelnr(' help              : -?');
          writelnr(' playlist type     : -t 0 - .pls (default)');
          writelnr('                        1 - .m3u');
          writelnr('                        2 - .txt');
          writelnr(' output filename   : -o "c:\output-dir\playlist.pls" (default "c:\playlist.pls")');
          writelnr(' files or path     : "c:\filename1.mp3", "c:\filename2.aac", "c:\filename.flac"');
          writelnr('                     "c:\music\"');
          WritelnR(' Examples:');
          writelnr(' plsmaker.exe -?');
          WritelnR('   view help');
          writelnr(' plsmaker.exe -o "c:\playlist.pls" "c:\music\album\"');
          writelnr('   all files from directory (and subdirectories if exist) was processed to output file');
          writelnr(' *************************************************** ');

[ZuBy]

Никто с этим не сталкивался? Не верю!

[Человек_Борща]

Шрифт консоли поменяй с System надругой, юникодный.

[Аватар]

@chcp 1251 в начало батника не пробовали?

[Человек_Борща]

У него не батник.

[Аватар]

У него не батник

записываю команды в батник и передаю

теперь вообще не понимаю о чем речь

[ZuBy]

Как раз таки через батник и косяк!
Щас попробую

@chcp 1251

Просто прекрасно! Работает!

Но как быть если эту программку будут использовать другой человек? Так же делать?

Как например архиваторы пути понимают? работал сам лично и с zip и rar. там так не делал!

[Serge_Bliznykov]

Как например архиваторы пути понимают? работал сам лично и с zip и rar. там так не делал!

русские имена в батнике (по умолчанию) должны быть в кодировке OEM (она же 866).