代码文件: -------------------------------------------------------------------------------- unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, MPlayer; type TForm1 = c...
//播放前先要用 BASS_Init 函数进行播放设备初始化 function BASS_Init( device: Integer; {指定输出设备, 第一个是 1、第二个是 2; -1 表示使用当前设备} freq: DWORD; {采样率, 一般是 44100} flags: DWORD;...
//声明: sndPlaySound( lpszSoundName: PChar; {声音文件} uFlags: UINT{播放选项} ): BOOL; //uFlags 参数可选值: SND_SYNC = 0; {同步播放, 程序须等到播放完毕才向下执行} SND_ASYNC = 1; {异步播放, 在函数返回之...
procedureTaboutBox.FormShow(Sender:TObject); begin //播放当前目录下的welcome.wav文件 sndplaysound('welcome.wav',snd_async); end; procedureTAboutBox.FormClick(Sender:TObject); begin //停止播放 sndplaysound('',snd_async); end;...
今天群里讨论对图片进行BASE64编码的问题就简单的写了下。 编码： procedureTForm1.btn1Click(Sender:TObject); var fs:TFileStream; ss:TStringStream; begin fs:=TFileStream.Create('1.jpg',fmOpenRead); ss:=TStringStream.Cr...
uses pngimage; {从 png 图片到十六进制字符串} function Png2Hex(png: TPngImage): string; var stream: TMemoryStream; begin stream := TMemoryStream.Create; png.SaveToStream(stream); SetLength(Result, stream.Size * 2); BinToHex(stream...
介绍 本文章实现了DelphiXE6在两个图片切换的时候实现翻书效果，实现这个效果需要使用到TSwipeTransitionEffect、TPathAnimation。 首先我们创建一个HD的FireMonkey工程，然后添加如下的控件：T...
by 菩提树下的杨过 http://yjmyzz.cnblogs.com/ ///将Bitmap位图转化为base64字符串 function BitmapToString(img:TBitmap):string ; var ms:TMemoryStream; ss:TStringStream; s:string; begin ms := TMemoryStream.Create; img.SaveToStrea...
type TGraphicFormat=(gfUnknown,gfBitmap,gfJpeg,gfPng,gfGif,gfMetafile,gfTga,gfPcx,gfTiff,gfIcon,gfCursor,gfIff,gfAni); ///summary检测图片格式/summary ///params ///paramname="AStream"要检测的图片数据流/param ////params ///retu...
支持#RRGGBB样式的Web字符串颜色格式的颜色值和TColor之间进行相互转换，从Web颜色格式转换为TColor类型的值时，支持省略前面的#号。 type TRGBAColor=record caseIntegerof 0: (Red,Green,Blue,Alpha:Byte...