Артист и название mp3-файла - есть не замороченный способ?

[Ship_1]

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

  DirApp:=StrAnsiToOem('D:\тмп\');
  ShellExecute(Form1.Handle,nil, 'cmd.exe', PAnsiChar(' /c help > '+DirApp+'123.txt'), nil, SW_HIDE);

Шифровка/дешифровка кодировки DOS

function StrAnsiToOem(const aStr : String) : String;
var
  Len : Integer;
begin
  Result := '';
  Len := Length(aStr);
  if Len = 0 then Exit;
  SetLength(Result, Len);
  CharToOemBuff(PChar(aStr), PChar(Result), Len);
end;

function StrOemToAnsi(const aStr : String) : String;
var
  Len : Integer;
begin
  Result := '';
  Len := Length(aStr);
  if Len = 0 then Exit;
  SetLength(Result, Len);
  OemToCharBuff(PChar(aStr), PChar(Result), Len);
end;

[Ship_1]

Aliens_wolfs Отлично работающий вариант! Для выполнения целей полностью подходит! Спасибо большое!
Но тему закрывать не хотелось бы. Вариант работающий, даже не особо замороченный, однако вынуждает таскать с программкой две DLL. Вариант, с которым я до этого копался, тоже не безфайловый, но там он хоть один. Хотя и вариант гораздо более замороченный...

[Ship_1]

Интересно... В начале исполнителя какой-то знак вопроса. Прикладываю одну из mp3-шек.
Иногда он и в начале файла встречается, но винда его не отображает. Вот вам и юникод... Название с глюком, а фиг увидишь...

[Aliens_wolfs]

Вот накидал код который вытаскивает тэги ID3

function FindTags(TagName, sFinds: String): string;
var
 ipos, i: integer;
 S: String;
 bSize: byte;
begin
 TagName:= TagName +  #0#0#0;
 ipos:= Pos(TagName, sFinds);
 if ipos <> 0 then
 begin
 Inc(ipos, Length(TagName));
 bSize:= Byte(sFinds[ipos]) - 1;
 S:= Copy(sFinds, ipos + 4, bSize);
 For i:= 1 to Length(S) do
 if S[i] = #0 then
 S[i]:= #32;
 Result:= s;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 f : File;
 sTelo: String;
begin

  if OpenDialog1.Execute then
begin
  {$I-}
   if FileExists(OpenDialog1.FileName) then
   begin
   AssignFile(f, OpenDialog1.FileName);
   FileMode := fmOpenReadWrite;
   Reset (f, 1);
   {$I+}
   //ошибка открытия файла то выходим
  if IOResult<>0 then
  exit;
  //переходим на нужную позицию
  seek(f, 0);
  SetLEngth(sTelo, filesize(f));
 BlockRead(f, Pointer(sTelo)^, Length(sTelo));
 Label1.Caption := 'Номер трека: ' + FindTags('TRCK', sTelo);
 Label2.Caption := 'Заголовок: ' +  FindTags('TIT2', sTelo);
 Label3.Caption := 'Исполнитель: ' + FindTags('TPE1', sTelo);
 Label4.Caption := 'Альбом: ' +  FindTags('TALB', sTelo);
 Label5.Caption := 'Жанр: ' +  FindTags('TCON', sTelo);
 Label6.Caption := 'Год: ' + FindTags('TYER', sTelo);
 Label7.Caption := 'Коментарии: ' + FindTags('COMM', sTelo);
 CloseFile(f);
  end;
end;
end;

Да и почитайте про mp3 начинку файла https://habrahabr.ru/post/103635/

[Ship_1]

Хм... Что-то не то выводит у меня... С кодировкой, что ли, что-то не то...
Артист:

яюяю8:=8:

Трек:

яю/ >GB8 B0;LO=5F

Кстати, для разовых операций, если с кракозябрами разобраться, очень хорош, или когда можно оставить выполняться и забить. Но с большим количеством файлов работает заметно медленней, чем вариант с Bass. Для 1000 файлов вывод артиста и трека в TStringList занял минуту, а Bass справляется за 3 секунды.

[Aliens_wolfs]

Для увеличения скорости поиска тегов можно сделать так

procedure TForm1.Button2Click(Sender: TObject);
var
 f : File;
 sTelo: String;
 SizeFile: integer;
begin

  if OpenDialog1.Execute then
begin
  {$I-}
   AssignFile(f, OpenDialog1.FileName);
   FileMode := fmOpenReadWrite;
   Reset (f, 1);
   {$I+}
   //ошибка открытия файла то выходим
  if IOResult<>0 then
  exit;
  //переходим на нужную позицию
  seek(f, 0);
 SizeFile:= filesize(f);
 if SizeFile > 512 then
 SizeFile:= 512;

 SetLEngth(sTelo, SizeFile);
 BlockRead(f, Pointer(sTelo)^, Length(sTelo));
 Label1.Caption := 'Номер трека: ' + FindTags('TRCK', sTelo);
 Label2.Caption := 'Заголовок: ' +  FindTags('TIT2', sTelo);
 Label3.Caption := 'Исполнитель: ' + FindTags('TPE1', sTelo);
 Label4.Caption := 'Альбом: ' +  FindTags('TALB', sTelo);
 Label5.Caption := 'Жанр: ' +  FindTags('TCON', sTelo);
 Label6.Caption := 'Год: ' + FindTags('TYER', sTelo);
 Label7.Caption := 'Коментарии: ' + FindTags('COMM', sTelo);
 CloseFile(f);
  end;
end;

А с кракобязами сейчас посмотрим что можно сделать, там нужно кодировку подобрать

[Filka]

http://www.gausi.de/mp3fileutils-en.html

[Alex11223]

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

яюяю8:=8:

это на utf-16 похоже, видимо Aliens_wolfs накидывал не в древней Дельфи.

[Aliens_wolfs]

в D7 накидано

[Ship_1]

2cyr не справился с дешифровкой кодировки, которая получилась вообще никак