随笔分类 -  Delphi

1 2 下一页
两个flood attack的代码
该文被密码保护。
posted @ 2014-02-14 12:02 shuaixf 阅读(3) 评论(0) 推荐(0)
Synchronizing Threads and GUI in Delphi application
摘要：Synchronizing Threads and GUI See More About delphi multithreading tthread class user interfa... 阅读全文
posted @ 2014-01-11 17:50 shuaixf 阅读(1505) 评论(0) 推荐(0)
Four Ways to Create a Thread
摘要：Blaise Pascal Magazine Rerun #5: Four Ways to Create a Thread This article was originally written for the Blaise P... 阅读全文
posted @ 2014-01-10 22:32 shuaixf 阅读(2615) 评论(0) 推荐(0)
自定义hint框
摘要：unit Danhint;interfaceuses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs;type THintDirection = (hdUpRight, hdUpLeft, h... 阅读全文
posted @ 2012-12-22 01:23 shuaixf 阅读(302) 评论(0) 推荐(0)
VirtualTreeview 使用要点
摘要：Virtual Treeview是一套Delphi下优秀的VCL控件，代码质量高，使用灵活、功能强大、性能非常好，可以用于表达Treeview和表格类数据。它的代码现在托管在google code上。 这套控件使用了很久了，非常满意其表现，之前一直使用V4版，现在V5正式发布了，新版花了几年时... 阅读全文
posted @ 2012-12-20 22:40 shuaixf 阅读(1627) 评论(0) 推荐(1)
VirtualTreeview 参考
摘要：很好用的一个列表控件，可以用来代替Delphi自带的ListView和TreeView，而且也一直在更新，目前已经支持最新的XE2官方网站：http://www.soft-gems.netSVN地址：http://virtual-treeview.googlecode.com/svn/trunk基本... 阅读全文
posted @ 2012-12-20 22:33 shuaixf 阅读(608) 评论(0) 推荐(0)
Delphi多媒体设计之TMediaPlayer组件（七）
摘要：AVI视频用TMediaPlayer播放AVI视频，选择AVI文件，并调用Play方法（或者点击Play按钮），如果使用默认的MediaPlayer设置，将会出现一个单独的窗口播放AVI视频。如下图：也可以设置TMediaPlayer的Display属性为任何窗口组件（Windowed component），视频播放将会在这个组件的客户区（client area）中出现。例如，在窗体上有一个pnl1的面板，想在这个pnl1面板上显示AVI视频，这时，应该按下面的代码设置Display属性：?1mp1.Display := pnl1;当AVI播放时，它将显示在面板中。如果视频大于面板矩形，视频将 阅读全文
posted @ 2012-12-17 14:01 shuaixf 阅读(376) 评论(0) 推荐(0)
Delphi多媒体设计之TMediaPlayer组件（六）
摘要：CD音频（CD Audio） TMediaPlayer播放CD音频相当简单。要放CD，只需简单地改变DeviceType属性为dtCDAudio即可，并点击Play按钮（或调用Play方法）。 掌握CD音频设备程序设计最困难的是用于CD中不同的时间格式。用户将使用TMSF（time, minut... 阅读全文
posted @ 2012-12-17 14:00 shuaixf 阅读(281) 评论(0) 推荐(0)
Delphi多媒体设计之TMediaPlayer组件（四）
摘要：录制波形音频（Recording Wave Audio）录制波形音频不是像大家想象的直接，也许大家以为所要做的就是调用StartRecording方法。然而，因为TMediaPlayer的问题，它不是那么简单的。要录制波形文件，首先必须打开一个存在的波形文件，这个波形文件和所想要的新文件有相同的录制参数，然后开始录制新的波形文件，改变FileName属性为新文件名，然后保存文件，这有点笨拙，但其作用。例如，假设有一个叫做Test.wav文件，这个文件以8000Hz，采样率16位且为单声道的波形格式录制，这时可以像下面代码那样在按钮上点击录制波形音频：?12345678910111213proc 阅读全文
posted @ 2012-12-17 13:59 shuaixf 阅读(377) 评论(0) 推荐(0)
Delphi多媒体设计之TMediaPlayer组件（三）
摘要：设置输出音量（Setting the Output Volume）设置Wave文件输出设备的音量相当简单，但是必须利用Windows API进行。waveOutGetVolume和waveOutSetVolume函数分别用来获取音量和设置音量。音量以整型（integer）存储。高位字节（hight word）制定右声道音量设置，低位字节（low word）制定左声道音量设置。如果设备没有独立设置左、右声道音量的能力，则低位字节用于设置音量，高位字节被忽略。0值是无音量，16进制值$FFFF则是最大音量。下列代码为设置左右声道音量为50%，当然前提是要在uses列表中引用MMSystem单元。w 阅读全文
posted @ 2012-12-17 13:58 shuaixf 阅读(295) 评论(0) 推荐(0)
Delphi多媒体设计之TMediaPlayer组件（二）
摘要：Wave音频（Wave Audio）播放Wave音频是最基本的多媒体操作之一，它可能是最普通的，同步播放Wave文件代码如下：?1234567procedure TForm1.btn1Click(Sender: TObject);beginmpPlayer.Wait := True; { 同步播放}mpPlayer.FileName := 'test.wav';mpPlayer.Open;mpPlayer.Play;end;注意Wait属性设置为True，使得Wave文件同步播放。如果想紧接（back-to-back）着播放下一Wave文件，Wait属性也是很必要的。例如下面的 阅读全文
posted @ 2012-12-17 13:57 shuaixf 阅读(246) 评论(0) 推荐(0)
Delphi多媒体设计之TMediaPlayer组件（一）
摘要：VCL为简单多媒体操作提供MediaPlayer组件。该组件位于选项板组件System中。 该组件可播放Wave文件、MIDI文件、AVI视频等等。如果只是简单的播放Wave文件，常常使用上一讲中的PlaySound函数。也可以使用更复杂的MediaPlayer组件。 TMedi... 阅读全文
posted @ 2012-12-17 13:55 shuaixf 阅读(407) 评论(0) 推荐(0)
使用 windows media player
摘要：windows media player 控件在我们编程时经常要用到，但是有很多属性及方法却不知道该怎么使用。现以 wmp 9.0控件为例说说其在 Delphi 7.0 中常用的属性与方法（JavaScript中用法几乎完全相同）。 假设此控件名为wmp 属... 阅读全文
posted @ 2012-12-17 13:52 shuaixf 阅读(502) 评论(0) 推荐(0)
全屏显示
摘要：I guess you know you can run your browser in full screen using the F11 shortcut key. Windows Explorer also supports this feature.Running in full screen, where anapplication UI covers the entire screen, over the TaskBar and any Desktop/Tool bars, is handy when a user has a limited screen size (netboo 阅读全文
posted @ 2012-11-18 18:19 shuaixf 阅读(349) 评论(0) 推荐(0)
Delphi读写UTF-8、Unicode格式文本文件
摘要：数说明：f文件名、s写入或读取的文件内容、hs文件头、b是否读写文件头。 procedure SaveUTF(f: string; s: string; b: boolean = true);var ms: TMemoryStream; hs: string;begin if s = '... 阅读全文
posted @ 2011-10-26 19:53 shuaixf 阅读(467) 评论(0) 推荐(0)
FireMonkey初体验
摘要：前些天听说XE2都发布了，可悲的是我连XE都没用过， 论坛上都大吹能用来开发MAC应用，我倒是蛮有兴趣的，但也有一些怀疑，想试试真伪， 就立马上网找安装包 先提醒大家: 安装的苹果系统一定要Mac 10.6.6以上 也可以mac 10.6.* 版本利用官方的10.6.6升级包升级 虚拟机VM W... 阅读全文
posted @ 2011-10-09 13:37 shuaixf 阅读(1025) 评论(0) 推荐(0)
ZeosLib For Delphi XE (2011)
摘要：Delphi XE (2011) + 7 + PostgreSQL 9.0 ZeosLib Today I installed the newly released Embarcadero RAD Studio XE and I liked what it found.We also inten... 阅读全文
posted @ 2011-09-10 01:16 shuaixf 阅读(3570) 评论(1) 推荐(0)
Delphi与Word之间的融合技术
摘要：一、Delphi程序启动Word 采用CreateOleObjects的方法来启动Word，调用VBA代码，具体实现过程为： 首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序，如果存在，则直接连接，如果没有Word程序，则使用Cr... 阅读全文
posted @ 2011-09-08 22:44 shuaixf 阅读(307) 评论(0) 推荐(0)
vc delphi 回调函数具体说明和实例与分析 - 转
摘要：回调函数是一个很有用，也很重要的概念。 当发生某种事件时，系统或其他函数将会自动调用你定义的一段函数。回调函数在windows编程使用的场合很多，比如Hook回调函数：MouseProc,GetMsgProc以及EnumWindows,DrawState的回调函数等等，还有很多系统级的回调过程。... 阅读全文
posted @ 2010-06-03 03:04 shuaixf 阅读(784) 评论(0) 推荐(0)
ZLib 压缩和解压流
摘要：//流压缩procedure CompressStream(InStream, OutStream: TStream; ACompressLevel: TCompressionLevel);var CmpStream: TCompressionStream;begin InStream.P... 阅读全文
posted @ 2010-05-25 08:40 shuaixf 阅读(590) 评论(0) 推荐(0)

1 2 下一页