[poli-smen]

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

Короче я так понял ничего не выйдет с NewAc library. Может есть какие - нибудь другие способы сконвертировать mp3 to wav? Допустим, с помощью bass.dll. Если есть такая возможность, подскажите как реализовать.

Вобщем я скачал и установил себе библиотеку NewAC 2.6.1. Единственно где у меня при установке этих компонентов выпала ошибка, вот в этом месте:

Код:

...
unit mr_cddb;
...
function ExtractCharSetFromPageContent(fBuffer: string): string;
...
var
  CutBuffer: TStringList;
  posDelim: Integer;
  strEnum: string;
begin
...
    for strEnum in CutBuffer do
      if (Pos(c_charset, strEnum) > 0) then
      begin
        Result := Copy(strEnum,
          Pos('=', strEnum) + 1,
          Length(strEnum));
      end;
...
end;
...

Видимо в более новых Delphi так можно делать, но в моей Delphi 6 так делать нельзя.
Заменил это место на такое:

Код:

var
  CutBuffer: TStringList;
  posDelim, i: Integer;
  strEnum: string;
begin
...
    for i := 0 to CutBuffer.Count-1 do
    begin
      strEnum := CutBuffer[i];
      if (Pos(c_charset, strEnum) > 0) then
      begin
        Result := Copy(strEnum,
          Pos('=', strEnum) + 1,
          Length(strEnum));
      end;
    end;
...
end;
...

Вместе с компонентами идут также и примеры. Вот даже в папке: newac261\demos\Converters\MP3Converter есть пример конвертации mp3-файлов в wav-фалы. Проверил - нормально конвертирует, так что я что-то не пойму какие тут у тебя могут возникнуть проблемы?

p.s. С библиотекой bass не работал. Говорят, что это очень хорошая и мощная библиотека, и даже бесплатная для некоммерческих проектов. Но к сожалению у меня с ней что-то не срослось, возможно то, что она всё же не полностью FreeWare. И хотя у меня есть в планах изучить работу с этой популярной библиотекой, но эти планы регулярно отодвигаются для более интересных проектов...