| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Гэндальфу [Delphi, Windows]

Dimaxx ©   (2003-08-11 00:44:00) 

В компоненте CDRip процедура RipTrack рипает всегда последнюю дорожку игнорирую указанную. Как жить дальше?

---

Gandalf   (2003-08-23 15:54:00) [1]

Прискорбно :( Видимо баг. К несчаюсть сейчас не могу посмотреть в цем
причина нет не одного музыкального диска - и добыть негде.

Просморти метод

procedure TMHCDRIP.RipTrack(ATrackNum: LongInt; FileName: string);
var
 Track: PTrack;
begin
 if Assigned(FOnBeginTrack) then FOnBeginTrack(@Self, TrackNum);
 Track := PTrack(FTracks.Objects[TrackNum - 1]); // !!!!!!!!!!!! тут
видимо баг, надо писать [ATrackNum - 1]
 RipSectors(Track.BegTrack, Track.EndTrack, FileName);
 if Assigned(FOnEndTrack) then FOnEndTrack(@Self, TrackNum);
end;

И вообще видимо во всем методах где есть ATrackNum как параметр -
TrackNum, надо заменить на ATrackNum. Попробуй - если получится вышли
исправленый код. ТОЛЬКО не трогай TrackNum у трека!!!
PTrack(FTracks.Objects[i]).TrackNum т.е. вот эти.

ЗЫ: Кстати можешь демку подровнять (как оригинал) - буду рад.

---

Dimaxx   (2003-08-11 00:48:00) [2]

Тьфу! Второй раз написал тоже. Ну ладно. Есть еще вопрос.

Создал битмап (384х256).
Сделал его 8-битным
Залил черным.
Залил палитру.
В цикле требую адрес строки через ScanLine.
Получаю всегда nil!!!!! А длина строки 376!!! Во где грабли!!!

Как с этим жить? 8-()

---

Наверх