媒体共46篇

delphi中如何判断MediaPlayer控件所播放的文件是否播放完毕?

利用TMediaPlayer控件的Mode属性就能够判断播放完毕时Mode属性的值为mpStoppedif MediaPlayer1.Mode=mpStopped thenbeginButtonGetnew.Click;end;
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06015

delphi 调节音量代码

unit UnitVolumeWin7;interfaceuses messages, Windows, Forms;/// <summary>/// 增大音量/// </summary>procedure VolumeUp;/// <summary>/// 减小音量/// </summary>...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0405

Delphi PlaySound(); 停止播放

 Delphi PlaySound(0, 0, 0); 停止播放
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05613

Delphi MediaPlayer1 播放avi 视频

delphitop.com 提示 本示例演示了TMediaPlayer组件的用法,假设表单上存在两个“打开”和“停止”按钮。注意:为了能够手动控制按钮,必须将“自动播放”设置为“false”。procedure TForm2.btO...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05211

Delphi ComObj调用wmplayer播放音乐

  uses System.Win.ComObj;varPlayer: olevariant;    Player := CreateOleObject('wmplayer.ocx.7');    Player.url := olevariant(UTF8Decode('123.mp3'));  &...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0448

Delphi MediaPlayer Android 下播放 MP4 的问题

开发环境:Delphi 10.3.1 社区版。测试环境:A. Android 5.0;B. Android 9.01. 进度条Delphi 官方带的例子里面,关于进度条的代码:procedure TForm1.Timer1Timer(Sender: TObject);begin ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0348

Delphi从内存(MemoryStream)使用WMP

【Delphi】从内存(MemoryStream)使用WMP(WindowsMediaPlayer)控件播放视频音频(Play Video with WMP from MemoryStream)关键字: MemoryStream、WMP、WindowsMediaPlayer、Play 、Load、 Del...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0605

Delphi 实现简易语音发音(基于TTS方式)

Delphi 实现简易语音发音(基于TTS方式)uses Comobj;procedure TForm1.Button1Click(Sender: TObject); var voice: OLEVariant; begin voice := CreateOLEObject('SAPI.Sp...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0658

delphi 播放声音 采用 异步方式,比较流畅

delphi 播放声音 采用 异步方式,比较流畅//声明:sndPlaySound(  lpszSoundName: PChar; {声音文件}  uFlags: UINT{播放选项}): BOOL;//uFlags 参数可选值:SND_SYNC = 0; {同步播放, ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0328

Delphi PlaySound()函数应用

function   PlaySound(pszSound:   PChar;   hmod:   HMODULE;   fdwSound:DWORD):BOOL;stdcall;   其中的fdwSound为播放方式,...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0347
Delphi TreeView – 自动给标题上加图片-Delphi编程技巧大全

Delphi TreeView – 自动给标题上加图片

当处理完TreeView控件树形结构的数据后,根据不同的树形节点Level,加上不同的图片。图片的ImageList已经放置好,并且TreeView的Images已经连上带有图片的ImageList。procedure TForm1.TreeView...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04911

DELPHI写的播放器核心代码,播放MP3无压力

DELPHI写的播放器核心代码,播放MP3无压力主窗口代码:unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialo...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05612

delphi MediaPlayer 实现录音

unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, MPlayer;typeTWavHeader ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03113

delphi 播放背景音乐

//播放.MP3文件:  uses  mmsystem; //開始播放: procedure TForm1.Button1Click(Sender: TObject); beginMCISendString('OPEN e:.mp3 TYPE mpegvideo alias ww'...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04710

delphi报警声音 Beep、MessageBeep 和 Windows.Beep

我的办法,增加一个timer 设置间隔100ms,通过timer的使能否,控制报警声音开关procedure TForm1.Timer1Timer(Sender: TObject);begin   Windows.Beep(1200+i_f,10+i_f);   ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0466

delphi 用DSPack播放视频

1. DSPack 2.3.4 安装一. 下载由于sourceforge最近不能访问,所以可以去 http://www.progdigy.com/ 下载。下载 http://www.progdigy.com/files/DSPACK234.zip 后,解压缩到一个目录(我用的是C:...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
07514

Delphi Vista以上系统的进程静音

单个进程的音量控制是从Vista系统中才开始支持的,所以此函数需要在Vista及以上的系统中使用。XP下面使用这个函数会导致系统全局静音。所以在XP下要使进程静音要使用Hook技术.Delphi XE&nb...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03613

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...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04614

delphi 录音制作 wav 文件

//使用窗口接受音频设备发出的消息:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm)...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0308
DELPHI获取flash文件的影片时长,原始尺寸,帧数等信息-Delphi编程技巧大全

DELPHI获取flash文件的影片时长,原始尺寸,帧数等信息

感谢“温柔刀客”的努力,找到一篇不错的Flash编程文章,也感谢文章的作者,解决了我一个困惑了很久的问题,呵呵~~~unit uFlash;interfaceuses   windows, SysUtils, Classes, Zlib;t...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
02610

怎样在Delphi中屏蔽Flash控件的右键弹出菜单

 关于如何屏蔽Flash控件的右键菜单的问题有很多人问过,也有很多人回答,基本上都是说拦截 Application消息,或者继承一个新的控件,重载MouseDown消息,第一种解决办法,好象是简单 些,...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
02913

DELPHI获取flash文件的影片时长,原始尺寸,帧数等信息

感谢“温柔刀客”的努力,找到一篇不错的Flash编程文章,也感谢文章的作者,解决了我一个困惑了很久的问题,呵呵~~~unit uFlash;interfaceuseswindows, SysUtils, Classes, Zlib;typeTBitWidth ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
02813

delphi之声音资源(*.res)的编译方法

声音文件为wav格式第一步:用记事本建立一个rc文件.例如:my.rc,内容如下:sound wave music.wav 其中sound为资源名称,是以后使用时要调用到的名称,wave为资源类型,music.wav为一个已存在的wav...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05210

delphi中如何捕获MediaPlayer播放的视频中的每一帧 ?

procedure TForm1.Button1Click(Sender: TObject);varBitmap : TBitmap;ImageRect : TRect;ImageWidth : Integer;ImageHeight : Integer;Position : Integer;i : Integer;beginif OpenDialog1.E...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06410

delphi使用MCISendString播放背景音樂

delphi使用MCISendString播放背景音樂播放文件為.MID文件: 在單元接口引用 mmsystem 單元. //播放音乐 MCISendString('OPEN e:.MID TYPE SEQUENCER ALIAS NN', '', 0, 0); MCISendString('PLAY...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06611

delphi实现音频传输

语音聊天在今天是一个很普通的话题,小厮写了一段音频采集、网络传输和播放的程序,实现和简单的语音聊天,但是语音信息没有经过很好的压缩,所以,在局域网外,由于网速问题,效果可能不会很理...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0435

Delphi 蜂鸣器发声

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; Button...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03611

delphi 把MP3做背景音乐

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, MPlayer;typeTForm1 = class(TForm)Button1: TButton;MediaPlayer1:...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04212

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...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0608

delphi DirectX简单应用

uses DirectSound,Direct3D9,D3DX9;//DirectX截屏函数procedure CaptureScreen(Const FileName: string);varBitsPerPixel: Byte;pD3D: IDirect3D9;pSurface: IDirect3DSurface9;g_pD3DDevice: I...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0438