- 博客(174)
- 资源 (29)
- 收藏
- 关注
原创 从Delphi开始学Cocos2dx-3.0[7]:瞬发动作
bool THelloWorld::onTouchBegan(TTouch* touch, TEvent* event){ auto sprite = (TSprite*)(this->getChildByTag(1000)); static int nTempIdx = 0; switch (nTempIdx++) { case 0: // 水平翻转 { sprit
2013-12-23 19:26:51 1095
原创 从Delphi开始学Cocos2dx-3.0[6]:拖拽一个精灵
网上随便找了 一张图,命名成Ball.png然后在精灵里面分配一个 TAG给它 // 添加一张精灵图片 auto sprite = TSprite::create("ball.png"); // 设置位置到正中间 sprite->setPosition(g_ClientMidPoint); // 添加到H
2013-12-23 11:43:59 3495 6
原创 从Delphi开始学Cocos2dx-3.0[5]:鼠标按下移动弹起与单点触摸
在Delphi 里面的三个基本的鼠标操作事件是procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);beginend;procedure TForm1.FormMouseMove(Sender: TObject; Shi
2013-12-21 16:17:24 2678
原创 从Delphi开始学Cocos2dx-3.0[4]:定义一个Delphi头,方便今后编程
// 2013年12月21日14:21:49// #pragma once#include "cocos2d.h"#include "ccTypes.h"#include "Box2D/Box2D.h"// 对象#define TObject cocos2d::Object// 节点#define TNode cocos2d::Node//
2013-12-21 14:20:21 2876
原创 从Delphi开始学Cocos2dx-3.0[3]:CCNode 可视组件的头
几乎Cocos中所有能看得到的类, 都是从 CCNode 继承下来的. 如同Delphi中的 TControlCCNode 类的属性属性描述默认值virtual const Point& getPosition() const;位置 virtual float getScale() const;缩放 vir
2013-12-13 21:00:59 1753
原创 从Delphi开始学Cocos2dx-3.0[2]:TObject 与 CCObject 看继承关系
VCL 中很出名的继承关系图Vcl核心类关系图,图中标星号的就是核心类。 *TObject |_____*TPersistent |______*TComponent
2013-12-13 20:35:54 2088
原创 从Delphi开始学Cocos2dx-3.0[1]: AppDelegate 与 Application
cocos里面的 AppDelegate 和 Director 就相当于 Delphi中的 Applicationclass AppDelegate : private cocos2d::Application{public: AppDelegate(); virtual ~AppDelegate(); /** @brief APP启动结
2013-12-11 13:53:58 2120
原创 Delphi REST 服务器返回UTF16编码转换成正常string
{"result":["{\"ServerCount\":2,\"Servers\":[{\"ServerName\":\"\u672C\u573014\u670D\",\"ServerIP\":\"172.16.228.14:8000\"},{\"ServerName\":\"\u7535\u4FE1\u6D4B\u8BD5\u670D\",\"ServerIP\":\"12.23.34.45:
2013-11-21 16:26:15 3461
原创 Raknet 简单封装 For Delphi
具体代码在 :http://download.csdn.net/detail/warrially/6414989 有兴趣的可以看看.第二版 http://download.csdn.net/detail/warrially/65346532019年3月 不知道为什么 CSDN 要收费了. 把代码放到git上了https://gitee.com/warria...
2013-10-17 20:30:46 1353
转载 Raknet 全部系列下载
Index of /raknet/downloads Name Last modified Size Description Parent Directory - IrrlichtRakNetDemo.zip 2012-05-10 19:31 5.4M Lobby2Cli
2013-10-15 19:58:01 2947 3
转载 Delphi 与 VC 共享接口和对象
转自http://www.cnblogs.com/sephil/archive/2012/11/18/shareobj.html我经常会用 Delphi 写一些工具和应用,为了扩展方便,大部分都会做成插件形式。迫于某些原因,我的插件不得不用其他开发工具来完成,比如 VC。于是有个大问题需要解决:如何让 D 和 VC 互相通信、互相操作。最普遍的做法,
2013-10-12 16:02:21 852
转载 delphi 在多线程中使用 CreateOleObject 导致失败
原帖地址http://bbs.csdn.net/topics/390481350解决办法 procedure DisplayVideoInfo; var wmi, objs, obj : OleVariant; enum : IEnumVariant; value : Cardinal; beg
2013-09-24 14:39:03 3044
转载 Delphi 日志输出记录类
{ ******************************************************* }{ 单元名: UntTIO.pas }{ 创建日期:2006-1-14 23:20:08 }{ 创建者 马敏钊 QQ 22900104 }{ 功能: I/O单元 }{ }{ ***********************************
2013-09-12 11:19:26 5247
原创 strncpy 与 lstrcpyn 的区别
char s1[13] = {"1234567890ab"};char s2[12] = {0};char s3[12] = {0};strncpy(s2, s1, sizeof(s2)-1); //这个函数需要减1lstrcpyn(s3, s1, sizeof(s2)); //这个函数不需要减1
2013-09-06 15:44:10 2939
原创 驱动摸索[4]:配置端口和WinDbg
创建一个快捷方式到你习惯的地方DDK目录\windbg.exe -b -k com:pipe,port=\\.\pipe\com_1,baud=115200,reconnect -y关闭虚拟机. 进入虚拟机设置
2013-07-30 10:27:36 1254
原创 驱动摸索[3]:安装虚拟机并设置引导
VM 虚拟机下载 : http://pan.baidu.com/share/link?shareid=3073139392&uk=2131000296JV695-DR0D3-LZUC0-H8852-CAWJ4安装就不多说了. 安装好以后打开命令控制台,输入 bcdedit /copy {current} /d "DebugWin7"然后打开 msconfig
2013-07-30 10:18:41 790
原创 驱动摸索[2]:安装EasySYS
http://pan.baidu.com/share/link?shareid=2556902715&uk=2131000296下载看雪工具.zip打开 release 里面的 Easy.exe设置好作者VS版本工程名称保存路径DDK版本 (我的是 7600.16385.1 这里先选择 760.16385.0 , 会弹出提示
2013-07-29 21:01:33 1562
原创 驱动摸索[1]:安装WDK
http://pan.baidu.com/share/link?shareid=2556902715&uk=2131000296我用的是WIN7 所以下载 7600_1 WinDDK安装到 D盘 根目录下
2013-07-29 20:54:51 716
翻译 Delphi 追加内容到文本.
procedure AppendLog(szFilename:string; szLogText:string);var pMyFile : TextFile;begin Assignfile(pMyFile, szFilename); if FileExists(szFilename) then Append(pMyFile) else ReWrite(pMy
2013-07-20 18:55:38 2746
转载 Delphi 自带的 Base64 编解码函数
Delphi 自带的 Base64 编解码函数http://www.blogjava.net/nokiaguy/archive/2010/04/01/317138.html今天帮别人解决一个关于 Base64 编解码的问题,竟然发现 Delphi 自带了 Base64 编解码的单元,叫 EncdDecd,这名字很拗口而且不直观,估计这是一直很少人关注和知道的原因。这
2013-07-04 20:46:21 7069
转载 SQLSERVER2008 18456错误
http://www.cnblogs.com/496963524-zhangying/articles/2232599.html最近遇到个这个问题.. 百度搜18456错误几乎只能搜到一篇文章,并不是说结果条数,而是所有的文章都是转自一处。我也遇到了18456错误。我是这么解决的:1、以windows验证模式进入数据库管理器。
2013-06-08 14:06:22 795
原创 Cocos2d 摸索[5]: 容器的爸爸
cocos的容器 怎么有一种 VCL的感觉.来看init()中的一段代码 // Create a "close" menu item with close icon, it's an auto release object. CCMenuItemImage *pCloseItem = CCMenuItemImage::create( "Close
2013-04-26 19:17:06 686
原创 Cocos2d 摸索[4]: 定时器
先在 Public 设置一个定时器的函数,void myOnTimer(float fInterval);然后在 HelloWorld::init() 里面创建一个定时器bool HelloWorld::init(){/* ------ */ this->schedule( schedule_selector(HelloWorld::myOnTimer), /
2013-04-26 19:08:01 644
原创 Cocos2d 摸索[3]: 鼠标点击(手势触摸)事件
在 HelloWorld 类里面重写手势的虚函数class HelloWorld : public cocos2d::CCLayer{public: virtual bool ccTouchBegan(CCTouch *pTouch, CCEvent *pEvent); virtual void ccTouchMoved(CCTouch *pTouch, CCEvent *pE
2013-04-26 18:53:56 1577
原创 Cocos2d 摸索[2]: 第一个工程. HelloWorld
现在开始第一个工程我们先打开2008工程文件添加一个新项目接下来变成这样6 直接运行是这样子的
2013-04-26 18:45:39 709
原创 Cocos2d 摸索[1]: 安装Cosos2d
下载地址http://pan.baidu.com/share/link?shareid=421522&uk=2131000296本人暂时使用的是VS2008, 所以只能配套这个版本, 2.0x 2.04下载安装后, 先执行 build-win32.bat 编译一遍, 花费时间还挺长.编译结束以后, 执行 install-t******.bat
2013-04-26 15:29:29 1101
转载 转. XE2中的TZip类移植到 XE中
unit XE_ZipFile;interfaceuses SysUtils, IOUtils, Generics.Collections, Classes;type /// Zip Compression Method Enumeration TZipCompression = ( zcStored = 0, zcS
2013-04-24 10:13:55 1557
转载 Delphi 中 listview 根据文件扩展名 设置系统图标
var FileInfo : SHFILEINFO; wwImageList:THandle;begin// 第一步, 绑定系统图标 wwImageList:=SHGetFileInfo('c:\',0,FileInfo,sizeof(FileInfo),SHGFI_SYSICONINDEX or SHGFI_SMALLICON); ImageListListView.Han
2013-04-22 11:39:01 1917 1
转载 Inno setup 常用修改技巧
http://www.cnblogs.com/awei0611/archive/2010/06/09.html1 、如何让协议许可页面默认选中我同意按钮 [code]procedure InitializeWizard();beginWizardForm.LICENSEACCEPTEDRADIO.Checked := true;end;2、自定义安装程序右上
2013-01-26 14:38:38 2241
转载 C++Builder 中如何修改服务描述
http://blog.csdn.net/jpexe/article/details/4296955// ---------------------------------------------------------------------------// 设置服务的描述void TService1::SetDescription(WideString Desc){
2013-01-17 16:12:07 1395
原创 DIY Delphi 半透明窗体(2)
写文章的时候 脑子有点乱 unit uMainForm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, GDIPOBJ,GDIPAPI,GDIPUTIL;type TForm1 = class(TForm)
2013-01-10 15:40:14 1151
原创 DIY Delphi 半透明窗体 (1)
写这篇文章的时候脑子有点乱.. unit xDrawForm;interface uses Windows, Messages, SysUtils, Classes, Controls, Forms, Menus, Graphics,GDIPOBJ,GDIPAPI,GDIPUTIL;type TwwGDIImage = class public
2013-01-10 15:37:55 2499
转载 DLL里面socket
http://hi.baidu.com/game_base/item/f617e4136414148889a956ed本文简单介绍了当前Windows支持的各种Socket I/O模型,如果你发现其中存在什么错误请务必赐教。 一:select模型 二:WSAAsyncSelect模型 三:WSAEventSelect模型 四:Overlapped
2012-12-18 10:19:06 2328
原创 C++Builder ListView 单元格点击菜单
C++Builder 的 ListView 实现单元格菜单首先, ListView->RowSelect = true;ListView->ViewStyle = vsReport;再 OnMouseDown的事件里面这样写// --------------------------------------------------------------------
2012-12-14 10:29:59 2008
转载 Delphi在Listview中加入Edit控件
原帖 : http://www.cnblogs.com/hssbsw/archive/2012/06/03/2533092.html Listview是一个非常有用的控件,我们常常将大量的数据(如数据库里的数据)导入到Listview中,有的时候我们需要编辑Listview里的数据,而它并不提供编辑的功能,怎么样才能使它具有编辑功能呢?你可以试试下面这种方法。
2012-12-11 08:47:07 4111
转载 【转】Delphi 不使用自带模板创建服务
program Project1;uses Windows, WinSvc;const ServiceName: pchar = 'SnowWings Service'; DisplayName: pchar = 'Skysword'; Description: pchar = '雪羽服务器控制台';var Status: TServiceSt
2012-12-05 10:41:28 596
翻译 delphi 的 GL.pas opengl
(*-- Procedure declarations, constant definitions and macros for the OpenGL component.--*)unit GL;interfaceuses Windows;type GLenum = Cardinal; PGLenum = ^GLenum; G
2012-11-19 19:17:33 1885
翻译 delphi 的 Glut.pas
unit Glut;interfaceuses GL;type PInteger = ^Integer; // These two really suck, but I didn't see any PPChar = ^PChar; // other or better way to solve the glutInit
2012-11-19 19:15:04 1727
翻译 Delphi 字符串加密算法 (基于DES)
unit xDes; interface uses SysUtils; type TKeyByte = array[0..5] of Byte; TDesMode = (dmEncry, dmDecry); function EncryStr(Str, Key: String): String; function DecryStr(Str, Key: Stri
2012-10-19 11:26:34 8868 1
Lua 版 Excel 工具
2018-01-24
Sublime插件--- C++代码自动格式化
2016-09-21
Raknet for Delphi 简单封装2
2013-11-11
Raknet 4.0
2013-10-15
GDI+相关应用例子源代码
2009-07-14
税率计算delphi代码
2009-06-27
乒乓台技术教程chm 日文版part3
2009-06-10
乒乓台技术教程chm 日文版part2
2009-06-10
乒乓台技术教程日文版chmpart1
2009-06-10
PHOTOVIEWER
2009-06-01
GIFImage22
2009-06-01
TRegware 4.02
2009-05-31
AviWriter 带demo
2009-05-31
FlashSDK230
2009-05-31
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人