ID3v2!!!!!

[Кольша]

Здрасти я наверно достал вас своими вопросами но все же у меня такая трабла написал плеер на bass.dll все там сделал .......и т.д
но вот беда при чтении папки еслив папки болле 500-800 песен ID3v2 выдает ошибку можете помочь как нибудь если надо могу привести код поиска фалов и чтения тегов

[Anfall]

Что конкретно за ID3v2? Как вы читаете теги?
Ну и какая ошибка?

[Кольша]

вот

процедура ........
var
  fn: TSearchRec;
  Finds,i: integer;
  ID2Tag: TID3v2;
begin

  i:=0;
  ID2Tag:=TID3v2.Create;
  Finds:=FindFirst(Directory + '\*.mp3',faAnyFile,fn);
  while Finds = 0 do begin
    ID2Tag.ReadFromFile(Directory + '\' + fn.Name);
    with Playlist.Items.Add do begin
          Caption:=ID2Tag.TrackString + '. ' + ID2Tag.Artist + ' - ' + ID2Tag.Title;
      SubItems.add(Directory + '\' + fn.Name);
   
      end;
    Finds:=FindNext(fn);
    inc(i);
end; 
  FindClose(fn);
  end;

[Anfall]

Ну так трудно сказать, но во-первых, не забудь уничтожать в конце ID2Tag.
Как работает твой TID3v2, я не знаю, но скорее всего рано или поздно ты натыкаешься на какой-нибудь битый файл, и происходит ошибка. Чтобы этого избежать, используй исключения.
http://www.delphisources.ru/pages/fa...s/Try.php.html

Вот пример (в компилляторе не проверял).
Также ссори, при копировании из нотепада++, трабла с табуляцией произошла, но суть поймешь.

процедура ........
var
  fn: TSearchRec;
  Finds,i: integer;
  ID2Tag: TID3v2;
begin

  ID2Tag:=TID3v2.Create;

  try
    Finds:=FindFirst(Directory + '\*.mp3',faAnyFile,fn);
    while Finds = 0 do
    begin
        try
            ID2Tag.ReadFromFile(Directory + '\' + fn.Name);
            with Playlist.Items.Add do
            begin
              Caption:=ID2Tag.TrackString + '. ' + ID2Tag.Artist + ' - ' + ID2Tag.Title;
              SubItems.add(Directory + '\' + fn.Name);
            end;
        except
          Playlist.Items.Add.Caption:='Невозможно прочесить файл';
        end;
        Finds:=FindNext(fn);
    end;
      FindClose(fn);
  finally
    FreeAndNil(ID2Tag);
  end;

 end;

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

[Кольша]

ID2Tag выдает ошибку такова типа Reset(SourceFile, 1);
но я с английским не сильно дружу это типо что то сброс исходново кода файла

[Кольша]

может быть знает как по другому можно читатьтеги я пробывал ручками читать по байтам но там тоже ошибка

[Anfall]

Ну я тебе код скинул, ты попробовал так читать?

[Кольша]

да таже самая ошибка делфи начанает указывать красным на вот :
Reset(SourceFile, 1);
эту строчку кода в ID3v2.pas

[Anfall]

Сообщение от Кольша

да таже самая ошибка делфи начанает указывать красным на вот :
Reset(SourceFile, 1);
эту строчку кода в ID3v2.pas

Код который я тебе скинул вообще не может вызывать каких-либо ошибок, т к находится в try except end;
Я ж говорил. Запускай программу не из компилятора, а просто из папки с проектом.

[Кольша]

не знаю что случилось но твой код стал роботать хотя в прощлый раз я сделал так же как и сеичас но была ошибка спасибо тебе кстати в компиляторе ошибка выдаеться