目的：一個(gè)音樂(lè)播放器，通過(guò)點(diǎn)擊IDC_BUTTONOPEN按鈕打開(kāi)文件并播放文件，通過(guò)IDC_BUTTONPAUSE按鈕暫停播放，使用mcisengstring函數(shù)；問(wèn)題：當(dāng)我點(diǎn)擊播放按鈕并選擇Mp3文件，可以正常播放并顯示其完整路徑；但是我在點(diǎn)擊暫停按鈕希望暫停播放并顯示完整路徑時(shí)，顯示內(nèi)容就對(duì)了（如下圖）；哪里有錯(cuò)呢？void Main_OnCommand(HWND hwnd, int id, HWND hwndCtl, UINT codeNotify){switch(id){TCHAR long_path[MAX_PATH],short_path[MAX_PATH],cmd[MAX_PATH+15],songname[FILE_NAME];//打開(kāi)文件case IDC_BUTTONOPEN:{//初始化打開(kāi)DlgOPENFILENAME ofn;TCHAR szFile[MAX_PATH];//char szFile[MAX_PATH];定義一個(gè)長(zhǎng)度為MAX_PATH的char數(shù)組。//MAX_PATH是系統(tǒng)定義的一個(gè)宏，260。Windows操作系統(tǒng)文件路徑的 最大長(zhǎng)度。ZeroMemory(&ofn,sizeof(ofn));//memset 使用前將其成員(內(nèi)存)清零是個(gè)好習(xí)慣ofn.lStructSize = sizeof(ofn);ofn.lpstrFile = szFile;ofn.lpstrFile[0] = TEXT('\0');ofn.nMaxFile = sizeof(szFile);ofn.lpstrFilter = TEXT("ALL\0*.*\0mp3\0*.mp3\0wma\0*.wma\0");ofn.nFilterIndex = 2; //默認(rèn)使用mp3作為過(guò)濾器ofn.lpstrFileTitle = NULL;ofn.nMaxFileTitle = 0;ofn.lpstrInitialDir = NULL;ofn.hwndOwner = hwnd;//ofn.Flags = OFN_EXPLORER |OFN_PATHMUSTEXIST | OFN_FILEMUSTEXIST;if (GetOpenFileName(&ofn)) //getopenfilename()返回值是BOOL類(lèi)型，點(diǎn)確定返回TRUE；點(diǎn)取消返回FALSE;{GetShortPathName(szFile,short_path,sizeof(short_path));wsprintf(cmd,"play %s",short_path);mciSendString(cmd,"",0,NULL);//顯示當(dāng)前播放歌曲名字(不含絕對(duì)路徑)GetFileTitle(szFile,songname,FILE_NAME);SetDlgItemText(hwnd,IDC_EDITMUSICNAME,songname);//*MessageBox(hwnd,szFile,TEXT("目錄1"),MB_OK);//顯示選取文件 的完整路徑;//*/} }break;//暫停case IDC_BUTTONPAUSE:{//szfile內(nèi)容不對(duì)GetDlgItemText(hwnd,IDC_EDITMUSICNAME,songname,sizeof(songname));// wsprintf(cmd,"pause %s",long_path);MessageBox(hwnd,long_path,TEXT("目錄2"),MB_OK);// mciSendString(cmd,0,0,NULL);}break;default:break;}}
1 回答
暮色呼如
TA貢獻(xiàn)1853條經(jīng)驗(yàn) 獲得超9個(gè)贊
對(duì)于這個(gè)問(wèn)題，我在我的軟件中采用求ASC碼值的方法，將每一位的ASC碼值加起來(lái)，再case of，（因?yàn)槲覀兪孪戎谰唧w的字符串，要不然，您怎么比較呢？）
我做的例子的unit1窗體如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,j,k:integer;
begin
s := Edit1.Text;
j := length(s);
i :=0;
for k :=1 to j do
i := i ord(s[k]);
case i of
97:messagebox(0,'50','50',mb_ok);{假設(shè)為a 97}
98:messagebox(0,'51','51',mb_ok);{假設(shè)為b 97}
{常數(shù)N:語(yǔ)句N(xiāo)
...
}
else caption:=inttostr(i);
end;
end;
end.
-----------------------------------------------
unit1窗體中，就一個(gè)組件，ord(）函數(shù)是求字符的原始值 ord(s[k])，就是ASC碼
- 1 回答
- 0 關(guān)注
- 125 瀏覽
添加回答
舉報(bào)
0/150
提交
取消