dropme-优快云博客

转载 Yii在页面中插入meta信息

Yii::app()->clientScript->registerMetaTag('keywords','关键字');Yii::app()->clientScript->registerMetaTag('description','一些描述');

2012-10-31 09:46:06 2572

uses TypInfo;{以 TAlign 为例}procedure TForm1.Button1Click(Sender: TObject);var enum: TAlign; i: Integer; str: string;begin Memo1.Clear; for enum := Low(TAlign) to High(TAlign) do begin i := ord(enum); //Integer(enum)

2011-04-08 09:30:00 2867

转载判断Webbrowser是否加载完成

var Form1: TForm1; glpDisp: IDispatch = nil;implementation{$R *.dfm}procedure TForm1.EmbeddedWB1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);begin if (glpDisp <> nil) and (glpDisp = pDisp) then

2011-04-02 09:35:00 4799

原创解决Webbrowser加载Flash后，方向键等冲突

主窗体上放一个ApplicationEvent控件，OnMessage事件中这么写： procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);const StdKeys = [VK_TAB, VK_RETURN, VK_BACK]; { standard keys } ExtKeys = [VK_DELETE, VK_LEFT, VK_RIGH

2011-03-16 14:37:00 5253

原创 ReadDirectoryChangesW的用法

Retrieves information that describes the changes within the specified directory. The function does not report changes to the specified directory itself. To track changes on a volume, see change journals.SyntaxBOOL WINAPI ReadDirectoryChangesW(<b

2010-11-26 10:41:00 13207

原创 RemObjects系列产品介绍

听说RemObjects很久了，这阵子打算用，开始学习，先看看RemObjects有哪些产品： 1.RemObjects SDK RemObjects SDK是一个多次获奖的跨平台的远程框架，它可以让创建需要通过网络通信和交换数据的应用程序的开发变的更加简单。该SDK有以下特点： a.跨平台：可以支持windows、linux和mac os平台，可选择的工具有.net,mono,delphi,objective-c,xcode；<br /

2010-05-31 13:54:00 3734

原创原创的一份游戏创意案

AFK《魔兽》以后，尝试了很多网游，像《剑网3》、《永恒之塔》、《DNF》什么的，都没找到感觉，于是把目光投向到单机游戏，先重温了一下《奥尼》（真TMD经典啊），然后《无主之地》、《阿凡达》什么的都玩了下（FPS+RPG类型的），突然很想自己写点东西，虽说咱不是专业策划，可好歹也设计过3款软件、一个网站和一个棋牌游戏。写着玩吧，哥的人生就是泡在茶杯里的茶叶——一直都在杯

2010-02-02 01:43:00 6721 2

转载从《梦幻西游》看网游玩家分类

前言《梦幻西游》（以下简称梦幻），是目前国内最成功的大型多人在线网络游戏了，作为一款成功的作品，导致其成功的条件是很多的，本文也不想对方方面面的成功条件做详细的汇总和分析，毕竟那是记者和枪手们更擅长的工作，作为网络游戏设计行业的一名普通从业者，笔者只想从一个小角度来看梦幻的成功因素之一，希望能够对国内目前目前众多的游戏开发人员起一个参考作用。在笔者看来，梦幻的成功因素之一，是保证了各种类型游戏玩家

2009-12-25 12:27:00 4220 2

原创用金山词霸进行屏幕取词

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, XDICTGRB_TLB;type TForm1 = class(TForm, IXdictGrabSink) procedure

2009-09-24 15:22:00 3147

原创 record, packed record和变体记录

//Integer类型刚好是4个字节,ShortInt类型是1个字节，但是Windows中内存是4字节分配， //所以这里其实还是4个字节，用SizeOf可以看到这个record的大小是8字节，这样虽然浪 //费了空间，但是加快了速度(Windows内存分配中的边界对齐原理) TPerson = record Age: Integer; Sex: Shor

2009-09-17 16:37:00 4101

原创 WinSock学习笔记6：IOCP完成端口模型

unit Unit1;interfaceuses WinSock2, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type //单IO数据结构 LPER_IO_OPERATION_DATA

2009-09-17 11:59:00 1355

原创 Winsock学习笔记5：I/O Overlapped （重叠）模式

unit Unit1;interfaceuses WinSock2, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TWorkThread = class(TThread) priv

2009-09-15 17:10:00 1262

原创 WinSock学习笔记4：WSAEventSelect模型

WSAEventSelect类似于WSAAsycnSelect，区别就是当Socket上有“事件”时，传递一个Event而不是Windows消息。unit Unit1;interfaceuses WinSock2, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia

2009-09-10 12:18:00 1818

原创 WinSock学习笔记3：Select模型

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, WinSock, ExtCtrls;type TWorkThread = class(TThread) pr

2009-09-09 11:21:00 1736

原创 Winsock学习笔记2：WSAAsyncSelect模型

共有五种类型的套接字I/O模型，可让Winsock应用程序对I/O进行管理，它们包括： select（选择）、WSAAsyncSelect（异步选择）、WSAEventSelect（事件选择）、overlapped（重叠）以及 completion port（完成端口）。WSAAsyncSelect（异步选择）是最简单也最好理解的模式，因为用这个模式你都不需要明白多线程的编程知识~

2009-09-08 16:18:00 2464

原创 Winsock学习笔记1：Winsock基本函数

var WSData: WSAData; ServerSocket: TSocket; ClientSocket: TSocket; LocalAddr: TSockAddrIn; ClientSocketAddr: TSockAddrIn; ClientSocketAddrLen: Integer; SocketMode: Integer;b

2009-09-08 15:38:00 1506

原创 Delphi颜色的表示

//全以红色举例：//1. RGB 模式：Self.Color := $0000ff; //不过和HTML、PhotoShop、FireWorks中的 #ff0000 是完全反的，应该叫 BGR。//2. RGB 分值，譬如：Self.Color := RGB(255,0,0);//3. Delphi 中的标准模式：Self.Color := $000000ff;//其中低3位字节

2009-08-31 18:02:00 3285

原创不规则窗体小技巧

1.移动没有标题栏的窗体在任何控件的OnMouseDown事件中加入以下代码： if (Button = mbLeft) then begin ReleaseCapture; Self.Perform(WM_SYSCOMMAND, $F012, 0); end; 2.创建圆角矩形窗体 procedure TForm1.F

2009-08-31 17:52:00 730

原创学习使用C#中的线程(1)

结束线程调用Abort()方法可以立刻结束线程，这点和delphi不太一样，delphi调用线程的Terminate()方法，只是设置结束标志，是要等线程中的代码运行完以后才结束的，要立刻结束线程，必须用While()循环做判断。线程中访问界面（方法一） VS2005中在线程代码中是不能直接访问界面的，最简单的一个方法是

2008-01-30 17:36:00 707

转载多线程编程

Question/Problem/Abstract: Ever wanted to fire up some threads in your application, let them do some time consuming stuff and then report the results to the user? This caused some synchronisati

2006-09-12 13:22:00 1306

转载浅谈Object Pascal的指针

大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时，这种说法也让很多人产生误解，似乎只有C语言的指针才能算指针。Basic不支持指针，在此不论。其实，Pascal语言本身也是支持指针的。从最初的Pascal发展至今的 Object Pascal，可以说在指针运用上，丝毫不会逊色于C语言的指针。　　以下内容分为八个部分，分

2006-09-07 15:09:00 1008

转载接口小论

完成一个功能时用到观察者模式，将业务类的变化通知给外部的窗体，同时也通知给另一个类，假设为TTest，这个类继承自TInterfaceObject。窗体和TTest都实现了一个接口，因此业务类通过接口可以将变化通知给外部。感觉这个类层次应用得很好，但问题出现了，业务类用IInterfaceList管理这些接口，程序关闭时，IInterfaceList将所有的接口置为Nil，按以前的理解，实现接

2006-07-25 18:10:00 965

转载 Delphi事件的广播

明天就是五一节了，辛苦了好几个月，借此机会应该尽情放松一番。可是想到Blog好久没有写文章，似乎缺些什么似的。这几个月来在项目中又增长了许多经验，学到许多实际应用的知识。不如把一些比较有用的记录下来，供朋友们参考可好。我想到Delphi的事件，那可真是个方便的东西，初学者在窗体上拉几个控件，并指定它们的事件，写几句代码，立刻就得到他们想要的效果。可是事件在方便的同时也有一个不足之处，就是只能指

2006-07-25 16:51:00 1637

原创注册自定义URL协议

用过电驴的朋友都知道电驴有这么一个功能，在网页上点击电驴资源的链接，如果你的机器上安装了电驴，那么电驴就会自动启动，然后下载所选的资源。这些日子做项目的时候Boss刚好提了这么个需求，经一位同事指点，研究了一下，原来是酱子实现的。首先查看一下电驴资源的链接，可以看到全部是已ed2k开头的，比如这个：ed2k://|file|06527%E5%A5%87%E8%B6%A3%E5%A4%A

2006-05-29 16:40:00 7090 1

转载 DLL笔记

DLL笔记下面以DLL简单程序的测试，来展示DLL的用法和各种注意点：一个DLL程序： library Project2; uses SysUtils,Classes; {$R *.res} function Min(X, Y: Integer): Integer; stdcall; begin

2006-05-26 14:20:00 1035

dropme——事在人为