0
0

I have a problem with the CD function.
I’ve noticed a few other threads about this but I work in Delphi so it is kind of different.

I have a deadline on Monday and the program MUST contain the CD functions. Any help?

  • You must to post comments
0
0

Please!

  • You must to post comments
0
0

It is after Monday, so it is probably too late, but I was away for the entire four-day Easter weekend. What problems are you having with the CD functions? Have you tried the CD functionality in the Delphi testbed application?

  • You must to post comments
0
0

Here is something. The section below is a code for a program using FMod. When You press the button the text turns to “:)” or to “:(” (true or false) and the CD Drive should open. Well it doesn’t. Did I do something wrong? (I uploaded the EXE file [url=http://www.geocities.com/ilianvlm/project.zip:2aphfvai]HERE[/url:2aphfvai])

[code:2aphfvai]
unit Unit1;

interface

uses
Windows, FMOD, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if FSOUND_CD_eject (0) then begin
Button1.Caption:=’:)’;
end
else begin
Button1.Caption:=’:(‘;
end;
end;

end.
[/code:2aphfvai]

  • You must to post comments
0
0

[quote:177kvo2b]
On 2002-04-04 11:42, Gil wrote:
Here is something. The section below is a code for a program using FMod. When You press the button the text turns to “:)” or to “:(” (true or false) and the CD Drive should open. Well it doesn’t. Did I do something wrong? (I uploaded the EXE file [url=http://www.geocities.com/ilianvlm/project.zip:177kvo2b]HERE[/url:177kvo2b])

[code:177kvo2b]
unit Unit1;

interface

uses
Windows, FMOD, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if FSOUND_CD_eject (0) then begin
Button1.Caption:=’:)’;
end
else begin
Button1.Caption:=’:(‘;
end;
end;

end.
[/code:177kvo2b]

[/quote:177kvo2b]

Anybody?

  • You must to post comments
0
0

Hi,
well I’ve got the same problem. I even tried to check drives from 0 to 255… nothing. So how to access the CD drive with fmod?
Thanks for any answers…
CU

  • You must to post comments
0
0

Hi,
I’ve experienced the same problems with FMOD 2.50 and hoped with 2.60 this would change. It’s said that drive 0 is the default drive. I don’t know why, but nothings gonna happen with any drive I “use”. So can anybody tell me how to use the CD-Functions with Delphi?
Thanks for any reply,
CU GeeGee

  • You must to post comments
0
0

Hi folks,
now I’ve found out why it’s not working and how to make it work. It didnt work caus’ you must initialize fmod… that’s it.
So long,
CU GeeGee

  • You must to post comments
Showing 7 results
Your Answer

Please first to submit.