Lewolf的专栏

这是一个基于Delphi XE2的OpenCL控件。其中使用到了Khronos Group Inc.的CL.pas单元。 OpenCL的设计思路和OpenGL类似，对于大部分Delphi的设计者来说，非常不习惯，而且使用起来并不十分方便 设计这个TOpenCL控件的目的不是替代OpenCL的原生使用方式，而是为了开发者能够快速对OpenCL进行应用并且可以 用来测试性能和功能。 使用TOpenCL控件，可以象使用数据库控件那样方便的去调用OpenCL程序，不需要太多代码就可以运行一个OpenCL 的Kernel。这对于学习和深入研究OpenCL的性能有一个很好的铺垫。 使用OpenCL做并行计算的一个主要因素就是提高大数据量计算的速度，这和通常的业务处理类程序大不相同，因 此提升OpenCL的运行效率是至关重要的，本控件附带的Demo程序中，是对两个长度分别为8192和32的float数组，进行 一维卷积计算的。在选择不同的数据传递方式（如使用显存还是Host内存、使用只读方式还是可读写或者只写方式）， 或者不同的Device（如在多核CPU上和GPU上运行Kernel程序）上运行，其效率相差是非常大的。 Demo程序中缺省的使用不显示获取结果的方式运行，缺省的数据传输是使用显存（CPU作为Device的时候，其实还 是系统内存）并Copy数据的方式，因此显示结果始终是0。当输出的参数传递方式改为直接使用系统内存指针的方式时， 不使用显示获取计算结果则是可以得到运算结果的。这些参数之间的差异，读者自行测试并仔细体会，通过调整，相信 可以得到最佳的运行方式。 Demo中包含了四个Kernel函数，分别是Convolution_Kernel_With_Barrier。这是一个带有同步函数Barrier的卷积 过程，并在卷积完成后，等待所有单元计算完毕，然后对结果进行微分（差商）处理，实际情况表明Barrier函数对GPU 的影响甚微，但如果使用CPU作为Device计算，则效率影响非常大，其耗时几乎和单核计算不相上下，估计是同步函数 在等候的过程中，引起了CPU对Catch竞争访问的结果吧。对这种情况，反倒不如拆分成两个Kernel进行单独计算，其累 积的计算时间基本上为两个独立Kernel耗时只和。 Differ_Kernel是单独进行微分计算的，是为了验证上面计算耗时结果的。 Convolution_Kernel是只进行卷积计算的，可以认为和Differ_Kernel前后执行，其结果应该和Convolution_Kerne- l_With_Barrier单独执行是一样的。 Convolution则是一个简单的计算过程，用来测试启动Kernel、等候数据等操作会占用的时间情况的。 OpenCL其实并不是想象中那么美妙，也不是想象中的那么复杂，但要使用好OpenCL，就必须认真的对待每个细节， 甚至到每一个函数调用或者if控制等，大家可以参考“http://hi.baidu.com/fsword73”，上面涉及到的很多方面，都是 可以提升Kernel运行效率的。 目前这个TOpenCL控件只是作者为了测试OpenCL运行效率编写的一个小的工具，作为一个测试工具或者技术积累阶段 的工具足矣，但在实际工程中，希望还是能够尽可能使用原生的调用方式，控件模式势必会带来一定的性能损失的，这是 无法克服的是一个实际情况，对于某些流式数据处理的计算而言，多次重复使用同一个Kernel对流式数据进行处理的，则 使用本控件应该不会造成太大的性能影响。 目前TOpenCL不支持多个Device同时工作，可以选择CPU、GPU或者APU作为首选设备, X86下运行正常，X64下运行仍有 问题，疑和cl.pas中对context等处理的方式不支持X64或者其他原因。 目前支持的OpenCL版本为1.2。控件没有考虑OpenCL和OpenGL协同工作的情况，需要做这方面应用或者测试的读者，请 自行处理。 一下是控件几个主要类的引用关系图。供参考。 由于时间的关系，不可能提供详细的使用说明，往谅解，有问题可邮件与作者联系或者QQ联系。 Mail:[email protected] QQ:57440981 TOpenCL --| | |--TclKernels --| |--- TclKernel --| | |-- TclK

这是使用EAD XE2 for Delphi编写的一个电子地图的程序，程序中使用了CrazyMap控件（XE2编写）和TObjInspector控件（亦为XE2编写的），大部分显示的功能都在控件内部实现。支持X64和X86两种目标代码。 CrazyMap采用多种优化措施，如缓存、动态抽稀等技术来提高电子地图的显示速度，可以获取比MapInfo和AutoCAD更高的显示速度。 CrazyMap并不是用来编辑或者创建地图数据的，而是给程序设计人员来编写适合用户操作的GIS系统的，因此注重用户的使用感受，尽可能的提高显示效率，并且提供适当的接口来实现用户数据的地图信息绘制工作。 TObjInspector并不是网络上可以见到的那个同名的控件，而是使用XE2中最新的RTTI功能实现的更强大的属性编辑器，TObjInspector可以获取publish、public、protected和private类型的属性信息，并且可以获取普通字段数据Field，而并不局限于冠以property关键字的属性。数据类型中支持普通TObject派生的对象和Record类型的数据，并且可以支持Array和动态Array的数据类型。TObjInspector提供了几种独立的属性编辑器，用来编辑不同数据类型的属性，并且可以通过用户接口实现用户定义类型的编辑。Array和动态Array的元素类型可以是任何Delphi支持的类型，如基本类型、Class、record和其他用户定义的类型。TObjInspector支持由事件创建可知性的Script脚本，脚本可以与宿主程序交互运行。 本程序中是针对TCrazyMap做的示范程序，相关TObjInspector的功能演示并不包含在内，只是使用ObjInspector对CrazyMap进行观察而已。 本程序中没有使用任何第三方的控件完成，均使用XE2本身提供的组件或者功能完成的。 TCrazyMap中的UseGDIP是用来支持GDI+绘图的，但实际中发现GDI+对图形质量的贡献并不突出，而对显示效率的负面贡献却相当的大，因此并没有对所有地图对象设计GDI+的显示代码，请不要进行UseGDIP的测试工作。 伴随程序提供的是一幅老早的西安地图，还有通过文件保存的地图图层编组组。 作者Lewolf保留所有权利。

这是一个C++ Builder作的电子地图示范程序，可以支持MapInfo交换格式的mif格式电子地图，程序实现了打开文件、放缩、移动、测量等最基本的功能，这些功能均是由一个VCL控件实现的，这个控件名称是CrazyMap，属于非公开发布的资源。 本程序和其他类的电子地图相比较，并无太多的差别和特色，甚至很多方面欠缺很多，其唯一的特点是高速显示能力，尤其在大型地图的显示方面，具有得天独厚的优势，本压缩包中含有一个50平方公里左右的mif格式电子地图，大部分为1:10000的内容，部分区域为1:1000的地图内容，总共数据大小为20Mb左右。使用本程序的显示速度相比Mapinfo 7.0和AutoCAD 2004均有较大优势，尤其是在低显示比例情况下，地图的移动、放缩、重绘等表现都非常优秀。同样地图数据在另一个国外的VCL控件eazymap中显示，其放缩、移动速度要比本程序低一个数量级，重绘则效率低两个数量级以上。 在小数据量的地图显示上，本程序并不具备特别的优势，主要优势体现在大数据量和高频率刷新方面，若结合多线程处理，发挥多核处理器的处理优势，并结合一定的缓存技术，则可为大型应用的GIS系统提供较好的显示方面支持。 [email protected] QQ:57440981