Hallo!
Ich bin gerade dabei, einen kleinen CDPlayer zu programmieren;
Zunächst mal hab ich dazu eine Frage: Muss man die ID-Nummer der jeweils eingelegten AudioCD ermitteln, um 'richtig' auf die Tracks zugreifen zu können bzw. das Programm überhaupt schreiben zu können?
Wenn ja, dann hab ich folgende Frage: Weiß einer von euch, wie ich folgenden Source am Besten einbinde, damit ich die 'Standardfunktionen' eines 'CDPlayers' mit Hilfe der restlichen
VCL-Komponenten durchführen kann?; :
Delphi-Quellcode:
function TForm2.GetCDName: string;
var InfoParm: TMCI_Info_Parms;
lpInfoString: PChar;
const leninfostring = 17;
begin
Form2.MediaPlayer2.DeviceType := dtCDAudio;
if not Form2.MediaPlayer2.AutoOpen then
Form2.MediaPlayer2.Open;
GetMem(lpInfoString, LenInfoString);
InfoParm.dwCallback := 0;
InfoParm.lpstrReturn := lpInfoString;
InfoParm.dwRetSize := lenInfoString;
mciSendCommand(Form2.MediaPlayer2.DeviceID, mci_Info,
(mci_Wait or {MCI_INFO_MEDIA_UPC}
MCI_INFO_MEDIA_IDENTITY), LongInt(@InfoParm));
Result := StrPas(lpInfoString);
FreeMem(lpInfoString, lenInfoString);
end;
Zum Abspielen verwende ich übrigens eine TMediaPlayer-Komponente und mehrere Buttons;
Gruss
DelphiUser7