Скачать: CL | DM;

Гэндальфу   Найти похожие ветки 

← →
Dimaxx ©   (2003-08-11 00:44) [0]

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

---

← →
Dimaxx ©   (2003-08-11 00:48) [1]

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

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

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

---

← →
Gandalf ©   (2003-08-23 15:54) [2]

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

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

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 т.е. вот эти.

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.065 c