排序
delphi中如何判断MediaPlayer控件所播放的文件是否播放完毕?
利用TMediaPlayer控件的Mode属性就能够判断播放完毕时Mode属性的值为mpStoppedif MediaPlayer1.Mode=mpStopped thenbeginButtonGetnew.Click;end;
delphi 调节音量代码
unit UnitVolumeWin7;interfaceuses messages, Windows, Forms;/// <summary>/// 增大音量/// </summary>procedure VolumeUp;/// <summary>/// 减小音量/// </summary>...
Delphi MediaPlayer1 播放avi 视频
delphitop.com 提示 本示例演示了TMediaPlayer组件的用法,假设表单上存在两个“打开”和“停止”按钮。注意:为了能够手动控制按钮,必须将“自动播放”设置为“false”。procedure TForm2.btO...
Delphi ComObj调用wmplayer播放音乐
uses System.Win.ComObj;varPlayer: olevariant; Player := CreateOleObject('wmplayer.ocx.7'); Player.url := olevariant(UTF8Decode('123.mp3')); &...
Delphi MediaPlayer Android 下播放 MP4 的问题
开发环境:Delphi 10.3.1 社区版。测试环境:A. Android 5.0;B. Android 9.01. 进度条Delphi 官方带的例子里面,关于进度条的代码:procedure TForm1.Timer1Timer(Sender: TObject);begin ...
Delphi从内存(MemoryStream)使用WMP
【Delphi】从内存(MemoryStream)使用WMP(WindowsMediaPlayer)控件播放视频音频(Play Video with WMP from MemoryStream)关键字: MemoryStream、WMP、WindowsMediaPlayer、Play 、Load、 Del...
Delphi 实现简易语音发音(基于TTS方式)
Delphi 实现简易语音发音(基于TTS方式)uses Comobj;procedure TForm1.Button1Click(Sender: TObject); var voice: OLEVariant; begin voice := CreateOLEObject('SAPI.Sp...
delphi 播放声音 采用 异步方式,比较流畅
delphi 播放声音 采用 异步方式,比较流畅//声明:sndPlaySound( lpszSoundName: PChar; {声音文件} uFlags: UINT{播放选项}): BOOL;//uFlags 参数可选值:SND_SYNC = 0; {同步播放, ...
Delphi PlaySound()函数应用
function PlaySound(pszSound: PChar; hmod: HMODULE; fdwSound:DWORD):BOOL;stdcall; 其中的fdwSound为播放方式,...
Delphi TreeView – 自动给标题上加图片
当处理完TreeView控件树形结构的数据后,根据不同的树形节点Level,加上不同的图片。图片的ImageList已经放置好,并且TreeView的Images已经连上带有图片的ImageList。procedure TForm1.TreeView...
DELPHI写的播放器核心代码,播放MP3无压力
DELPHI写的播放器核心代码,播放MP3无压力主窗口代码:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialo...
delphi MediaPlayer 实现录音
unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, MPlayer;typeTWavHeader ...
delphi 播放背景音乐
//播放.MP3文件: uses mmsystem; //開始播放: procedure TForm1.Button1Click(Sender: TObject); beginMCISendString('OPEN e:.mp3 TYPE mpegvideo alias ww'...
delphi报警声音 Beep、MessageBeep 和 Windows.Beep
我的办法,增加一个timer 设置间隔100ms,通过timer的使能否,控制报警声音开关procedure TForm1.Timer1Timer(Sender: TObject);begin Windows.Beep(1200+i_f,10+i_f);  ...
delphi 用DSPack播放视频
1. DSPack 2.3.4 安装一. 下载由于sourceforge最近不能访问,所以可以去 http://www.progdigy.com/ 下载。下载 http://www.progdigy.com/files/DSPACK234.zip 后,解压缩到一个目录(我用的是C:...
Delphi Vista以上系统的进程静音
单个进程的音量控制是从Vista系统中才开始支持的,所以此函数需要在Vista及以上的系统中使用。XP下面使用这个函数会导致系统全局静音。所以在XP下要使进程静音要使用Hook技术.Delphi XE&nb...
Delphi实现背景音乐播放
procedure TForm1.Button1Click(Sender: TObject);begin//播放音乐 MCISendString(OPEN e: .MID type SEQUENCER ALIAS NN, , 0, 0); MCISendString(PLAY NN FROM 0, , 0, 0); MCISendString(CL...
delphi 录音制作 wav 文件
//使用窗口接受音频设备发出的消息:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm)...
DELPHI获取flash文件的影片时长,原始尺寸,帧数等信息
感谢“温柔刀客”的努力,找到一篇不错的Flash编程文章,也感谢文章的作者,解决了我一个困惑了很久的问题,呵呵~~~unit uFlash;interfaceuses windows, SysUtils, Classes, Zlib;t...
怎样在Delphi中屏蔽Flash控件的右键弹出菜单
关于如何屏蔽Flash控件的右键菜单的问题有很多人问过,也有很多人回答,基本上都是说拦截 Application消息,或者继承一个新的控件,重载MouseDown消息,第一种解决办法,好象是简单 些,...
DELPHI获取flash文件的影片时长,原始尺寸,帧数等信息
感谢“温柔刀客”的努力,找到一篇不错的Flash编程文章,也感谢文章的作者,解决了我一个困惑了很久的问题,呵呵~~~unit uFlash;interfaceuseswindows, SysUtils, Classes, Zlib;typeTBitWidth ...
delphi之声音资源(*.res)的编译方法
声音文件为wav格式第一步:用记事本建立一个rc文件.例如:my.rc,内容如下:sound wave music.wav 其中sound为资源名称,是以后使用时要调用到的名称,wave为资源类型,music.wav为一个已存在的wav...
delphi中如何捕获MediaPlayer播放的视频中的每一帧 ?
procedure TForm1.Button1Click(Sender: TObject);varBitmap : TBitmap;ImageRect : TRect;ImageWidth : Integer;ImageHeight : Integer;Position : Integer;i : Integer;beginif OpenDialog1.E...
delphi使用MCISendString播放背景音樂
delphi使用MCISendString播放背景音樂播放文件為.MID文件: 在單元接口引用 mmsystem 單元. //播放音乐 MCISendString('OPEN e:.MID TYPE SEQUENCER ALIAS NN', '', 0, 0); MCISendString('PLAY...
delphi实现音频传输
语音聊天在今天是一个很普通的话题,小厮写了一段音频采集、网络传输和播放的程序,实现和简单的语音聊天,但是语音信息没有经过很好的压缩,所以,在局域网外,由于网速问题,效果可能不会很理...
Delphi 蜂鸣器发声
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; Button...
delphi 把MP3做背景音乐
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, MPlayer;typeTForm1 = class(TForm)Button1: TButton;MediaPlayer1:...
Delphi解析MP3 tag
unit mp3_id3v1; interface uses Windows,Classes,SysUtils; type TID3v1Rec = packed record Tag : array[0..2] of Char; Title : array[0..29] of Char; Artist : array[0..29] of Char; Albu...
delphi DirectX简单应用
uses DirectSound,Direct3D9,D3DX9;//DirectX截屏函数procedure CaptureScreen(Const FileName: string);varBitsPerPixel: Byte;pD3D: IDirect3D9;pSurface: IDirect3DSurface9;g_pD3DDevice: I...
meta 12小时前0
学习了,金智维好像用的这个语言jiaqy 昨天0
学习了平淡 2天前0
已经私发给您了,请查收盘山秃鹫 3天前0
付费了,但找不到阅读入口yl340122 15天前0
学习学习ZHUBAORUI 18天前0
我主要是用这个工具的搜索功能flow106 20天前0
跟网上的资料一样吗,好奇流浪 24天前0
有源码可以下载