Q
qweasd
Unregistered / Unconfirmed
GUEST, unregistred user!
做的一个FLASH播放器程序，通过OpenDialog1打开若干FLASH文件到文件列表（Listbox1）中，
然后有很多问题！！！！！
1、点击“打开”按钮，弹出浏览窗口的对话框，如果不选择任何文件直接“取消”返回程序的话，
程序就出错。
2、如果在列表框中先选了一个文件，然后又选了另一个文件，不管第一次选的文件播放与否，只要
在列表框ListBox中点击了两个以上的文件，程序就出错。
3、跟问题2相似，哪怕没有选择两个以上的文件，就算把同一个文件点了两次，要想再播放，程序也会
出错。
综合2、3来看，好像是不能在Listbox里点击两下以上。（不管是否是同一文件）
//以下是“打开”按钮的代码：
procedure TPlayerForm.OpenBtnClick(Sender: TObject);
var
i: Integer;
str: string;
begin
if OpenDialog1.Execute then
begin
for i:=0 to OpenDialog1.Files.Count-1do
begin
str:=ExtractFileName(OpenDialog1.Files);
if Listbox1.items.indexof(str)<0 then
Listbox1.items.add(str);
end;
end;
s:=ExtractFilePath(OpenDialog1.Files[0]);
//s为全局变量，保存了所选择的文件的完整路径
end;
//以下是ListBoxClick的代码：
procedure TPlayerForm.ListBox1Click(Sender: TObject);
var
i: Integer;
begin
for i:=0 to ListBox1.Items.Count-1do
begin
if ListBox1.Selected then
begin
PlayBtn.Enabled:=true;
//PlayBtn为“开始播放”按钮
s:=s+ListBox1.Items[ListBox1.ItemIndex];
//s在此处又加上了文件名，这样路径和文件名就完整了
end;
end;
end;
以下是PlayBtn（开始播放）按钮的代码：
procedure TPlayerForm.PlayBtnClick(Sender: TObject);
begin
ShockwaveFlash1.Playing:=true;
ShockwaveFlash1.Movie:=s;
PlayBtn.Enabled:=false;
end;
这些问题好久了，请各位帮我看看，到底是什么地方错了，应该怎么改？
我希望改完后的结果是不管怎样打开、选择、播放文件，都不会出错。
分不够我重新开贴给您加上，谢谢！
然后有很多问题！！！！！
1、点击“打开”按钮，弹出浏览窗口的对话框，如果不选择任何文件直接“取消”返回程序的话，
程序就出错。
2、如果在列表框中先选了一个文件，然后又选了另一个文件，不管第一次选的文件播放与否，只要
在列表框ListBox中点击了两个以上的文件，程序就出错。
3、跟问题2相似，哪怕没有选择两个以上的文件，就算把同一个文件点了两次，要想再播放，程序也会
出错。
综合2、3来看，好像是不能在Listbox里点击两下以上。（不管是否是同一文件）
//以下是“打开”按钮的代码：
procedure TPlayerForm.OpenBtnClick(Sender: TObject);
var
i: Integer;
str: string;
begin
if OpenDialog1.Execute then
begin
for i:=0 to OpenDialog1.Files.Count-1do
begin
str:=ExtractFileName(OpenDialog1.Files);
if Listbox1.items.indexof(str)<0 then
Listbox1.items.add(str);
end;
end;
s:=ExtractFilePath(OpenDialog1.Files[0]);
//s为全局变量，保存了所选择的文件的完整路径
end;
//以下是ListBoxClick的代码：
procedure TPlayerForm.ListBox1Click(Sender: TObject);
var
i: Integer;
begin
for i:=0 to ListBox1.Items.Count-1do
begin
if ListBox1.Selected then
begin
PlayBtn.Enabled:=true;
//PlayBtn为“开始播放”按钮
s:=s+ListBox1.Items[ListBox1.ItemIndex];
//s在此处又加上了文件名，这样路径和文件名就完整了
end;
end;
end;
以下是PlayBtn（开始播放）按钮的代码：
procedure TPlayerForm.PlayBtnClick(Sender: TObject);
begin
ShockwaveFlash1.Playing:=true;
ShockwaveFlash1.Movie:=s;
PlayBtn.Enabled:=false;
end;
这些问题好久了，请各位帮我看看，到底是什么地方错了，应该怎么改？
我希望改完后的结果是不管怎样打开、选择、播放文件，都不会出错。
分不够我重新开贴给您加上，谢谢！