不知道为什么，这个语句没执行。大家过来看看。

2004-07-05 02:29:55 161 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

TI电机驱动应用中MOSFET选型完整指南深入解析TI电机驱动设计中MOSFET的选型关键，涵盖参数匹配、热性能与开关效率，帮助工程师优化系统性能并提升能效，是掌握MOSFET应用的核心参考。阅读详情

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
command:string;
begin
command:=Athread.connection.readln; //读入命令
if command='NO' then
begin
Listbox1.Items.add('string'); //这句已经执行
mediaplayer1.play(); //这个语句不执行
end;

end;

如果把mediaplayer1.play(); 放在另一个事件中就可以了。
procedure TForm1.Button4Click(Sender: TObject);
begin
mediaplayer1.play(); //完全可以播放音乐
end;

大家说说是什么原因。

...全文

施耐德 Modicon M580 ePAC 项目实战：从硬件选型到 Control Expert V15 组态本文详细解析了施耐德 Modicon M580 ePAC 在工业自动化项目中的实战应用，从硬件选型到 Control Expert V15 组态的全流程。重点介绍了水处理站控制系统的硬件配置、网络架构设计、软件安装授权及程序框架开发，帮助工程师高效实施中大型控制系统项目。阅读详情

likespring

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

wensusy 2004-07-05

打赏
举报

这个语句其实应该执行了，只是语句执行太快，程序运行时感觉没有播放，如果你用单步执行就可以听到播放的内容。在Button4Click中能够执行是因为在你没停止时，play一直在执行中，所以没问题。关键要看你用play来干什么？如果你想播放完你需要播放的东西再执行下一个语句，我建议你采用windows自带的playsound函数，这个函数可以实现同步、异步等方式的播放，你只需在uses中加入 mmsystem即可，具体函数原型可在 mmsystem中可以找到。

sherry3000 2004-07-05

打赏
举报

你用单步调试，看是否运行过那条语句。

帮你UP!

likespring 2004-07-05

打赏
举报

应该是没有效果吧。

jacket008(§优国优民§) ，这样在运行中会提示错误。

'canvas does allow drawing'

jacket008 2004-07-05

打赏
举报

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
command:string;
begin
command:=Athread.connection.readln; //读入命令
if command='NO' then
begin
Listbox1.Items.add('string'); //这句已经执行
mediaplayer1.play(); //这个语句不执行
showmessage('asfdasfd');//如果这句执行，那么上面一句也执行，

end;

end;

liunini 2004-07-05

打赏
举报

是那条语句没有执行还是执行了但是没有效果

likespring 2004-07-05

打赏
举报

问题是怎么在button4的事件上就能发出声音，而在IdTCPServer1Execute就没有声音呢？中间没更改过mediaplayer的属性，都是在object inspector里设好的。

likespring 2004-07-05

打赏
举报

pl5th2001(白牙),你的方法已经试过了，还是不行。

flydreams() ，我都是mediaplayer的属性设为true的。

pl5th2001 2004-07-05

打赏
举报

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
command:string;
begin
command:=Athread.connection.readln; //读入命令
if command='NO' then
begin
Listbox1.Items.add('string'); //这句已经执行
//mediaplayer1.play(); //这个语句不执行
//你这样看看：
Button4.onclick(self);
end;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
mediaplayer1.play(); //完全可以播放音乐
end;

flydreams 2004-07-05

打赏
举报

不执行应该是不可能的吧，会不会是你的IdTCPServer1Execute触发前，mediaplayer1还没有OPEN
而Button4Click触发的时候，mediaplayer1已经OPEN？

Sunniness 2004-07-05

打赏
举报

按道理应该会执行!

pl5th2001 2004-07-05

打赏
举报

你用F7调试一下看看

likespring 2004-07-05

打赏
举报

难道就没有高手告诉我一下。还是不愿意回答这种问题。

likespring 2004-07-05

打赏
举报

分可以加的。请看看到底是什么原因。

maxtool 2004-07-05

打赏
举报

帮up

likespring 2004-07-05

打赏
举报

不明白的题意的，请发问。这个下午在线等待中。

不知道为什么，这个语句没执行。大家过来看看。

相关推荐