Fragen zu FMod

[pmc]

Also ich möchte zum anfang einen kleinen CD-Player programmieren!
ICh benutze dazu FMOD....aber schon bei dem Eject knopf habe ich ein problem....

Und zwar funktioniert es einfach nicht!!!!

Kann mir dashier mal jdm erklären???

Zitat:

FSOUND_CD_Eject
Opens/Closes the CD tray.

signed char F_API FSOUND_CD_Eject(
char drive
);

Parameters
drive the drive ID to use. 0 is the default CD drive. Using D or E in single quotes would be D: or E: for example.

Ich habe für Drive 0 angegeben aber das laufwerk öffnet sich nicht!!!
Wenn ich es allerdings aufmache und dann auf den knopf drücke schiliesst es sich!!!
Und wenn ich d oderso angeben will dann wird mir ein fehler angezeigt!!!
Was soll ich machen???

Ich brauche dringend hilfe!!!

[mandumoal]

Hi!

Probier mal:

Delphi-Quellcode:

uses MMSystem

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  //  öffnet das CD-ROM Laufwerk
  mciSendstring('SET CDAUDIO DOOR OPEN', nil, 0, Form1.Handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //  schließt das CD-ROM Laufwerk
  mciSendstring('SET CDAUDIO DOOR CLOSED', nil, 0, Form1.Handle);
end;

oder wenn gewartet werden soll bis die letzte Operation beendet ist:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //  öffnet das CD-ROM Laufwerk
  mciSendstring('SET CDAUDIO DOOR OPEN WAIT', nil, 0, Form1.Handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //  schließt das CD-ROM Laufwerk
  mciSendstring('SET CDAUDIO DOOR CLOSED WAIT', nil, 0, Form1.Handle);
end;

Müsste eigentlich gehen.

mfg mandumoal

[SirThornberry]

die funktion kann ich dir nicht erklären aber wenns um öfnnen und schließen des CD-Laufwerks geht bissl source:

Delphi-Quellcode:

[...]
uses
  MMSystem, ...;


[...]
var laufwerksbuchstabe: char;
begin
  [...]
  if mciSendString(pchar('open ' + Laufwerksbuchstabe + ': type cdaudio alias cdlw'), nil, 0, 0) = 0 then
  begin
   mciSendString(PChar('set cdlw door ' + todo + ' wait'), nil, 0, 0); //todo kann "open" bzw "closed" sein
   mciSendString('close cdlw', nil, 0, 0)
  end;