随笔分类 - delphi
delphi
摘要：替换 (DSPackDir)\src\Directx9目录下同名文件。并考至(Delphi2007)\lib下。
(DSPackDir)\src\目录下Directx9和DSPack两个文件夹考至(Delphi2007)\source下。
打开Delphi2007的Tools -> Options窗口,在Environment Options -> Delphi Options -> Libray - Win32的Browsing Path属性中追加$(BDS)\source\DirectX9;$(BDS)\source\DSPack .
阅读全文
摘要：但是在windows7,windows server 2008 上，报 ‘xxx’ is not a valid date and time 错误
后来发现不同操作系统的默认的 短日期样式 是不同的
winxp,win2003 默认短日期样式是 xxxx-xx-xx
windows7,windows server 2008 默认短日期样式是 xxxx/x/xx
可以通过 控制面板---->区域设置------->日期----->短日期样式 查看
阅读全文
摘要：问：webbrowser.visible 怎么无效啊？
答：首先，webbrowser的visible属性的意思是：浏览器窗口是否可见。
其次，如果：你是要实现隐藏的功能可以用left和top属性将其移出承载容器之外，要显示之时在将它移会原位置即可。
阅读全文
摘要：';' not allowed before 'ELSE' ElSE前不允许有“;”
'' clause not allowed in OLE automation section 在OLE自动区段不允许“”子句
'' is not a type identifier 不是类型标识符
'' not previously declared as a PROPERTY 前面没有说明PROPERTY
'GOTO ' leads into or out of TRY statement GOTO 进入或超出TRY语句的范围
clause expected, but found 要求子句，但出现
16-Bit fixup encountered in object file '' 在对象文件遇到16位修复
486/487 instructions n
阅读全文
摘要：1 - Add this paths to your search directory:
- (DSPackDir)\src\Directx9
- (DSPackDir)\src\DSPack
译：添加查询路径，否则在编译时发生找不到相关.dcu文件错误。操作：Delphi(菜单) Tools->Envioronment Options->Library. 在Library Path处添加。
2 - Compile DirectX 9 Package (DirectX9_Dx.dpk) from the "packages" directtory.
阅读全文
摘要：MediaEvent.FreeEventParams(EventCode, Param1, Param2);
if EventCode=EC_Complete then
begin
if MediaControlnil then
MediaControl.Stop;
if MediaSeeknil then
begin
CurrentPosition:=0;
MediaSeek.SetPositions(CurrentPosition,
AM_SEEKING_AbsolutePositioning,
EndPosition, AM_SEEKING_NoPositioning)
end
end
end
阅读全文
摘要：unit ServerMain; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IniFiles, ExtCtrls, bsSkinData, BusinessSkinForm, Menus, bsSkinMenus,sh...
阅读全文
摘要：下系统钩子（键盘钩子，鼠标钩子等等）已是我们最长用的手段，要做钩子程序就必须用到下面这几个函数使用动态链接库（dll)，即要实现全局系统钩子。这里就这几个函数的参数做一下详细的讲解。
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);var reg: TRegistry;begin reg := TRegistry.Create; reg.RootKey := HKEY_CLASSES_ROOT; {在注册表中添加我们虚拟的 .tst 格式, 并指定默认项的值是 TestFile} reg.OpenKey('.tst', True);...
阅读全文
摘要：delphi +flash TShockwaveFlash的使用
阅读全文
摘要：XPMENU只有一个源代码文件，所以安装是最简单的。 Componment->Install Componment选项。选择into new package. 在unit file name下输入那个源代码文件。在Package file name随便输入一个新名字，然后就一路确定就完成了。
阅读全文
摘要：有时候把Label的AutoSize属性设置为True，当窗体显示的时候，Label中的内容可能会显示不完全，只能把AutoSize设置为False，把Label调整成能显示出内容的大小。还有一种更简单的解决方法。把Form的Font属性进行如下设置：字体为宋体，字号为小五，字形为常规，字符集为“CHINESE_GB2312”，把Label的ParentFont设置为True即可！
阅读全文
摘要：AddShell（）源自于前一段时间有写的addsection（）新增区段代码，
在增加区段代码的基础上，追加了
1.修改启动入口点位置
2.增加一段壳头xor $50的代码function AttachStart-function AttachEnd
这一段代码是先填充，再被修改成合适原EXE的壳头
3.修改原启动代码入口点所在区段的段属性可写并进行xor $50运算加密
阅读全文
摘要：· 实现标记是DefineBits\DefineBitsJPEG2\DefineBitsJPEG3等JPG信息提取并保存为BMP、JPG及GIF格式。· 实现标记是DefineBitsLossless\DefineBitsLossless2等BMP信息提取并保存为BMP、JPG及GIF格式。· 实现标记是DefineSound等MP3信息提取并保存为WAV、MP3及E...
阅读全文
摘要：我用2009的idhttp获取网页内容 网页内容是字母或数字没问题，获取中文乱码
php网页上就输出2个汉字
我直接用get获取的
showmessage(idhttp.get('http://localhost/echo.php'));
相同代码放到2007就可以正确显示汉字，请高手帮忙看看2009下如何能转换成可以看得懂的汉字？
阅读全文
摘要：Flash 是 Macromedia 公司工具出品的著名网页动画和多媒体工具，这个矢量格式网页工具自推出以来，受到广泛的欢迎和应用，截止2000年6月的统计，Flash的用户达到2亿4千8百万，即大约91.8%的Web用户能够观看Flash动画[1]。
Flash动画是以SWF文件格式存放的，Macromedia 公司于1998年4月公布了SWF文件的格式，可参见http://www.openswf.org，并推出了Macromedia Flash FileFormat (SWF) SDK (本文以下简称SWF SDK)，用于开发者研制开发Flash动画即SWF文件的生成工具。SWF SDK中包含了SWF文件格式的说明文档、用Microsoft Visual C++开发的C++类(classes)以及一些范例[2]。
阅读全文
摘要：var vvsam:longword;
begin
vvsam:=dt[vbyte]*$1000000+dt[vbyte+1]*$10000+dt[vbyte+2]*$100+dt[vbyte+3]; //取数
result:=longword(vvsam shl vbitpos) shr (32-nbits); //移位取值
inc(vbitpos,nbits); //移位
inc(vbyte,vbitpos div 8); //移字节 定新字节
vbitpos:=vbitpos mod 8; //定新位
阅读全文
摘要：找过一些资料，正确的格式是：文件标志(24b): 未压缩(SWF)，压缩(CWF，版本6以上支持)版本号(8b) 文件长度(32b)帧大小(TWIPS，A TWIP seems to be 1/20 of a pixel)帧率(16b)：0.1-120有效，Frame delay in 8.8 fixed number of frames per second总帧数(16b)再后面是具体的帧...
阅读全文
摘要：要在Delphi中播放flash依赖于FlashActiveX控件，所以我们要先安装它。运行Delphi后，选择选单Component→Import ActiveX Control，找到SWFlash.OCX（或者Shockwaveflash.ocx) 文件进行安装。安装完成后，ActiveX面板里出现TShockwaveFlash控件，这是Delphi对FlashActiveX控件的封装，现在我们就可以用这个控件来播放Flash了。
阅读全文