如何在程序中显示资源中的位图及播放资源中的midi文件(50分)

R

ricon2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-09

• #1

如何建立位图及midi的资源文件,建立好后如何在程序中显示资源中的位图及播放资源中的
midi文件.

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-09

• #2

文件->资源
资源->Exe文件
取出资源后作为MIDI播放
//在菜单project->resources下建立new->user data,resource type='MID'
//并将lost.mid文件插入资源文件中（project1.res）
procedure TForm1.BitBtn1Click(Sender: TObject);
var
R: TResourceStream;
begin
r:=TResourceStream.Create(HInstance, 'lost', 'MID');
//其中lost为mid歌曲名称，MID为资源类型
r.SaveToFile('c:/temp.mid');
r.Free;
MediaPlayer1.FileName:='c:/temp.mid';
MediaPlayer1.open;
MediaPlayer1.Play;
end;

 

R

ricon2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-09

• #3

up

 

R

ricon2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-09

• #4

up

 

R

ricon2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-11

• #5

显示位图呢,能不能直接播放midi

 

爱

爱元元的哥哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-11

• #6

bitmap.loadfromres

midi必须要先释放到临时文件！

 

R

ricon2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-11

• #7

能否具体一点!

 

爱

爱元元的哥哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-11

• #8

//------------------------------------------------------------------------------
// 从资源文件放出文件
// 司马华鹏
function ExtractRes(resType, resName, resNewName : string):boolean;
var
res : TResourceStream;
begin
try
res := tresourcestream.create(hinstance, resname, pchar(restype));
try
res.savetofile(resnewname);
result:=true;
finally
res.free;
end;
except
result:=false;
end;
end;

 

R

ricon2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-11

• #9

如果不用MediaPlayer1,不释放资源,有其他方法播放吗.

 

爱

爱元元的哥哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-11

• #10

strAudioFile:= ChangeFileExt(myGetTempFile,'.MP3');
ExtractRes('Love','Mp3',strAudioFile);

GetMem(ShortPathName,255);
GetShortPathName(pChar(strAudioFile), ShortPathName, 255);

mciSendString ('close myAudio', nil, 0, 0);
mciSendString (pChar('open ' + ShortPathName + ' alias myAudio'), nil, 0, 0);
mciSendString ('play myAudio', nil, 0, 0);
FreeMem(ShortPathName);

 

R

ricon2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-11

• #11

差不多了,谢谢!

 

R

ricon2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-11

• #12

多人接受答案了。