myamanda

摘要： 通常在DELPHI下我们不怎么用到指针尤其是函数的指针，但有时比如我们要实现一个回调这样的功能就需要用函数指针做为参数进行传递了。 首先定义函数的指针类型：比如 Type TfunctionPointer=function (myParam:integer):string; 其次定义具体函数的指针变量，比如: var tmpfunc:TfunctionPointer; 然后定义具体的函数，注... 阅读全文

摘要： 视频聊天软件的关键技术在于采集视频，并实时传输给聊天软件在线的人。对于视频的采集，这里采用微软公司的关于数字视频的一个软件包 VFW（Video for Windows）。相信很多人对它都很熟习，VFW能使应用程序通过数字化设备从传统的模拟视频源得到数字化的视频剪辑，VFW的一个关键思想是播放时不需要专用硬件。为了解决数字视频数据量大的问题，需要对数据进行压缩，而VFW引进了AVI的文件标准。该标... 阅读全文

摘要： 微软所提供的开发工具中DirectX 波形声音重放设备是为支持在Windows 95 和Windows NT 中开发游戏和交互媒体应用程序而设计的。 DirectSound 和 Direct3DSound允许你在同一个三维空间中同时运行多个声音文件和移动声音源。只要有可能DirectX ，将充分利用声音加速设备来改善运行状况和减少CPU的使用。但这并不是说你可在三维程序空间运行、编译充斥着大... 阅读全文

摘要： ---- 一、材料的制作 ---- 首先，我们选择几篇文章，这里我们选择马丁路德金、林肯和里根的演说，每一篇文章分为若干句，在制作声音文件时，记下每个句子的开始时间和结束时间，然后将其记到一个数据表中，这个表有如下字段：NO、TEXT、STARTTIME,分别表示每句序号、内容、开始时间。 ---- 二、 界面的制作 ---- 在DELPHI中创建一个新工程，在FORM中放入多媒体控件，RTF编辑... 阅读全文

摘要： 在Delphi开发环境中，文字的输出效果一般都是头上脚下的"正统"字符，如何输出带有一定倾斜角度的文字以达到特殊的显示效果呢？笔者在制作公章辅助设计软件过程中，通过Windows图形设备接口函数实现了文字呈辐射状分布的功能。　　Windows图形设备接口(Graphics Device Interface)是Windows系统中的图形核心模块，以GDI.EXE形式提供给开发者使用。Windows中... 阅读全文

摘要： 解决方法方法一：使用API函数ImageList_Write和ImageList_Read。二者都需要指定一个类型为IStream的参数，前者的作用是将指定句柄的图像列表保存到类型为IStream的二进制流中；后者是从类型为IStream的二进制流中读出原先保存的图像列表，并且返回指向这个图像列表的句柄。IStream是一个OLE对象，它在Delphi中的声明为TStreamAdapter = c... 阅读全文

摘要： 在收发电子邮件时，由于双方的内码不一致或者操作系统有差异，经常会出现乱码。有人就提出了一种解决的途径，即在画笔等图像编辑软件里输入，再存为图片，然后以图像形式发送邮件。但是在图像编辑软件里输入文字总有这样那样的不便之处，而直接把文本文件转换成图像的软件又不多见，下面我们就“自己动手，丰衣足食”，用Delphi编程来实现它。　　为了保证跨中英文平台使用，我们必须在程序中自带字... 阅读全文

摘要： 大家或许都曾遇到过这样的情况：发现一幅图片或者某个图标上有一种你很喜欢的颜色，但你却无法用其它软件得到该颜色的RGB颜色值。其实如果你懂得一点Delphi的编程知识，要实现这一功能很简单。　　在Delphi中调用WMEraseBkng()结合canvas对象中的“点”操作——pixels[x,y]，便可以轻松得到屏幕上点坐标的颜色值，其具体原理是这样... 阅读全文

摘要： JPEG图像文件以高压缩比和高图像质量著称，市面上的图库光盘中的图像文件大都是JPEG格式的。怎样从一大堆JPEG文件中查找合适的图像呢？使用JPEG文件的缩览图就是其中方法之一。 　　在PhotoShop 4.0(或以上版本)的打开文件对话框中，当打开JPEG文件时，PhotoShop很快把它的缩览图显示出来。为什么PhotoShop能这么快地显示出JPEG文件的缩览图呢？ 　　原来PhotoS... 阅读全文

摘要： 下面的例子把文本旋转45度：procedure TForm1.Button1Click(Sender: TObject);varlf : TLogFont;tf : TFont;beginwith Form1.Canvas do beginFont.Name := 'Arial';Font.Size := 24;tf := TFont.Create;tf.Assign(Font);GetObjec... 阅读全文