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...
functionImageMIMEType(Source:string):string; var Mem:TMemoryStream; Buffer:Word; i:integer; const IMG_CLASS_UNKNOWN='unknown'; IMG_CLASS_ERROR='error'; IMG_CLASS_JPEG='image/jpeg'; IMG_CLASS_BITMAP='image/bmp'; IMG_CLASS_GIF='image/gif'; IM...
unit Unit11; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw, ExtCtrls; type TForm11 = class(TForm) btn1: TButton; img1: TImage; wb1: TWebBrowser; btn2: TButton;...
uses jpeg; procedure ZipJPEG; var jpg: TJpegImage; bmp: TBitmap; begin jpg := TJpegImage.Create; bmp := TBitmap.Create; try jpg.LoadFromFile('c:\A.jpg'); bmp.Width := jpg.Width; bmp.Height := jpg.Height; bmp.Canvas.StretchDraw(bmp.Canvas.Cl...