Гэндальфу

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

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

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

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

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

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

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

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

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

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

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