delphi 播放声

手把手教你用WPF打造智能搜索框:ComboBox+占位符+动态过滤实战 本文详细介绍了如何使用WPF开发智能搜索框,从基础ComboBox控件到企业级交互组件的完整实现过程。涵盖动态过滤、占位符提示、防误操作等高级特性,通过渐进式复杂度设计方法,逐步构建功能完善的搜索组件。特别适合需要提升桌面应用搜索体验的.NET开发者。 阅读详情
 
//声明:
sndPlaySound(
  lpszSoundName: PChar; {声音文件}
  uFlags: UINT{播放选项}
): BOOL;

//uFlags 参数可选值:
SND_SYNC      = 0; {同步播放, 程序须等到播放完毕才向下执行}
SND_ASYNC     = 1; {异步播放, 在函数返回之后开始播放, 不影响程序继续执行}
SND_NODEFAULT = 2; {声音文件缺失时, 函数自动返回不播放默认声音}
SND_MEMORY    = 4; {播放内存中的声音, 譬如资源文件中的声音}
SND_LOOP      = 8; {循环播放, 需要和 SND_ASYNC 组合使用}
SND_NOSTOP    = 16;{如果当前正在播放声音, 立即返回 False}

 
//举例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses MMSystem; {sndPlaySound 声明在该单元} const s = 'C:/WINDOWS/Media/Windows XP 启动.wav'; //同步播放 procedure TForm1.Button1Click(Sender: TObject); begin sndPlaySound(s, SND_SYNC); Beep; {播放完毕才会执行这句} end; //异步播放 procedure TForm1.Button2Click(Sender: TObject); begin sndPlaySound(s, SND_ASYNC); Beep; {马上会执行这句} end; //反复播放 procedure TForm1.Button3Click(Sender: TObject); begin sndPlaySound(s, SND_LOOP or SND_ASYNC); end; end.
//sndPlaySound 也可以用来播放资源或内存中的声音文件, 参加示例:
http://www.cnblogs.com/del/archive/2008/02/15/1069523.html
Delphi使用PasLibVlc播放视频 阅读详情

相关推荐

Delphi写的多媒播放器

program PMedia; {*************************************************   版权所有 (C) 2001-2012 XXX公司   文件名称: PMedia.dpr   作者:    XXX     版本:    pm1.0.1    时间: 2012-03-24   工程概要:多媒体播放的小软件,能够播放视频和音频,操作简捷方

ITSource的专栏 1255

用DELPHI播放WAV和MP3

用于某企业知识竞赛,为了更有现场感,要加入音效。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, MPlayer, StdCtrls; type TForm1 = class(TForm) Butt

Gavin Chen 6934

Delphi视频播放器开发实战指南

本文还有配套的精品资源,点击获取 简介:Delphi,一种强大的面向对象编程环境,非常适合开发Windows桌面应用程序,如视频播放器。本项目将探讨如何使用Delphi创建视频播放器,并涵盖多媒体库的接入、组件使用、编码解码、视频渲染、用户界面设计、时间线控制、文件选择和播放列表管理、视频流处理、错误处理和调试以及性能优化等多个关键方面。通过本指南的学习和实践,开发者可以构...

weixin_35370061的博客 2161

用Delphi设计循环播放声音文件程序

实例将演示在程序运行过程中如何循环地播放一个指定的声音文件。      首先在程序的uses段中添加MMSYSTEM,然后在窗体的初始化过程中添加以下代码:      procedure TForm1.FormCreate(Sender: TObject);   begin   SndPlaySound(’c:\RECYCLE.WAV’,SND_ASYNC or SND_LOOP); ...

weixin_30727835的博客 408

在Delphi中通过WMP播放视频的实践指南

Windows Media Player(WMP)是一个由微软公司开发的数字媒体播放软件。它支持多种音频、视频文件格式,也包括CD、DVD等多媒体设备。WMP不仅仅是一个播放器,它还拥有丰富的多媒体库管理功能,允许用户分类、整理、搜索和播放媒体内容。此外,它支持不同的外观和皮肤,用户可以根据个人喜好进行定制,实现个性化的播放体验。本章将从WMP的历史发展、核心功能和在多媒体应用中的作用三个方面,探讨WMP如何成为计算机用户和开发者不可缺少的多媒体工具。

weixin_42576410的博客 992

Delphi 播放声音文件源码

Delphi 播放声音文件源码

【Delphi】用播放wav格式数据实现的Beep声音

以前播放报警声,我都是使用Windows.Beep(Freq, Duration),但这个Beep比较死板,播放声音时程序时停止的,知道声音播放完毕;另外两个连续的Beep,实际上属于

BlueStorm的博客 1010

Delphi 播放音乐几种方式。各自优缺点

传统的基本可以实现所有的播放音乐功能,但是易出错, 声卡异常,报错。 SndPlaySound 用于简单播放提示音可以使用,简洁,快速,windows 也是调用这个 播放的 MCISendString 功能最强,最全。即使声卡异常也不会报错,会返回错误数据

delphi播放mp3背景音乐

 //以下的代码为播放背景音乐 var           mciOpenParms:   TMCI_Open_Parms;           m_MCIDeviceID:   MCIDEVICEID;   procedure TForm1.FormCreate(Sender: TObject);varmciPlayParms:MCI_PLAY_PARMS;ret:   integer;

eNet 3334

PC内置喇叭发出声音(delphi)

PC内置喇叭发出声音(delphi)用于控制喇叭响声。

DelphisndPlaySound_delphi_delphisndplaysound_

Delphi 基于sndPlaySound函数播放音频文件,无调用windows内置的播放器组件,Delphi原生的音乐播放程序

delphi编程实现播放背景音乐

如果要做一些比较艺术化的程序时,你会想到插入背景音乐,这时你是否使用了TMediaPlayer控件来播放音乐呢?其实我们大可放弃该方法,直接使用WINDOWS为 我们提供的API函数来播放音乐,方法如下:首先需要在uses部分加入mmsystem,接着写入下列语句,其中e:/1.mid为播放的文件,NN为自定义名称标志procedure TForm1.Button1Click(Sender

RENYUAN 2269

【无线通信】射频杂散(RF Spurious Emissions)

射频杂散(RF Spurious Emissions)是指在无线通信系统中,除了在指定频率范围内的预期信号之外,任何不需要的或非预期的射频信号。这些杂散信号可能会干扰其他通信系统,降低系统性能,并违反无线电通信法规。射频杂散通常包括谐波、次谐波、互调产物和其他非线性失真所产生的信号。

qq_38801607的博客 5424

Delphi 播放wav声音

1. uVar.pas单元如下 unit uVar; interface uses SysUtils, Forms; type TAppPara = class public class function AppPath: string; class function AppName: string; end; TFilePath = class(T...

1309

双摄像头的实时视频拼接及目标跟踪(一)

本章主要讲图像拼接算法的研究 先膜拜一下知乎大佬全面的叙述:https://www.zhihu.com/question/34535199/answer/135169187 本文图像拼接是基于opencv的图像拼接,流程分为以下几步 ...

Y.W.jian的博客 3万+

机理模型与数据模型融合的方式

风电场的发电量受到多种因素的影响,包括但不限于风速、温度、空气密度等。尽管这些环境变量可以直接测量并用作模型输入,但它们与发电量之间的关系往往是复杂的非线性关系。通过引入基于物理定律计算出的理论发电量作为额外特征,可以为数据驱动模型提供更丰富的信息,从而提高预测精度。在这个案例中,我们将使用贝茨理论(Betz Limit)来计算风电场的理论发电量,并将其作为一个新的特征添加到数据集中。然后,我们使用增强后的数据集训练一个简单的神经网络模型来进行发电量预测。

金石软件 4805

delphi里播放flash

                       delphi里播放flash    在flash大行其道的今天,是否想过在你的程序里也加入几幅flash炫一炫?我们就来试试,前提是你要装有flash播放软件(你的IE能显示flash),IE之所以能显示flash是安装了一个swflash.ocx控件,由Macromedia, Inc.提供,我们也用它了,win98在$Windows/System/M

ypyRock的专栏 1752

大模型量化技术全解析:从INT8到GPTQ/AWQ,降低部署成本实战指南

模型量化是一种通过降低神经网络权重和激活值的数据精度(如从FP16降至INT8/INT4),从而大幅减少模型内存占用和计算开销的核心模型压缩技术。其原理基于线性变换,将高精度浮点数映射到低精度整数表示,在硬件层面能利用专用低精度计算单元实现显著加速。这项技术的核心价值在于解决了大模型(如千亿参数LLM)部署时面临的高昂显存成本和推理延迟问题,使其能在消费级GPU和边缘设备上高效运行。当前,后训练量化(PTQ)因其无需重新训练的特性成为主流,衍生出GPTQ、AWQ、SmoothQuant等多种方法,广泛应用于

weixin_33804582的博客 629

Delphi 播放器[源码]

Delphi 音乐播放器,支持桌面歌词、换肤、换颜色、歌词自动下载,Win7下支持小窗口预览,有些功能未完全完成,就如调整音量(懒得搞,但是可以听了,只写了一次性播放列表没得循环的)。支持酷狗、QQ的动感歌词,以动感方式显示自己的实现方法,工程是使用Delphi XE2开发,原本是用delphi7后因为要支持win7下面的那个小窗口模式的,所以改为delphi xe2了。 主界面:

ying32的专栏 5636

Claude skill-creator插件深度解析:从创建到优化的完整技能工程化体系

摘要:skill-creator是Anthropic推出的Claude技能开发插件,提供从创建到优化的全流程工程化支持。其核心架构采用渐进式披露机制和多Agent协作模式,包含Grader、Analyzer等专业评估组件。该插件支持自动化评测系统,通过测试用例管理、并行执行和结果聚合实现技能验证;提供迭代优化算法,基于数据驱动改进技能性能。典型应用场景包括标准化技能开发、自动化测试验证和触发优化,显著降低开发门槛并提升技能质量。

虚心若愚 988

卡诺图化简法注意事项+竞争冒险知识点总结

今天反思以下卡诺图化简法中的注意事项。 卡诺图看起来简单,但如果不熟悉的话很容易出错,因此要对画圈的规则比较熟悉。

weixin_42415266的博客 1万+

Delphi TMediaPlayer播放音乐出现"no MCI device open"的错误的解决方法;循环播放

最近用DELPHI的TMediaPlayer写了一个音乐控制软件,用到了TMediaPlayer控件,播放音乐时总是出现no MCI device open的错误。查了半天资料终于找到原因。 我原来是这样的写法 Mediaplayer1.Close; Mediaplayer1.FileName:=musicfile; Mediaplayer1.Open; Mediaplayer1.P

流年~~ 7627

【目标检测】基于yolov5的道路坑洼检测(附代码和数据集)

基于yolov5的道路坑洼检测(附代码和数据集)

学无止境、积少成多、厚积薄发 4620

用delphi打造属于自己的播放器

    如今RealPlayer的流式媒体文件以其强大的视频压缩比正逐步悄然兴起。RealPlayer Plus播放器也理所当然地成为大家播放RealPlayer格式文件的首选软件。不过RealPlayer Plus也不是十全十美的,比如启动时间慢,占用空间大,留有历史记录等等。其实我们可以利用Delphi打造一个完全符合自己要求的RealPlayer播放器。下面我将向大家介绍如何利用Delphi

delphier817的专栏 2310

三维点云转深度图

点云投影过程是将三维点云数据转化为二维图像坐标的关键步骤,它的实现涉及到相机内外参数的计算,包括相机的内部参数(如焦距和主点)和外部参数(如相机位置和方向)。具体来说,可以通过将每个点的三维坐标转换为相机坐标系下的坐标,然后使用相机内部参数和外部参数来计算在二维图像中的坐标。接着计算每个点的深度值,将深度值映射到像素值上,最后创建深度图像并将深度值赋给对应的像素值。这里需要注意的是,在将深度值映射到像素值上时,需要将像素值转换为 uchar 类型,否则在将深度值赋给像素值时会出现类型不匹配的错误。

点云兔子的博客 3171

NTscan扫描工具

ntscan是一个扫描器,可以扫描没有密码和弱密码的共享,先到配置文件中填写猜测的用户名和密码,扫描过程中右侧出现的是扫描日志。

delphi 编写PCM播放器

delphi 编写PCM播放器 本类支持对wav,pcm文件的本地播放,以及pcm网络流播放。 unit uSound; interface uses WINDOWS,DirectSound, MMSystem,classes,ActiveX; const WAV_SAMPLE_RATE=44100; //PCM sample rate WAV_CHANNEL_NUMBER=1; ...

byc6352的专栏 844

深度学习工具包 DeepLearningToolbox

深度学习工具包Deprecation notice.-----This toolbox is outdated and no longer maintained.There are much better tools available for deep learning than this toolbox, e.g. [Theano](http://deeplearning.net/software/theano/), [torch](http://torch.ch/) or [tensorflow](http://www.tensorflow.org/)I would suggest you use one of the tools mentioned above rather than use this toolbox.Best, Rasmus.DeepLearnToolbox================A Matlab toolbox for Deep Learning.Deep Learning is a new subfield of machine learning that focuses on learning deep hierarchical models of data.It is inspired by the human brain's apparent deep (layered, hierarchical) architecture.A good overview of the theory of Deep Learning theory is[Learning Deep Architectures for AI](http://www.iro.umontreal.ca/~bengioy/papers/ftml_book.pdf)For a more informal introduction, see the following videos by Geoffrey Hinton and Andrew Ng.* [The Next Generation of Neural Networks](http://www.youtube.com/watch?v=AyzOUbkUf3M) (Hinton, 2007)* [Recent Developments in Deep Learning](http://www.youtube.com/watch?v=VdIURAu1-aU) (Hinton, 2010)* [Unsupervised Feature Learning and Deep Learning](http://www.youtube.com/watch?v=ZmNOAtZIgIk) (Ng, 2011)If you use this toolbox in your research please cite [Prediction as a candidate for learning deep hierarchical models of data](http://www2.imm.dtu.dk/pubdb/views/publication_details.php?id=6284)```@MASTERSTHESIS\{IMM2012-06284, author = "R. B. Palm", title = "Prediction as a candidate for learning deep hierarchical models of data", year = "2012",}```Contact: rasmusbergpalm at gmail dot comDirectories included in the toolbox-----------------------------------`NN/` - A library for Feedforward Backpropagation Neural Networks`CNN/` - A library for Convolutional Neural Networks`DBN/` - A library for Deep Belief Networks`SAE/` - A library for Stacked Auto-Encoders`CAE/` - A library for Convolutional Auto-Encoders`util/` - Utility functions used by the libraries`data/` - Data used by the examples`tests/` - unit tests to verify toolbox is workingFor references on each library check REFS.mdSetup-----1. Download.2. addpath(genpath('DeepLearnToolbox'));Example: Deep Belief Network---------------------```matlabfunction test_example_DBNload mnist_uint8;train_x = double(train_x) / 255;test_x = double(test_x) / 255;train_y = double(train_y);test_y = double(test_y);%% ex1 train a 100 hidden unit RBM and visualize its weightsrand('state',0)dbn.sizes = [100];opts.numepochs = 1;opts.batchsize = 100;opts.momentum = 0;opts.alpha = 1;dbn = dbnsetup(dbn, train_x, opts);dbn = dbntrain(dbn, train_x, opts);figure; visualize(dbn.rbm{1}.W'); % Visualize the RBM weights%% ex2 train a 100-100 hidden unit DBN and use its weights to initialize a NNrand('state',0)%train dbndbn.sizes = [100 100];opts.numepochs = 1;opts.batchsize = 100;opts.momentum = 0;opts.alpha = 1;dbn = dbnsetup(dbn, train_x, opts);dbn = dbntrain(dbn, train_x, opts);%unfold dbn to nnnn = dbnunfoldtonn(dbn, 10);nn.activation_function = 'sigm';%train nnopts.numepochs = 1;opts.batchsize = 100;nn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.10, 'Too big error');```Example: Stacked Auto-Encoders---------------------```matlabfunction test_example_SAEload mnist_uint8;train_x = double(train_x)/255;test_x = double(test_x)/255;train_y = double(train_y);test_y = double(test_y);%% ex1 train a 100 hidden unit SDAE and use it to initialize a FFNN% Setup and train a stacked denoising autoencoder (SDAE)rand('state',0)sae = saesetup([784 100]);sae.ae{1}.activation_function = 'sigm';sae.ae{1}.learningRate = 1;sae.ae{1}.inputZeroMaskedFraction = 0.5;opts.numepochs = 1;opts.batchsize = 100;sae = saetrain(sae, train_x, opts);visualize(sae.ae{1}.W{1}(:,2:end)')% Use the SDAE to initialize a FFNNnn = nnsetup([784 100 10]);nn.activation_function = 'sigm';nn.learningRate = 1;nn.W{1} = sae.ae{1}.W{1};% Train the FFNNopts.numepochs = 1;opts.batchsize = 100;nn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.16, 'Too big error');```Example: Convolutional Neural Nets---------------------```matlabfunction test_example_CNNload mnist_uint8;train_x = double(reshape(train_x',28,28,60000))/255;test_x = double(reshape(test_x',28,28,10000))/255;train_y = double(train_y');test_y = double(test_y');%% ex1 Train a 6c-2s-12c-2s Convolutional neural network %will run 1 epoch in about 200 second and get around 11% error. %With 100 epochs you'll get around 1.2% errorrand('state',0)cnn.layers = { struct('type', 'i') %input layer struct('type', 'c', 'outputmaps', 6, 'kernelsize', 5) %convolution layer struct('type', 's', 'scale', 2) %sub sampling layer struct('type', 'c', 'outputmaps', 12, 'kernelsize', 5) %convolution layer struct('type', 's', 'scale', 2) %subsampling layer};cnn = cnnsetup(cnn, train_x, train_y);opts.alpha = 1;opts.batchsize = 50;opts.numepochs = 1;cnn = cnntrain(cnn, train_x, train_y, opts);[er, bad] = cnntest(cnn, test_x, test_y);%plot mean squared errorfigure; plot(cnn.rL);assert(er<0.12, 'Too big error');```Example: Neural Networks---------------------```matlabfunction test_example_NNload mnist_uint8;train_x = double(train_x) / 255;test_x = double(test_x) / 255;train_y = double(train_y);test_y = double(test_y);% normalize[train_x, mu, sigma] = zscore(train_x);test_x = normalize(test_x, mu, sigma);%% ex1 vanilla neural netrand('state',0)nn = nnsetup([784 100 10]);opts.numepochs = 1; % Number of full sweeps through dataopts.batchsize = 100; % Take a mean gradient step over this many samples[nn, L] = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.08, 'Too big error');%% ex2 neural net with L2 weight decayrand('state',0)nn = nnsetup([784 100 10]);nn.weightPenaltyL2 = 1e-4; % L2 weight decayopts.numepochs = 1; % Number of full sweeps through dataopts.batchsize = 100; % Take a mean gradient step over this many samplesnn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.1, 'Too big error');%% ex3 neural net with dropoutrand('state',0)nn = nnsetup([784 100 10]);nn.dropoutFraction = 0.5; % Dropout fraction opts.numepochs = 1; % Number of full sweeps through dataopts.batchsize = 100; % Take a mean gradient step over this many samplesnn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.1, 'Too big error');%% ex4 neural net with sigmoid activation functionrand('state',0)nn = nnsetup([784 100 10]);nn.activation_function = 'sigm'; % Sigmoid activation functionnn.learningRate = 1; % Sigm require a lower learning rateopts.numepochs = 1; % Number of full sweeps through dataopts.batchsize = 100; % Take a mean gradient step over this many samplesnn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.1, 'Too big error');%% ex5 plotting functionalityrand('state',0)nn = nnsetup([784 20 10]);opts.numepochs = 5; % Number of full sweeps through datann.output = 'softmax'; % use softmax outputopts.batchsize = 1000; % Take a mean gradient step over this many samplesopts.plot = 1; % enable plottingnn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.1, 'Too big error');%% ex6 neural net with sigmoid activation and plotting of validation and training error% split training data into training and validation datavx = train_x(1:10000,:);tx = train_x(10001:end,:);vy = train_y(1:10000,:);ty = train_y(10001:end,:);rand('state',0)nn = nnsetup([784 20 10]); nn.output = 'softmax'; % use softmax outputopts.numepochs = 5; % Number of full sweeps through dataopts.batchsize = 1000; % Take a mean gradient step over this many samplesopts.plot = 1; % enable plottingnn = nntrain(nn, tx, ty, opts, vx, vy); % nntrain takes validation set as last two arguments (optionally)[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.1, 'Too big error');```[![Bitdeli Badge](https://d2weczhvl823v0.cloudfront.net/rasmusbergpalm/deeplearntoolbox/trend.png)](https://bitdeli.com/free "Bitdeli Badge")

上一篇: 用dbgird导出execl表
下一篇: VCL 中的 Windows API 函数: BeginPath、EndPath
Dcdu
博客等级 码龄21年 44粉丝 33原创
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付:10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值